[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.9, Tue Oct 25 01:56:45 2005 UTC revision 1.10, Wed Oct 26 17:45:01 2005 UTC
# Line 180  Line 180 
180              $manual_source=$cgi->param('manual_source');              $manual_source=$cgi->param('manual_source');
181              $manual_id=$cgi->param('manual_id');              $manual_id=$cgi->param('manual_id');
182              $manual_term=$cgi->param('manual_term');              $manual_term=$cgi->param('manual_term');
183              $id_term = $manual_id.": ".$manual_term;              $id_term = $manual_id."; ".$manual_term;
184              $id_term_to_source{$id_term} = $manual_source;              $id_term_to_source{$id_term} = $manual_source;
185              &add_terms($fig,$cgi,$html,$peg,\%id_term_to_source);              &add_terms($fig,$cgi,$html,$peg,\%id_term_to_source);
186          }          }
# Line 257  Line 257 
257      # Build seach results table      # Build seach results table
258    
259      @sr = @$search_results;      @sr = @$search_results;
260      my $add_col_hdrs = ["Add","Source","ID: Term"];      my $add_col_hdrs = ["Add","Vocab. Name","ID; Term"];
261      my $add_table_rows;      my $add_table_rows;
262      my $counter = 0;      my $counter = 0;
263      for my $r (@sr)      for my $r (@sr)
# Line 268  Line 268 
268          $source = $cv;          $source = $cv;
269          $id= $temp[1];          $id= $temp[1];
270          $term = $temp[2];          $term = $temp[2];
271          $id_and_term = $id.": ".$term;          $id_and_term = $id."; ".$term;
272          $cb_value = $cv."split_here".$id."; ".$term;          $cb_value = $cv."split_here".$id."; ".$term;
273          $cb ="<input type=checkbox name=add_checked_$counter value='$cb_value'>" ;          $cb ="<input type=checkbox name=add_checked_$counter value='$cb_value'>" ;
274          push(@$row,$cb);          push(@$row,$cb);
# Line 285  Line 285 
285    
286      # build term deletions stuff      # build term deletions stuff
287    
288      my $delete_col_hdrs = ["Delete","Source","ID: Term"];      my $delete_col_hdrs = ["Delete","Vocab. Name","ID; Term"];
289      my @results = $fig->get_attributes($peg);      my @results = $fig->get_attributes($peg);
290      my $delete_table_rows;      my $delete_table_rows;
291      my $counter =0;      my $counter =0;
# Line 317  Line 317 
317      $cgi->hidden(-name=>'prot', -value=>'$peg'),      $cgi->hidden(-name=>'prot', -value=>'$peg'),
318      $cgi->hidden(-name=>'user', -value=>'$user'),      $cgi->hidden(-name=>'user', -value=>'$user'),
319      $cgi->br,      $cgi->br,
320      "<a href=$link Back to protein page</a>",      "<a href=$link> Back to protein page</a>",
321      $cgi->br,      $cgi->br,
322      "<h2>Controlled Vocabulary Workbench for $peg</h2>",      "<h2>Controlled Vocabulary Workbench for $peg</h2>",
323      $cgi->hr,      $cgi->hr,
# Line 361  Line 361 
361      "<h5>Term text, e.g., catalytic activity</h5>\n",      "<h5>Term text, e.g., catalytic activity</h5>\n",
362      $cgi->textfield(-name => 'manual_term', -size => 70, -default=>'', -override=>1 ),      $cgi->textfield(-name => 'manual_term', -size => 70, -default=>'', -override=>1 ),
363      $cgi->br,$cgi->br,      $cgi->br,$cgi->br,
364      $cgi->submit(-name=>'request', -value=>'Add Manual Term'),      $cgi->submit(-name=>'request', -value=>'Add Term Manually'),
365      $cgi->br,      $cgi->br,
366      $cgi->hr,      $cgi->hr,
367      $cgi->end_form;      $cgi->end_form;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3