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

Diff of /SubsystemEditor/WebPage/MetaSpreadsheet.pm

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

revision 1.5, Mon Sep 8 11:24:27 2008 UTC revision 1.6, Mon Sep 8 11:36:30 2008 UTC
# Line 462  Line 462 
462    
463    my $supercolumns = [ [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ] ];    my $supercolumns = [ [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ] ];
464    
465      # if user can write he gets a writable variant column that if first invisible
466      if ( $self->{ 'can_alter' } ) {
467        push @$table_columns, { name => 'Variant', visible => 0 };
468        push @$supercolumns, [ '', 1 ];
469      }
470    
471    if ( $subsetssupercolumns > 0 ) {    if ( $subsetssupercolumns > 0 ) {
472      push @$supercolumns, [ 'Subsets', $subsetssupercolumns ];      push @$supercolumns, [ 'Subsets', $subsetssupercolumns ];
473    }    }
474    my $supercolstobe;    my $supercolstobe;
475    
476    my $ii = 4; # this is for keeping in mind in what column we start the Functional Roles    my $ii = 4; # this is for keeping in mind in what column we start the Functional Roles
   
   # if user can write he gets a writable variant column that if first invisible  
477    if ( $self->{ 'can_alter' } ) {    if ( $self->{ 'can_alter' } ) {
     push @$table_columns, { name => 'Variant', visible => 0 };  
478      $ii++;      $ii++;
479    }    }
480    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3