<% my $dbi = $nvar{dbi}; 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} ? '( 申請中 )' : '( 無効 )'); %>

修正前のデータとの差分

<% DIFF: { unless(exists $var{sdata}) { print "

修正前のデータはありません。

\n"; last DIFF; } %>
<% print "( 修正前のデータへ )"; %>
<% unless(keys %{ $var{data} }) { print "

全てのカラムが修正前と同じです。

\n"; last DIFF; } my ($da, $sda, $dbc); $var{data}{cv} = [ $var{data}{cv} ]; $var{sdata}{cv} = [ $var{sdata}{cv} ]; my @dbt = ( 'cv', grep { ! /^cv$/ } keys %{ $var{data} } ); foreach my $dbt (@dbt) { foreach my $i (0 .. $#{ $var{data}{$dbt} }) { print "

", ($dbt eq 'cv' ? '主テーブル' : "関連テーブル ― $dbi->{misc}{dbt}{$dbt} " . ($i+1)), "

\n"; $da = $var{data}{$dbt}[$i]; $sda = $var{sdata}{$dbt}[$i]; $dbc = $dbi->{dbseq}{$dbt}; foreach my $col (keys %$da) { next if($col =~ m/_s$/); %>
<% print $dbc->{$col}{print} %> <% &printval($col, $dbc, $da) %>
(修正前) <% &printval($col, $dbc, $sda) %>
<% } } } $var{data}{cv} = $var{data}{cv}[0]; $var{sdata}{cv} = $var{sdata}{cv}[0]; } %>
<% sub printval { my ($col, $dbc_, $data_) = @_; my $dbc = $dbc_->{$col}; my $data = $data_->{$col}; if($dbc->{code}) { if($dbc->{plural}) { print join(', ', $dbi->col_split($data, $dbc->{code}[0])); } else { print $dbi->{code}{ $dbc->{code}[0] }{$data}; } } elsif($dbc->{type} eq 'file') { if($data) { my ($imguri, $imgpath) = $dbi->fileinfo($data); my $tnuri = $dbi->fileinfo($data_->{ ${col} . '_s' }); my $size = int((stat($imgpath))[7] / 1024); print "", "画像あり ( $size kBytes )
"; } else { print "画像なし"; } } else { print $data; } } %>