summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl')
-rw-r--r--Master/texmf-dist/doc/latex/doipubmed/doipubmed.perl29
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",