[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.16, Mon May 5 20:31:27 2008 UTC revision 1.17, Tue May 6 18:30:26 2008 UTC
# Line 436  Line 436 
436    my $esc_name = uri_escape($name);    my $esc_name = uri_escape($name);
437    
438    my $frpubs;    my $frpubs;
439    my @rel_lit_num = $fig->get_attributes( 'Subsystem:'.$esc_name, "SUBSYSTEM_PUBMED_RELEVANT" );    my @rel_lit_num = $fig->get_attributes( 'Subsystem:'.$name, "SUBSYSTEM_PUBMED_RELEVANT" );
440    
441    foreach my $k ( @rel_lit_num ) {    foreach my $k ( @rel_lit_num ) {
442      my ( $ss, $key, $value ) = @$k;      my ( $ss, $key, $value ) = @$k;
# Line 457  Line 457 
457    my $links;    my $links;
458    my $linksstring = '';    my $linksstring = '';
459    my $linksvoid = '';    my $linksvoid = '';
460    my @rel_link_num = $fig->get_attributes( 'Subsystem:'.$esc_name, "SUBSYSTEM_WEBLINKS" );    my @rel_link_num = $fig->get_attributes( 'Subsystem:'.$name, "SUBSYSTEM_WEBLINKS" );
461    
462    foreach my $k ( @rel_link_num ) {    foreach my $k ( @rel_link_num ) {
463      my ( $ss, $key, @value ) = @$k;      my ( $ss, $key, @value ) = @$k;
# Line 477  Line 477 
477    my $esc_name = uri_escape($name);    my $esc_name = uri_escape($name);
478    
479    my @values;    my @values;
480    my @rel_lit_num = $fig->get_attributes( 'Subsystem:'.$esc_name, "SUBSYSTEM_PUBMED_RELEVANT" );    my @rel_lit_num = $fig->get_attributes( 'Subsystem:'.$name, "SUBSYSTEM_PUBMED_RELEVANT" );
481    
482    foreach my $k ( @rel_lit_num ) {    foreach my $k ( @rel_lit_num ) {
483      my ( $ss, $key, $value ) = @$k;      my ( $ss, $key, $value ) = @$k;
484      $fig->delete_matching_attributes( "Subsystem:$esc_name", "SUBSYSTEM_PUBMED_RELEVANT", $value );      $fig->delete_matching_attributes( "Subsystem:$name", "SUBSYSTEM_PUBMED_RELEVANT", $value );
485    }    }
486    
487    foreach my $np ( @$newpubs ) {    foreach my $np ( @$newpubs ) {
488      $fig->add_attribute( "Subsystem:$esc_name", "SUBSYSTEM_PUBMED_RELEVANT", $np );      $fig->add_attribute( "Subsystem:$name", "SUBSYSTEM_PUBMED_RELEVANT", $np );
489    }    }
490  }  }
491    
# Line 498  Line 498 
498    my $esc_name = uri_escape($name);    my $esc_name = uri_escape($name);
499    
500    my @values;    my @values;
501    my @rel_lit_num = $fig->get_attributes( 'Subsystem:'.$esc_name, "SUBSYSTEM_WEBLINKS" );    my @rel_lit_num = $fig->get_attributes( 'Subsystem:'.$name, "SUBSYSTEM_WEBLINKS" );
502    
503    foreach my $k ( @rel_lit_num ) {    foreach my $k ( @rel_lit_num ) {
504      my ( $ss, $key, $value ) = @$k;      my ( $ss, $key, $value ) = @$k;
505      $fig->delete_matching_attributes( "Subsystem:$esc_name", "SUBSYSTEM_WEBLINKS", $value );      $fig->delete_matching_attributes( "Subsystem:$name", "SUBSYSTEM_WEBLINKS", $value );
506    }    }
507    
508    foreach my $np ( @$newpubs ) {    foreach my $np ( @$newpubs ) {
509      my @h = split( /\s+/, $np );      my @h = split( /\s+/, $np );
510      $fig->add_attribute( "Subsystem:$esc_name", "SUBSYSTEM_WEBLINKS", @h );      $fig->add_attribute( "Subsystem:$name", "SUBSYSTEM_WEBLINKS", @h );
511    }    }
512  }  }
513    

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3