[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.3, Wed May 26 22:34:24 2004 UTC revision 1.4, Thu May 27 19:27:53 2004 UTC
# Line 277  Line 277 
277          $self->{abbr}->{$abbr} = $name;          $self->{abbr}->{$abbr} = $name;
278          $self->{role_index}->{$name} = $i;          $self->{role_index}->{$name} = $i;
279          $self->{roles}->[$i] = $name;          $self->{roles}->[$i] = $name;
280          $self->{role_abbrs}->[$i] = $name;          $self->{role_abbrs}->[$i] = $abbr;
281          $i++;          $i++;
282      }      }
283  }  }
# Line 478  Line 478 
478      return $self->{roles}->[$ridx];      return $self->{roles}->[$ridx];
479  }  }
480    
481    sub get_role_abbr
482    {
483        my($self, $ridx) = @_;
484    
485        return $self->{role_abbrs}->[$ridx];
486    }
487    
488  sub get_pegs_from_cell  sub get_pegs_from_cell
489  {  {
490      my($self, $rowstr, $colstr) = @_;      my($self, $rowstr, $colstr) = @_;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3