<%
print "DID $var{system}{system_did} ";
print ($state eq $nvar{dbi}{db}{sysstate}{active} ?
"" : $state eq $nvar{dbi}{db}{sysstate}{wait} ? '( 申請中 )' : '( 無効 )');
%>
システム情報
<%
my $syswarn_orig = $var{system}{system_warning}; # 一度退避させる
my $syswarn = [ split(/\n/, $var{system}{system_warning}) ];
my ($w_table, $w_name, $w_msg);
foreach my $w (@$syswarn) {
($w_table, $w_name, $w_msg) = split(/\x1D/, $w);
$w = ($w_table eq 'cv' ? "" : "[$w_table] ")
. ($w_name ? "$w_name: " : "") . $w_msg;
}
$var{system}{system_warning} = join('
', @$syswarn);
my $active = $var{system}{system_state}
eq $nvar{dbi}{db}{sysstate}{active} ? 1 : 0;
my ($sysname, $value);
foreach my $i (0 .. $#{ $nvar{dbi}{db}{syscol} }) {
$sysname = $nvar{dbi}{db}{syscol}[$i]{name}; %>
<% print $nvar{dbi}{misc}{sysprint}{$sysname} %> |
<%
$value = $var{system}{$sysname};
if($sysname =~ m/state$/) {
print (defined $value ? $nvar{dbi}{misc}{sysprint_state}[$value] : $value);
} elsif($sysname =~ m/^system_(?:pre|next)_rid$/) {
print $value, " (→ 詳細を表示)"
if(defined $value);
} elsif($sysname eq 'system_did') {
print $value;
print " (→ ",
"有効なデータの詳細を表示)"
if($var{actid} ne 'null' and not $active);
} elsif($sysname =~ m/uid$/) {
print $value;
print " (→ ユーザ情報の表示)" if($value > 0);
} else {
print $value;
}
print " |
";
}
$var{system}{system_warning} = $syswarn_orig;
%>