<% 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"; } } %>
<% } %>