[Bio] / SubsystemEditor / WebPage / ShowVariants.pm Repository:
ViewVC logotype

Diff of /SubsystemEditor/WebPage/ShowVariants.pm

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

revision 1.9, Fri May 23 21:45:02 2008 UTC revision 1.10, Mon Jul 7 18:50:53 2008 UTC
# Line 306  Line 306 
306    
307    my $thistable = create_table( $self, $fig, \%has_filled, $col_hdrs, $tab );    my $thistable = create_table( $self, $fig, \%has_filled, $col_hdrs, $tab );
308    
 #  # create table from parsed data  
 #  my $table = $application->component( 'ShowVariantsTable' );  
 #  $table->columns( $col_hdrs );  
 #  $table->data( $tab );  
   
309    ############################################    ############################################
310    # Variant Descriptions from the Notes file #    # Variant Descriptions from the Notes file #
311    ############################################    ############################################
# Line 374  Line 369 
369    
370      my $col_hdrs = [ "Column", "Abbrev", "Functional Role" ];      my $col_hdrs = [ "Column", "Abbrev", "Functional Role" ];
371    
372      my $n = 1;      my ( $tab, $abbrevP ) = format_existing_roles( $fig, $subsystem );
     my ( $tab, $abbrevP ) = format_existing_roles( $fig, $subsystem, \$n );  
373    
374      # create table from parsed data      # create table from parsed data
375      my $table = $application->component( 'FRTable' );      my $table = $application->component( 'FRTable' );
# Line 393  Line 387 
387  # get rows of the functional role table #  # get rows of the functional role table #
388  #########################################  #########################################
389  sub format_existing_roles {  sub format_existing_roles {
390      my ( $fig, $subsystem, $nP ) = @_;      my ( $fig, $subsystem ) = @_;
391      my $tab = [];      my $tab = [];
392      my $abbrevP = {};      my $abbrevP = {};
393    
# Line 401  Line 395 
395        my $i = $subsystem->get_role_index( $role );        my $i = $subsystem->get_role_index( $role );
396        my $abbrev = $role ? $subsystem->get_role_abbr( $i ) : "";        my $abbrev = $role ? $subsystem->get_role_abbr( $i ) : "";
397        $abbrevP->{ $role } = $abbrev;        $abbrevP->{ $role } = $abbrev;
398        push( @$tab, [ $$nP, $abbrev, $role ] );        push( @$tab, [ $i + 1, $abbrev, $role ] );
399      }      }
400    
401      return ( $tab, $abbrevP );      return ( $tab, $abbrevP );
# Line 455  Line 449 
449                $sub->set_variant_code( $sub->get_genome_index( $genome ), $to );                $sub->set_variant_code( $sub->get_genome_index( $genome ), $to );
450              }              }
451            }            }
   
452          }          }
453        }        }
454      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3