[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

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

revision 1.20, Sun Dec 5 16:35:16 2004 UTC revision 1.21, Thu Dec 9 00:53:45 2004 UTC
# Line 968  Line 968 
968      my($fig,$role,$subsystem) = @_;      my($fig,$role,$subsystem) = @_;
969      my(%roles,$peg,$func);      my(%roles,$peg,$func);
970    
971    
972        # RAE this is dying if $subsystem->get_col($subsystem->get_role_index($role) + 1) is not defined
973        # it is also not returning the right answer, so we need to fix it.
974        # I am not sure why this is incremented by one here (see the note) because it is not right
975        # and if you don't increment it by one it is right.
976    
977                                              # incr by 1 to get col indexed from 1 (not 0)                                              # incr by 1 to get col indexed from 1 (not 0)
978      my @pegs = map { @$_ } @{$subsystem->get_col($subsystem->get_role_index($role) + 1)};      #my @pegs = map { @$_ } @{$subsystem->get_col($subsystem->get_role_index($role) + 1)};
979    
980        return undef unless ($role); # this takes care of one error
981        my $col_role=$subsystem->get_col($subsystem->get_role_index($role));
982        return undef unless (defined $col_role);
983        my @pegs = map { @$_ } @$col_role;
984    
985      foreach $peg (@pegs)      foreach $peg (@pegs)
986      {      {
987          if ($func = $fig->function_of($peg))          if ($func = $fig->function_of($peg))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3