% my $dbi = $nvar{dbi};
my $cv = $var{data}{cv};
my $state = $var{system}{system_state}; %>
<%
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];
}
%>