[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Sep 22 12:25:19 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv20398/Perl/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
moving some common subs around so that they are not module-specific

moby-live/Perl/scripts MOBY-Client05.cgi,1.23,1.24
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/08/20 14:28:12	1.23
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/09/22 16:25:19	1.24
@@ -182,7 +182,7 @@
                 if (($ENV{HTTP_HOST} =~ /localhost/) || ($ENV{HTTP_HOST} =~ /192\.168\.1\./)){               
                     $XrefString .= "<a href='http://localhost/cgi-bin/MOBY-Client.cgi?namespace=$ns;id=$id;reinitialize=1' target ='new'>$ns : $id</a>,&nbsp;&nbsp;&nbsp;&nbsp;"; 
                 } else {
-                    $XrefString .= "<a href='http://$ENV{SERVER_NAME}/$ENV{SCRIPT_NAME}?namespace=$ns;id=$id;reinitialize=1' target ='new'>$ns : $id</a>,&nbsp;&nbsp;&nbsp;&nbsp;"; 
+                    $XrefString .= "<a href='http://$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}?namespace=$ns;id=$id;reinitialize=1' target ='new'>$ns : $id</a>,&nbsp;&nbsp;&nbsp;&nbsp;"; 
                 }
             }
             $XrefString .="<br>\n";