[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Sat Jul 12 02:58:27 UTC 2003


mwilkinson
Fri Jul 11 22:58:27 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv15515/Perl/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
small changes to the client.  Bigger changes coming because the client can't display my Blast report output and that made me angry ;-) 

moby-live/Perl/scripts MOBY-Client05.cgi,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/10 03:13:43	1.8
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 02:58:27	1.9
@@ -67,8 +67,8 @@
         push @ValidNamespaces, $k."~~~".$v;	# name and description
     }
 #	_LOG("INITIALIZING");
-
     @ValidNamespaces = sort @ValidNamespaces;
+
 	param('ValidObjects', @ValidObjects);
 	param('ValidServices', @ValidServices);
 	param('ValidNamespaces', @ValidNamespaces);
@@ -89,7 +89,8 @@
     my %nslabels = (%{$NameSpaces});
     print popup_menu(-name => 'namespace',
     '-values' => ["select", (sort (keys %{$NameSpaces}))],
-    '-default' => 'GO/Accession',
+#    '-values' => ["select", (keys %{$NameSpaces})],
+    '-default' => 'GO',
     );
 
     print p,
@@ -215,9 +216,9 @@
                 my $ns = $Xref_list->item($_)->getAttributeNode("namespace")->getValue();
                 my $id = $Xref_list->item($_)->getAttributeNode("id")->getValue();
                 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>"; 
+                    $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://bioinfo.pbi.nrc.ca:8099/cgi-bin/MOBY-Client.cgi?namespace=$ns;id=$id;reinitialize=1' target ='new'>$ns : $id</a>"; 
+                    $XrefString .= "<a href='http://mobycentral.cbr.nrc.ca/cgi-bin/Client/MOBY-Client05.cgi?namespace=$ns;id=$id;reinitialize=1' target ='new'>$ns : $id</a>,&nbsp;&nbsp;&nbsp;&nbsp;"; 
                 }
             }
             $XrefString .="<br>\n";




More information about the MOBY-guts mailing list