X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=utils%2FpatchGt.pl;h=19cb131f8a8ba73c3fe975ebc978ee731735db58;hb=4b48ff7b994c2eb30d06a19e68a1eecfcc9b82b5;hp=07811b0b32ee903b8491ce52c8a6130a7349e7e3;hpb=ff6fa95e2c5f7a9a0eb19422f292d31341d830f7;p=jalview.git 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 $_; }