[Bio] / SeedViewer / seedviewer.cgi Repository:
ViewVC logotype

Diff of /SeedViewer/seedviewer.cgi

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

revision 1.17, Thu May 1 07:58:38 2008 UTC revision 1.18, Wed May 7 23:04:08 2008 UTC
# Line 17  Line 17 
17  if ($@)  if ($@)
18  {  {
19      my $error = $@;      my $error = $@;
20      my $cgi = new CGI();      Warn("Script error: $error") if T(SeedViewer => 0);
21    
22      print $cgi->header();      print CGI::header();
23      print $cgi->start_html();      print CGI::start_html();
24    
25      # print out the error      # print out the error
26      Trace("Script error: $error") if T(0);      print '<pre>'.$error.'</pre>';
     print '<pre>'.$@.'</pre>';  
27    
28      print $cgi->end_html();      print CGI::end_html();
29    
30  }  }
31    
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3