[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Dec 19 14:04:30 EST 2007
Update of /home/repository/moby/moby-live/Perl/scripts
In directory dev.open-bio.org:/tmp/cvs-serv19642/Perl/scripts

Modified Files:
	GenerateRDF.cgi 
Log Message:

moby-live/Perl/scripts GenerateRDF.cgi,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/GenerateRDF.cgi,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/scripts/GenerateRDF.cgi	2007/12/18 17:37:24	1.4
+++ /home/repository/moby/moby-live/Perl/scripts/GenerateRDF.cgi	2007/12/19 19:04:30	1.5
@@ -28,7 +28,10 @@
 my %p = $form->Vars unless param('keywords');
 %p = ($form->param('keywords') => '') if param('keywords');
 
-if (defined $p{'service'} and defined $p{'authority'} and $p{'service'}) {
+my $service   = $p{'service'} || '';
+my $authority = $p{'authority'} || '';
+
+if ($service and $authority) {
 	
 	my $name = $p{'service'};
 	$name =~ s/ //g;
@@ -47,7 +50,7 @@
 		authURI => $p{'authority'} 
 	});
 	
-}  elsif (not exists $p{'service'} and exists $p{'authority'}) {
+} elsif ($authority and not $service) {
 	
 	print "Content-type: application/rdf+xml\n";
 	print "Content-Disposition: attachment; filename=". $p{'authority'} . ".rdf\n";
@@ -60,8 +63,8 @@
 		isAlive => 'no' 
 	});
 } else {
-	print "Content-type: text/html\n";
-	print &GENERATE_FORM;
+	print "Content-type: text/html\n\n";
+	print &GENERATE_FORM();
 }