<% my $dbi = $nvar{dbi}; %> 簡易版BBS 検索結果(詳細) <% print $nvar{sys}{maintenance} %> <% my $bbs = $var{data}{bbs}; my $system = $var{system}; my $syspr = $dbi->{misc}{sysprint}; my $dbseq = $dbi->{dbseq}{bbs}; %>
Top > データの検索 > 検索結果(詳細)

簡易版BBS
検索結果(詳細)

<% if($var{srcsid}) { %> ( 検索結果に戻る )<% } %>

検索結果(詳細)

データの内容

<% my $message = $bbs->{message}; $message =~ s/\n/
/g; foreach my $dbcol (@{ $dbi->{dbcol}{bbs} }) { next if($dbcol->{name} eq 'passwd'); %> <% } %>
項目
<% print $dbcol->{print} %> <% print ($dbcol->{name} eq 'message' ? $message : $bbs->{ $dbcol->{name} }) %>

システム内部の情報

<% my $syswarn = [ split(/\n/, $system->{system_warning}) ]; my ($w_name, $w_msg); foreach my $w (@$syswarn) { ($w_name, $w_msg) = (split(/\x1D/, $w))[1,2]; $w = ($w_name ? "$w_name: " : "") . $w_msg; } $syswarn = join('
', @$syswarn); %>
<% my $active = $system->{system_state} eq $dbi->{db}{sysstate}{active} ? 1 : 0; foreach my $i (0 .. $#{ $dbi->{db}{syscol} }) { my $sysname = $dbi->{db}{syscol}[$i]{name}; %> <% my $value = $system->{$sysname}; $value = $dbi->{misc}{sysprint_state}[$value] if($sysname =~ m/^system_(pre_)?state$/ and defined $value); $value = $syswarn if($sysname eq 'system_warning'); $value .= " (→ 詳細表示)" if($sysname =~ m/^system_(pre|next)_rid$/ and defined $value); $value .= " (→ {system_did}\">有効なデータの詳細表示)" if($sysname =~ m/^system_did$/ and $var{actid} ne 'null' and not $active); print "\n"; } %>
項目
<% print $syspr->{$sysname} %>$value