| … | |
… | |
| 1188 | print CGI::p($pg->{state}->{state_summary_msg}); |
1188 | print CGI::p($pg->{state}->{state_summary_msg}); |
| 1189 | } |
1189 | } |
| 1190 | |
1190 | |
| 1191 | print CGI::end_div(); |
1191 | print CGI::end_div(); |
| 1192 | print CGI::start_div(); |
1192 | print CGI::start_div(); |
|
|
1193 | |
|
|
1194 | my $pgdebug = join(CGI::br(), @{$pg->{pgcore}->{flags}->{DEBUG_messages}} ); |
|
|
1195 | my $pgwarning = join(CGI::br(), @{$pg->{pgcore}->{flags}->{WARNING_messages}} ); |
|
|
1196 | my $pginternalerrors = join(CGI::br(), @{$pg->{pgcore}->get_internal_debug_messages} ); |
|
|
1197 | my $pgerrordiv = $pgdebug||$pgwarning||$pginternalerrors; # is 1 if any of these are non-empty |
|
|
1198 | |
| 1193 | print CGI::p({style=>"color:red;"}, "Checking additional error messages"); |
1199 | print CGI::p({style=>"color:red;"}, "Checking additional error messages") if $pgerrordiv ; |
| 1194 | #print CGI::p( "pgcore".ref($pg->{pgcore})); |
1200 | print CGI::p("pg debug<br/> $pgdebug" ) if $pgdebug ; |
| 1195 | print CGI::p("pg debug<br/>".join(CGI::br(), @{$pg->{pgcore}->{flags}->{DEBUG_messages}} ) ); |
1201 | print CGI::p("pg warning<br/>$pgwarning" ) if $pgwarning ; |
| 1196 | print CGI::p("pg warning<br/>".join(CGI::br(), @{$pg->{pgcore}->{flags}->{WARNING_messages}} ) ); |
1202 | print CGI::p("pg internal errors<br/> $pginternalerrors") if $pginternalerrors; |
| 1197 | print CGI::p("pg internal errors<br/>".join(CGI::br(), @{$pg->{pgcore}->get_internal_debug_messages} ) ); |
1203 | print CGI::end_div() if $pgerrordiv ; |
| 1198 | print CGI::end_div(); |
1204 | |
| 1199 | # save state for viewOptions |
1205 | # save state for viewOptions |
| 1200 | print CGI::hidden( |
1206 | print CGI::hidden( |
| 1201 | -name => "showOldAnswers", |
1207 | -name => "showOldAnswers", |
| 1202 | -value => $will{showOldAnswers} |
1208 | -value => $will{showOldAnswers} |
| 1203 | ), |
1209 | ), |
Parent Directory
| 
Revision Log
| 
Patch