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

Diff of /FigKernelPackages/model.pm

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

revision 1.10, Tue May 29 19:16:26 2007 UTC revision 1.11, Tue May 29 19:37:12 2007 UTC
# Line 61  Line 61 
61  my %ss_to_superset;  my %ss_to_superset;
62    
63  #Flip this bit to enable debugging  #Flip this bit to enable debugging
64  my $debug = 0;  my $debug = int($ENV{HOPE_DEBUG});
65    
66    sub set_fig
67    {
68        my($newfig) = @_;
69        $fig = $newfig;
70    }
71    
72  sub new {  sub new {
73      my $type = shift;      my $type = shift;
# Line 80  Line 86 
86      my %scenario_data;      my %scenario_data;
87    
88      my $subsystem = $fig->get_subsystem($ss_name);      my $subsystem = $fig->get_subsystem($ss_name);
89        if (!$subsystem)
90        {
91            warn "Cannot open subsystem $subsystem\n";
92            return;
93        }
94    
95      my @scenario_names = $subsystem->get_hope_scenario_names;      my @scenario_names = $subsystem->get_hope_scenario_names;
96      foreach my $name (@scenario_names)      foreach my $name (@scenario_names)
# Line 2994  Line 3005 
3005      my %genome_scenarios;      my %genome_scenarios;
3006    
3007      my $subsystem_obj = $fig->get_subsystem($subsystem);      my $subsystem_obj = $fig->get_subsystem($subsystem);
3008    
3009        if (!$subsystem_obj)
3010        {
3011            warn "Cannot open subsystem $subsystem\n";
3012            return;
3013        }
3014    
3015    
3016      my @ss_scenarios = $subsystem_obj->get_hope_scenario_names;      my @ss_scenarios = $subsystem_obj->get_hope_scenario_names;
3017    
3018      foreach my $name (@ss_scenarios)      foreach my $name (@ss_scenarios)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3