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

Diff of /FigWebServices/cv.cgi

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

revision 1.7, Sat Oct 22 18:38:21 2005 UTC revision 1.8, Mon Oct 24 20:00:07 2005 UTC
# Line 228  Line 228 
228  {  {
229      my ($fig,$cgi,$html,$peg,$id_term_to_source) =@_ ;      my ($fig,$cgi,$html,$peg,$id_term_to_source) =@_ ;
230      my @id_term = keys(%{$id_term_to_source});      my @id_term = keys(%{$id_term_to_source});
231        my %sources={};   #in case someday we allow adds from >1 vocab at once
232        my $source;
233      foreach my $it (@id_term)      foreach my $it (@id_term)
234      {      {
235         $fig->add_attribute($peg,$id_term_to_source->{$it},$it);         $source = $id_term_to_source->{$it};
236           $fig->add_attribute($peg,$source,$it);
237           $sources{$source}=1;   #build unique list of source names
238      }      }
239    
240        my %key_info_hash;
241        $key_info_hash{"is_cv"} = 1;
242        $key_info_hash{"single"} = 0;
243        $key_info_hash{"readonly"} = 1;
244    
245        $fig->key_info($source,\%key_info_hash);
246    
247      #&show_initial($fig,$cgi,$html,$peg);      #&show_initial($fig,$cgi,$html,$peg);
248  }  }
249    
# Line 282  Line 293 
293      {      {
294          $row = [];          $row = [];
295          $source = $r->[1];          $source = $r->[1];
296            $cv_key_hash = $fig->key_info($source);
297            if($cv_key_hash->{"is_cv"} == 1)
298            {
299          $id_and_term = $r->[2];          $id_and_term = $r->[2];
300          $value = $source."split_here".$id_and_term;          $value = $source."split_here".$id_and_term;
301          $cb ="<input type=checkbox name='delete_checked_$counter' value='$value'>" ;          $cb ="<input type=checkbox name='delete_checked_$counter' value='$value'>" ;
# Line 291  Line 305 
305          push(@$delete_table_rows,$row);          push(@$delete_table_rows,$row);
306          $counter = $counter + 1;          $counter = $counter + 1;
307      }      }
308        }
309    
310    
311      # build the page      # build the page
312        my $user = $cgi->hidden(-name=>'user');
313      my $link = "protein.cgi?prot=$peg";      my $link = "protein.cgi?prot=$peg&user=$user";
314      push @$html,      push @$html,
315      #$cgi->start_multipart_form(),      #$cgi->start_multipart_form(),
316      $cgi->start_form(),      $cgi->start_form(),

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3