[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jun 26 23:26:49 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv21754/Perl/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
Had to change the service code now that we are using GO database abbreviations.  GO/Accession has now become just GO

moby-live/Perl/scripts/Services LocalServices.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/06/27 03:23:37	1.3
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/06/27 03:26:49	1.4
@@ -28,7 +28,7 @@
         my $content;
         foreach (@child){
             $content .= $_->toString;
-            unless ($content =~ /namespace\s*=\s*['"]GO*?id\s*=\s*['"](GO:\d\d\d\d\d\d\d)/s){
+            unless ($content =~ /namespace\s*=\s*['"]GO.*?id\s*=\s*['"](GO:\d\d\d\d\d\d\d)/s){
                 push @accessions, undef;
                 next;
             } else {