[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul  3 13:07:50 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv29412/Perl/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
fixed the Relationships bug in MOBY::Central.  Misc fixes to Client and error reporting in the CGI client

moby-live/Perl/scripts MOBY-Client05.cgi,1.6,1.7
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/01 16:37:37	1.6
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/03 17:07:50	1.7
@@ -258,6 +258,8 @@
 sub Execute {
     # EXECUTE SELECTED SERVICE
     my $SelectedService = param('SelectedService');
+    unless ($SelectedService){$ERROR_FLAG = "You didn't select a service to execute"; return};
+
     my ($URI, $name) = (($SelectedService =~ /(.*?)#(.*)/) && ($1, $2));
     _LOG("Executing\n");