[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.64, Tue Jul 15 20:06:55 2008 UTC revision 1.65, Thu Aug 7 19:22:46 2008 UTC
# Line 2581  Line 2581 
2581              my $pretty_code = $code->[2];              my $pretty_code = $code->[2];
2582              if ($pretty_code =~ /;/) {              if ($pretty_code =~ /;/) {
2583                  my ($cd, $ss) = split(";", $code->[2]);                  my ($cd, $ss) = split(";", $code->[2]);
2584                    print STDERR "$id: $cd, $ss\n";
2585                    if ($cd =~ /ilit|dlit/){
2586                        my ($type,$pubmed_id) = ($cd) =~ /(.*?)\((.*)\)/;
2587                        my $publink = &HTML::alias_url($pubmed_id,'PMID');
2588                        $cd = $type . "(<a href='" . $publink . "'>" . $pubmed_id . "</a>)";
2589                    }
2590                  $ss =~ s/_/ /g;                  $ss =~ s/_/ /g;
2591                  $pretty_code = $cd;# . " in " . $ss;                  $pretty_code = $cd;# . " in " . $ss;
2592              }              }

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3