[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.72, Tue Sep 9 14:36:54 2008 UTC revision 1.73, Tue Sep 9 14:38:50 2008 UTC
# 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.72  
changed lines
  Added in v.1.73

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3