From: jprocter Date: Thu, 4 Jun 2009 08:38:04 +0000 (+0000) Subject: script goes at beginning of body to allow linkthrus to be embedded. X-Git-Tag: Release_2_5~299 X-Git-Url: http://source.jalview.org/gitweb/?a=commitdiff_plain;h=a6f45fefc0db0783d7039309313571dd9ee328ee;p=jalview.git script goes at beginning of body to allow linkthrus to be embedded. --- diff --git a/utils/patchGt.pl b/utils/patchGt.pl index 07811b0..19cb131 100644 --- a/utils/patchGt.pl +++ b/utils/patchGt.pl @@ -5,6 +5,7 @@ use Env qw($GTID); defined($GTID) or $GTID="UA-9060947-1"; my $SCRIPT = < - FOO while (scalar @ARGV) @@ -28,8 +28,10 @@ while (scalar @ARGV) if (open OF,">$f.".$GTID) { if (open IF,"$f") { while () { - if ($_=~m!!) { - $_=~s!!$SCRIPT!; + if ($_=~m!!) { + $_=~s!!$SCRIPT!; + } else { +# $_=~s!href="([~"]+)"!href="$1" onclick=" } print OF $_; }