[Bio] / FigKernelPackages / Tracer.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Tracer.pm

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

revision 1.7, Tue Apr 5 05:25:57 2005 UTC revision 1.8, Wed Apr 6 00:11:50 2005 UTC
# Line 8  Line 8 
8          use Carp qw(longmess croak);          use Carp qw(longmess croak);
9          use CGI;          use CGI;
10          use FIG_Config;          use FIG_Config;
11          use PageBuilder;  
12    my $UsePageBuilder=1;
13    eval {
14     require PageBuilder;
15    };
16    undef $UsePageBuilder if ($@);
17    
18  =head1 Tracing and Debugging Helpers  =head1 Tracing and Debugging Helpers
19    
# Line 986  Line 991 
991                  $retVal = 1;                  $retVal = 1;
992          } else {          } else {
993                  # Here debug mode is off, so we generate an error page.                  # Here debug mode is off, so we generate an error page.
994                    # RAE: PageBuilder is not part of the standard distro, and broke my machine
995                    if ($UsePageBuilder)
996                    {
997                  my $pageString = PageBuilder::Build(">Html/ErrorPage.html", {}, "Html");                  my $pageString = PageBuilder::Build(">Html/ErrorPage.html", {}, "Html");
998                  print $pageString;                  print $pageString;
999          }          }
1000                    else
1001                    {
1002                      print STDERR "There was an error here in FiGKernelPackages/Tracer.pm\n";
1003                    }
1004    
1005            }
1006          # Return the determination indicator.          # Return the determination indicator.
1007          return $retVal;          return $retVal;
1008  }  }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3