<% my $cv = $var{data}{cv}; my $state = $var{system}{system_state}; %> 履歴書 データの詳細表示 "> <% print $nvar{sys}{maintenance} %>
<% 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}; %> "; } $var{system}{system_warning} = $syswarn_orig; %>
<% 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 "