[Bio] / FigKernelPackages / Observation.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Observation.pm

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

revision 1.71, Tue Sep 9 13:58:55 2008 UTC revision 1.73, Tue Sep 9 14:38:50 2008 UTC
# Line 2295  Line 2295 
2295          }          }
2296    
2297          # create the radio cell for any sequence, not just fig ids          # create the radio cell for any sequence, not just fig ids
2298          my $radio = qq(<input type="radio" name="function_select" value="$id" id="$field_name" onClick="clearText('new_text_function')">);          my $radio = qq(<input type="radio" name="function_select" value="$current_function" id="$field_name" onClick="clearText('new_text_function')">);
2299          $radio_cell = { 'data'=>$radio, 'highlight'=>$white};          $radio_cell = { 'data'=>$radio, 'highlight'=>$white};
2300    
2301          # get the linked fig id          # get the linked fig id
# Line 2795  Line 2795 
2795              my $pretty_code = $code->[2];              my $pretty_code = $code->[2];
2796              if ($pretty_code =~ /;/) {              if ($pretty_code =~ /;/) {
2797                  my ($cd, $ss) = split(";", $code->[2]);                  my ($cd, $ss) = split(";", $code->[2]);
2798                  print STDERR "$id: $cd, $ss\n";                  #print STDERR "$id: $cd, $ss\n";
2799                  if ($cd =~ /ilit|dlit/){                  if ($cd =~ /ilit|dlit/){
2800                      my ($type,$pubmed_id) = ($cd) =~ /(.*?)\((.*)\)/;                      my ($type,$pubmed_id) = ($cd) =~ /(.*?)\((.*)\)/;
2801                      my $publink = &HTML::alias_url($pubmed_id,'PMID');                      my $publink = &HTML::alias_url($pubmed_id,'PMID');

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.73

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3