[Bio] / FigWebServices / protein.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/protein.cgi

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

revision 1.94, Fri Mar 4 18:29:21 2005 UTC revision 1.95, Fri Mar 4 18:38:12 2005 UTC
# Line 601  Line 601 
601      # If the Add Changes button is pressed we will save the changes      # If the Add Changes button is pressed we will save the changes
602      # we will do this first before displaying the results      # we will do this first before displaying the results
603    
604      my @attr = &feature_attributes($fig_or_sprout,$peg);      my @attr=$fig_or_sprout->get_attributes($peg);
605      my $prot=$cgi->param('prot');      my $prot=$cgi->param('prot');
606  print STDERR "PROTEIN IS $prot\n";  print STDERR "PROTEIN IS $prot\n";
607      if ($cgi->param('Add Changes')) {      if ($cgi->param('Add Changes')) {
# Line 633  Line 633 
633        push(@$html,&HTML::make_table($col_hdrs,$tab,"Changed Data"));        push(@$html,&HTML::make_table($col_hdrs,$tab,"Changed Data"));
634      }      }
635    
636      my @attr = &feature_attributes($fig_or_sprout,$peg);      my @attr=$fig_or_sprout->get_attributes($peg);
637      my $col_hdrs=["Key","Value"];      my $col_hdrs=["Key","Value"];
638    
     if (@attr > 0) {  
639          my $tab = [];          my $tab = [];
640          if ($cgi->param('Edit Attributes') && $cgi->param('user')) {          if ($cgi->param('Edit Attributes') && $cgi->param('user')) {
641             push @$col_hdrs, "URL";             push @$col_hdrs, "URL";
# Line 676  Line 675 
675          push(@$html,$cgi->start_form(-action=>"protein.cgi"), $cgi->hidden("prot"), $cgi->hidden("user"));          push(@$html,$cgi->start_form(-action=>"protein.cgi"), $cgi->hidden("prot"), $cgi->hidden("user"));
676          push(@$html,$cgi->br,$cgi->hr,&HTML::make_table($col_hdrs, $tab,"Attributes"),$cgi->hr);          push(@$html,$cgi->br,$cgi->hr,&HTML::make_table($col_hdrs, $tab,"Attributes"),$cgi->hr);
677      }      }
 }  
678    
679  sub who {  sub who {
680      my($id) = @_;      my($id) = @_;

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3