[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Jul 12 14:42:08 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv18040/Perl/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
fixing the client

moby-live/Perl/scripts MOBY-Client05.cgi,1.13,1.14
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 18:33:37	1.13
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 18:42:08	1.14
@@ -235,7 +235,7 @@
             my $data;
             if (($_->getNodeType == TEXT_NODE) || ($_->getNodeType == CDATA_SECTION_NODE)){
                 $data = $_->toString;
-                chomp $data;
+                $data =~ s/^\s+//; $data =~ s/\s+$//; chomp $data;
                 next unless $data;
                 $data = "<pre>".($_->toString)."</pre>";
             } elsif ($_->getNodeType == ELEMENT_NODE){
@@ -248,6 +248,7 @@
                 }
                 $OBJ .= "<b>$article (".escapeHTML($_->getTagName).")</b> : ";
                 foreach my $content($_->getChildNodes){
+                    _LOG("FOUND CONTENT $content\n");
                     $data .= $content->toString if (($content->getNodeTypeName == TEXT_NODE) || ($_->getNodeType == CDATA_SECTION_NODE));
                 }
             }