[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Dec 11 13:08:14 EST 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv4290

Modified Files:
	MOBY-Client05.cgi 
Log Message:
added Xrefs to my new services.  Small change in the client program to improve readability

moby-live/Perl/scripts MOBY-Client05.cgi,1.25,1.26
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/11/06 16:42:41	1.25
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/12/11 18:08:14	1.26
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 use strict;
-use lib '/usr/local/apache/cgi-bin/MOBY05';
+use lib '/usr/local/apache/cgi-bin/BIO/moby-live/Perl';
 
 use MOBY::Client::Central;
 use MOBY::Client::Service;
@@ -466,11 +466,15 @@
             my $output = "(";
             foreach my $param(@{$objs}){
                 if ($param->isSimple){
-                    $output .= "Simple:".($param->objectType)." ,";
+                    my $type = (($param->objectType =~ /\:(\S+)$/) && $1);
+                    $type = $param->objectType unless $type;
+                    $output .= "Simple: $type ,";
                 } else {
                     $output .= "Collection:[";
                     foreach my $simp(@{$param->Simples}){
-                        $output .= ($simp->objectType).",";
+                        my $type = (($simp->objectType =~ /\:(\S+)$/) && $1);
+                        $type = $simp->objectType unless $type;
+                        $output .= "$type,";
                     }
                     chop $output;
                     $output .="],";