[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.10, Fri May 16 08:29:40 2008 UTC revision 1.11, Thu Jun 26 21:11:11 2008 UTC
# Line 36  Line 36 
36  use strict;  use strict;
37  use FIG;  use FIG;
38  use FIGV;  use FIGV;
39    use FIGM;
40  use FIG_Config;  use FIG_Config;
41  use CGI;  use CGI;
42  use Data::Dumper;  use Data::Dumper;
# Line 178  Line 179 
179  {  {
180      my($cgi) = @_;      my($cgi) = @_;
181    
182        my $base_fig;
183      my $fig;      my $fig;
184      if (FIGRules::nmpdr_mode($cgi))      if (FIGRules::nmpdr_mode($cgi))
185      {      {
186          $fig = new SproutFIG($FIG_Config::sproutDB, $FIG_Config::sproutData);          $base_fig = new SproutFIG($FIG_Config::sproutDB, $FIG_Config::sproutData);
187      }      }
188      else      else
189      {      {
190            $base_fig = new FIG();
191        }
192          if (my $job = $cgi->param("48hr_job"))          if (my $job = $cgi->param("48hr_job"))
193          {          {
194              my $jobdir = "/vol/48-hour/Jobs/$job";              my $jobdir = "/vol/48-hour/Jobs/$job";
# Line 199  Line 203 
203              {              {
204                  die "Cannot find orgdir $orgdir\n";                  die "Cannot find orgdir $orgdir\n";
205              }              }
206              $fig = new FIGV($orgdir);          $fig = new FIGV($orgdir, undef, $base_fig);
207          }          }
208          else      elsif (ref($FIG_Config::figm_dirs) eq 'ARRAY')
209          {          {
210              $fig = new FIG;          warn "Using FIGM @$FIG_Config::figm_dirs\n";
211            $fig = new FIGM($base_fig, @{$FIG_Config::figm_dirs});
212          }          }
213        else
214        {
215            $fig = $base_fig;
216      }      }
217    
218      return $fig;      return $fig;
219  }  }
220    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3