[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.2, Thu Jul 31 14:24:24 2008 UTC revision 1.3, Mon Aug 4 18:07:32 2008 UTC
# Line 83  Line 83 
83    if ( defined( $preferences->{ 'SeedUser' } ) ) {    if ( defined( $preferences->{ 'SeedUser' } ) ) {
84      $seeduser = $preferences->{ 'SeedUser' }->value;      $seeduser = $preferences->{ 'SeedUser' }->value;
85    }    }
86    if ( $user && $user->has_right( $self->application, 'edit', 'subsystem', $esc_name ) ) {    if ( $user && $user->has_right( $self->application, 'edit', 'metasubsystem', $esc_name ) ) {
87      $self->{ 'can_alter' } = 1;      $self->{ 'can_alter' } = 1;
88      $self->{ 'fig' }->set_user( $seeduser );      $self->{ 'fig' }->set_user( $seeduser );
89      $self->{ 'seeduser' } = $seeduser;      $self->{ 'seeduser' } = $seeduser;
# Line 146  Line 146 
146    
147    # Build nice tab menu here    # Build nice tab menu here
148    $menu->add_category( 'Meta Overview', "SubsysEditor.cgi?page=MetaOverview" );    $menu->add_category( 'Meta Overview', "SubsysEditor.cgi?page=MetaOverview" );
149      $menu->add_category( 'Info', "SubsysEditor.cgi?page=MetaInfo&metasubsystem=$esc_name" );
150    $menu->add_category( 'Edit Subsets', "SubsysEditor.cgi?page=MetaSubsets&metasubsystem=$esc_name" );    $menu->add_category( 'Edit Subsets', "SubsysEditor.cgi?page=MetaSubsets&metasubsystem=$esc_name" );
151    $menu->add_category( 'Spreadsheet', "SubsysEditor.cgi?page=MetaSpreadsheet&metasubsystem=$esc_name" );    $menu->add_category( 'Spreadsheet', "SubsysEditor.cgi?page=MetaSpreadsheet&metasubsystem=$esc_name" );
152    
# Line 161  Line 162 
162    
163    my $tab_view_component = $self->application->component( 'functionTabView' );    my $tab_view_component = $self->application->component( 'functionTabView' );
164    $tab_view_component->width( 900 );    $tab_view_component->width( 900 );
165  #  if ( $can_alter ) {    if ( $self->{ 'can_alter' } ) {
166  #    $tab_view_component->add_tab( '<H2>&nbsp; Add Genomes to Spreadsheet &nbsp;</H2>', "$addgenomepanel" );  #    $tab_view_component->add_tab( '<H2>&nbsp; Add Genomes to Spreadsheet &nbsp;</H2>', "$addgenomepanel" );
167  #  }    }
168    $tab_view_component->add_tab( '<H2>&nbsp; Color Spreadsheet &nbsp;</H2>', "$colorpanel" );    $tab_view_component->add_tab( '<H2>&nbsp; Color Spreadsheet &nbsp;</H2>', "$colorpanel" );
169    $tab_view_component->add_tab( '<H2>&nbsp; Limit Genomes &nbsp;</H2>', "$limitdisplaypanel" );    $tab_view_component->add_tab( '<H2>&nbsp; Limit Genomes &nbsp;</H2>', "$limitdisplaypanel" );
170    $tab_view_component->add_tab( '<H2>&nbsp; Limit Subsets &nbsp;</H2>', "$limitsubsetspanel" );    $tab_view_component->add_tab( '<H2>&nbsp; Limit Subsets &nbsp;</H2>', "$limitsubsetspanel" );
# Line 419  Line 420 
420                          { name => 'Variant', sortable => 1 }                          { name => 'Variant', sortable => 1 }
421                        ];                        ];
422    
423    my $supercolumns = [ [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ] ];    my $supercolumns = [ [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ], [ '', 1 ] ];
424    
425    if ( $subsetssupercolumns > 0 ) {    if ( $subsetssupercolumns > 0 ) {
426      push @$supercolumns, [ 'Subsets', $subsetssupercolumns ];      push @$supercolumns, [ 'Subsets', $subsetssupercolumns ];
# Line 1104  Line 1105 
1105    my $spreadsheettable = $self->application->component( 'SubsystemSpreadsheet' );    my $spreadsheettable = $self->application->component( 'SubsystemSpreadsheet' );
1106    my $spreadsheettableid = $spreadsheettable->id();    my $spreadsheettableid = $spreadsheettable->id();
1107    
1108    $content .= "<BR><BR><INPUT TYPE=BUTTON VALUE='Limit Subsets and Functional Roles' ONCLICK='ChangeVisibility( \"$spreadsheettableid\" );'><INPUT TYPE=BUTTON VALUE='Make current setting Default' ONCLICK='SubmitSpreadsheet( \"LimitSubsets\", 2 );'>";    $content .= "<BR><BR><INPUT TYPE=BUTTON VALUE='Limit Subsets and Functional Roles' ONCLICK='ChangeVisibility( \"$spreadsheettableid\" );'>";
1109  #  }    if ( $self->{ 'can_alter' } ) {
1110        $content .= "<INPUT TYPE=BUTTON VALUE='Make current setting Default' ONCLICK='SubmitSpreadsheet( \"LimitSubsets\", 2 );'>";
1111      }
1112    
1113    return $content;    return $content;
1114  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3