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

Diff of /FigKernelPackages/HTML.pm

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

revision 1.126, Thu Jun 5 19:50:12 2008 UTC revision 1.127, Wed Jul 16 22:12:00 2008 UTC
# Line 1424  Line 1424 
1424      return $x;      return $x;
1425  }  }
1426    
1427    sub lit_link {
1428        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1429        my($id) = @_;
1430    
1431        if ( $id =~ /([di]lit)\((\d+)\)/ )
1432        {
1433            my($pre, $pubmed_id) = ($1, $2);
1434            my $pubmed_url = &alias_url($pubmed_id, 'PMID');
1435            $id = "$pre(<a href='$pubmed_url' target=_blank>$pubmed_id</a>)";
1436        }
1437        return $id;
1438    }
1439    
1440  sub trembl_link {  sub trembl_link {
1441      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1442      my($cgi,$id) = @_;      my($cgi,$id) = @_;

Legend:
Removed from v.1.126  
changed lines
  Added in v.1.127

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3