<% if(defined($var{error}) and @{ $var{error} }) { my $html = $nvar{dbi}{misc}{html_insert}; my $value; %>

エラー

記入されたデータに以下のエラーが見つかりました。 エラーのある箇所を訂正してください。

<% foreach my $e (@{ $var{error} }) { if($e->{print}) { $value = $e->{value} ne '' ? " ― '$e->{value}'" : ""; print <$e->{print} $value
$e->{msg}
HTML } else { print "
"; my $cp; foreach (@{ $e->{cols} }) { if(defined $cp and $_->[0] eq $cp) { print ", $_->[1]"; } else { $cp = $_->[0]; print "[$cp-1]\">$_->[1]"; } } print "
\n
$e->{msg}
\n"; } } %>
<% } %> <% my $invalid = $var{presys}{system_state} eq $nvar{dbi}{db}{sysstate}{invalid} ? 1 : 0; if($invalid or defined($var{warning}) and @{ $var{warning} }) { my $html = $nvar{dbi}{misc}{html_insert}; my $value; %>

警告

記入されたデータに以下の不具合が見つかりました。

<% print "
無効のデータを修正しようとしています。
" if($invalid); foreach my $w (@{ $var{warning} }) { if($w->{print}) { $value = $w->{value} ne '' ? " ― '$w->{value}'" : ""; print <$w->{print} $value
$w->{msg}
HTML } else { print "
"; my $cp; foreach (@{ $w->{cols} }) { if(defined $cp and $_->[0] eq $cp) { print ", $_->[1]"; } else { $cp = $_->[0]; print "[$cp-1]\">$_->[1]"; } } print "
\n
$w->{msg}
\n"; } } %>
<% } %>