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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.91, Sun Oct 22 05:07:46 2006 UTC revision 1.92, Wed Nov 29 15:19:19 2006 UTC
# Line 1113  Line 1113 
1113      }      }
1114  }  }
1115    
1116    sub add_virtual_genome
1117    {
1118        my($self, $name, $genome, $variant, $bindings) = @_;
1119    
1120        my $gidx = @{$self->{genome}};
1121    
1122        $self->{genome}->[$gidx] = $genome;
1123        $self->{genome_index}->{$genome} = $gidx;
1124        $self->{variant_code}->[$gidx] = $variant;
1125    
1126        for my $role (keys %$bindings)
1127        {
1128            my $role_idx = $self->get_role_index($role);
1129    
1130            my $plist = $bindings->{$role};
1131    
1132    #       warn "Role $role maps to $role_idx with pegs @$plist\n";
1133    
1134            $self->{spreadsheet}->[$gidx]->[$role_idx] = $plist;
1135            $self->{spreadsheet_inv}->[$role_idx]->[$gidx] = $plist;
1136            for my $peg (@$plist)
1137            {
1138    #           warn "Peg $peg => $role_idx\n";
1139                push(@{$self->{peg_roles}->{$peg}}, $role_idx);
1140            }
1141        }
1142    #    warn "After add virtual: \n",  Dumper($self), "\n";
1143    }
1144    
1145  =head3 get_peg_roles  =head3 get_peg_roles
1146    
1147  C<< my @cols = $sub->get_peg_roles($peg); >>  C<< my @cols = $sub->get_peg_roles($peg); >>

Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3