[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jun 26 23:23:09 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv21641/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.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/06/25 21:07:09	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/06/27 03:23:09	1.2
@@ -28,7 +28,7 @@
         my $content;
         foreach (@child){
             $content .= $_->toString;
-            unless ($content =~ /namespace\s*=\s*['"]GO\/Accession.*?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 {