/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.115 by yngves, Sun Oct 27 22:33:18 2002 UTC revision 1.116 by yngves, Thu Oct 31 22:47:00 2002 UTC
# Line 473  sub get_reply Line 473  sub get_reply
473      elsif($state == $CODE_NO_PRS_MATCHED)      elsif($state == $CODE_NO_PRS_MATCHED)
474      {      {
475        gerror("Return code: $state - $text");        gerror("Return code: $state - $text");
476          page_footer('Error');
477          page_end_html('Error');
478        client_exit();        client_exit();
479        push(@rettext, $text);        push(@rettext, $text);
480      }      }
# Line 488  sub get_reply Line 490  sub get_reply
490        }        }
491        gerror("Return code: $state - $text");        gerror("Return code: $state - $text");
492        warn("gnatsweb: gnatsd error $state-$text; user=$db_prefs{'user'}, db=$global_prefs{'database'}; stacktrace: ", print_stacktrace());        warn("gnatsweb: gnatsd error $state-$text; user=$db_prefs{'user'}, db=$global_prefs{'database'}; stacktrace: ", print_stacktrace());
493          page_footer('Error');
494          page_end_html('Error');
495        client_exit();        client_exit();
496        push(@rettext, $text);        push(@rettext, $text);
497      }      }
# Line 1386  sub view Line 1390  sub view
1390    
1391    if(!$pr)    if(!$pr)
1392    {    {
1393      page_heading($page, 'Error');      error_page("You must specify a problem report number");
     print "<h3>You must specify a problem report number</h3>";  
1394      return;      return;
1395    }    }
1396    
# Line 1509  sub edit Line 1512  sub edit
1512    
1513    if(!$pr)    if(!$pr)
1514    {    {
1515      page_heading($page, 'Error');      error_page("You must specify a problem report number");
     print "<h3>You must specify a problem report number</h3>";  
1516      return;      return;
1517    }    }
1518    
# Line 2694  sub submit_stored_query Line 2696  sub submit_stored_query
2696    }    }
2697    if ($err)    if ($err)
2698    {    {
2699      print_header(),      error_page($err);
           $q->start_html('Error'),  
           $q->h3($err),  
           $q->end_html();  
2700    }    }
2701    else    else
2702    {    {
# Line 2740  sub delete_stored_query Line 2739  sub delete_stored_query
2739    }    }
2740    if ($err)    if ($err)
2741    {    {
2742      print_header(),      error_page($err);
           $q->start_html('Error'),  
           $q->h3($err),  
           $q->end_html();  
2743    }    }
2744    else    else
2745    {    {

Legend:
Removed from v.1.115  
changed lines
  Added in v.1.116

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26