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

Diff of /SubsystemEditor/WebPage/ShowSubsystem.pm

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

revision 1.19, Tue Jul 29 18:41:20 2008 UTC revision 1.20, Thu Aug 14 20:04:20 2008 UTC
# Line 292  Line 292 
292    $infotable .= "</TABLE>";    $infotable .= "</TABLE>";
293    
294    if ( $can_alter ) {    if ( $can_alter ) {
295      $infotable .= "<INPUT TYPE=SUBMIT VALUE='Save Changes' ID='SUBMIT' NAME='SUBMIT'>";      $infotable .= "<INPUT TYPE=SUBMIT VALUE='Save Changes' ID='SUBMIT' NAME='SUBMIT' STYLE='background-color: red;'>";
296    }    }
297    
298      if ( $can_alter ) {
299        $content .= "<INPUT TYPE=SUBMIT VALUE='Save Changes' ID='SUBMIT' NAME='SUBMIT'  STYLE='background-color: red;'>";
300      }
301    $content .= $infotable;    $content .= $infotable;
302    $content .= $self->end_form();    $content .= $self->end_form();
303    
# Line 479  Line 482 
482    
483    foreach my $k ( @rel_lit_num ) {    foreach my $k ( @rel_lit_num ) {
484      my ( $ss, $key, $value ) = @$k;      my ( $ss, $key, $value ) = @$k;
485      $fig->delete_matching_attributes( "Subsystem:$name", "SUBSYSTEM_PUBMED_RELEVANT", $value );      $fig->delete_matching_attributes( "Subsystem:$name", "SUBSYSTEM_PUBMED_RELEVANT" );
486    }    }
487    
488    foreach my $np ( @$newpubs ) {    foreach my $np ( @$newpubs ) {
# Line 500  Line 503 
503    
504    foreach my $k ( @rel_lit_num ) {    foreach my $k ( @rel_lit_num ) {
505      my ( $ss, $key, $value ) = @$k;      my ( $ss, $key, $value ) = @$k;
506      $fig->delete_matching_attributes( "Subsystem:$name", "SUBSYSTEM_WEBLINKS", $value );      $fig->delete_matching_attributes( "Subsystem:$name", "SUBSYSTEM_WEBLINKS" );
507    }    }
508    
509    foreach my $np ( @$newpubs ) {    foreach my $np ( @$newpubs ) {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3