# 2022/04/25 17:53:21 : Generate from 'skel/_sub/error_message.html'; #------------------------------------------------------------------------------ # [WARNING] Don't edit this file. If you edit this, will be occoued error. #------------------------------------------------------------------------------ Version=1.01 165087655016508765181sub { my $R = shift; my $O = shift; my $L = shift; my $v = $R->{v}; $_[0] = \$v; if ($R->{argv}->[0]) { $$L=5; $R->message($R->{argv}->[0]); } if (@{$R->{Message}}) { $R->{error_mode}=1; $$O .= '

'; $$O .= ($R->{action_return} eq '0') ? '結果表示' : 'エラー'; ($R->{Auth}->{isadmin}&&($R->{action_return}!=0)) && ($$O .= ("($R->{action_return})")); $$O .= '

'; $$L=15; $$O .= join("\n",@{$R->{Message}}); $$O .= '

'; $R->{argv}->[1] && ($$O .= ("

$R->{argv}->[1]

")); $$O .= '

'; ($v->{title} eq '') && ($v->{title}='エラー'); } } 000