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

Diff of /FigKernelPackages/FIG_CGI.pm

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

revision 1.8, Tue Feb 5 01:13:01 2008 UTC revision 1.9, Tue Apr 29 05:30:45 2008 UTC
# Line 86  Line 86 
86      # Get the CGI and FIG objects.      # Get the CGI and FIG objects.
87      my $cgi = new CGI;      my $cgi = new CGI;
88      my $fig = init_fig($cgi);      my $fig = init_fig($cgi);
89        # Turn on tracing.
90        ETracing($cgi);
91      # If we're debugging, we need to know which file is to receive the debugging      # If we're debugging, we need to know which file is to receive the debugging
92      # information.      # information.
93      my $script_name = determine_script_name();      my $script_name = determine_script_name();
# Line 158  Line 160 
160      if ($type eq 'SFXlate') {      if ($type eq 'SFXlate') {
161          $retVal = 1;          $retVal = 1;
162      } elsif ($type eq 'CGI') {      } elsif ($type eq 'CGI') {
163          $retVal = $object->param('SPROUT');          $retVal = FIGRules::nmpdr_mode($object);
164      }      }
165      # Return the result.      # Return the result.
166      return $retVal;      return $retVal;
# Line 166  Line 168 
168    
169  sub init_tracing  sub init_tracing
170  {  {
171      my($cgi) = @_;      # DEPRECATED: ETracing is used instead.
     my $traceData = $cgi->param('trace');  
     if ($traceData) {  
         TSetup($traceData, "QUEUE");  
         $traceData = 1;  
     } else {  
         TSetup(0, "NONE");  
         $traceData = 0;  
     }  
172  }  }
173    
174  sub init_fig  sub init_fig
# Line 182  Line 176 
176      my($cgi) = @_;      my($cgi) = @_;
177    
178      my $fig;      my $fig;
179      if ($cgi->param('SPROUT'))      if (FIGRules::nmpdr_mode($cgi))
180      {      {
181          $fig = new SproutFIG($FIG_Config::sproutDB, $FIG_Config::sproutData);          $fig = new SproutFIG($FIG_Config::sproutDB, $FIG_Config::sproutData);
182      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3