diff options
author | Karl Berry <karl@freefriends.org> | 2007-08-24 18:41:08 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-08-24 18:41:08 +0000 |
commit | 636d13a66cc63625779c228dd77846fb5f99c39e (patch) | |
tree | 64f5e7330bd707a8139352ff0a23866a194c4662 /Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl | |
parent | ac2dc0635882400d398bd97198d138880c7bcf64 (diff) |
doipubmed 1.01 (21aug07)
git-svn-id: svn://tug.org/texlive/trunk@4802 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl')
-rw-r--r-- | Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl | 29 |
1 files changed, 23 insertions, 6 deletions
diff --git a/Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl b/Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl index 614414481ab..64a14fd081a 100644 --- a/Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl +++ b/Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl @@ -1,9 +1,25 @@ #!/usr/bin/perl -# File : doipub.perl -# Author : Nicola Talbot -# Date : 9th September 2005 -# Description : LaTeX2HTML style file implementing doipubmed package +# File : doipub.perl +# Author : Nicola Talbot +# Date : 9th September 2005 +# Last Modified : 20 Aug 2007 +# Version : 1.01 +# +# This is a LaTeX2HTML style implementing the doipubmed package, and +# is distributed as part of that package. +# Copyright 2007 Nicola L.C. Talbot +# This work may be distributed and/or modified under the +# conditions of the LaTeX Project Public License, either version 1.3 +# of this license of (at your option) any later version. +# The latest version of this license is in +# http://www.latex-project.org/lppl.txt +# and version 1.3 or later is part of all distributions of LaTeX +# version 2005/12/01 or later. +# +# This work has the LPPL maintenance status `maintained'. +# +# The Current Maintainer of this work is Nicola Talbot. sub do_cmd_doitext{ local($_) = @_; @@ -27,8 +43,9 @@ sub do_cmd_doi{ s/$next_pair_pr_rx/$br_id=$1;$doi=$2;''/eo; - $doitext = &do_cmd_doitext("$OP$br_id$CP$doi$OP$br_id$CP"); + $doitext = &translate_commands("\\doitext$OP$br_id$CP$doi$OP$br_id$CP"); + $doi=~s/#/${percent_mark}23/g; join('', &make_href("http://dx.doi.org/$doi", $doitext), $_); @@ -40,7 +57,7 @@ sub do_cmd_pubmed{ s/$next_pair_pr_rx/$br_id=$1;$pubmed=$2;''/eo; - $pubmedtext = &do_cmd_pubmedtext("$OP$br_id$CP$pubmed$OP$br_id$CP"); + $pubmedtext = &translate_commands("\\pubmedtext$OP$br_id$CP$pubmed$OP$br_id$CP"); join('', &make_href("http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?cmd=Retrieve&db=PubMed&list_uids=$pubmed&dopt=Abstract", |