%
if(defined($var{error}) and @{ $var{error} }) { %>
エラー
記入されたデータに以下のエラーが見つかりました。
エラーのある箇所を訂正してください。
<%
foreach my $e (@{ $var{error} }) {
if($e->{print}) {
print "- $e->{print}";
print " ― '$e->{value}'" if($e->{value} ne '');
print "
\n- $e->{msg}
\n";
} else {
print "- ", join(', ', map { $_->[1] } @{ $e->{cols} }),
"
\n- $e->{msg}
\n";
}
} %>
<%
} %>
<%
my $invalid = $var{presys}{system_state}
eq $nvar{dbi}{db}{sysstate}{invalid} ? 1 : 0;
if($invalid or $var{warning} and @{ $var{warning} }) { %>
警告
<%
print " - 無効のデータを修正しようとしています。
" if($invalid);
foreach my $w (@{ $var{warning} }) {
if($w->{print}) {
print "- $w->{print}";
print " ― '$w->{value}'" if($w->{value} ne '');
print "
\n- $w->{msg}
\n";
} else {
print "- ", join(', ', map { $_->[1] } @{ $w->{cols} }),
"
\n- $w->{msg}
\n";
}
} %>
<%
} %>