[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Dec  9 17:56:19 EST 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv28967/Perl/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
eek, I broke all my services.  I am no longer poping the SOM off the end of the argument list, since I never use it.  They should all kick back into life now

moby-live/Perl/scripts/Services LocalServices.pm,1.39,1.40
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/09 22:47:16	1.39
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/09 22:56:19	1.40
@@ -202,7 +202,6 @@
 #  =        namespace                            =
 #  ===============================================
 sub GenbankAccVirtualSequenceRetrieve {
-    my $SOM = pop;  
     my ($self, $data) = @_;
     my $response; my @accessions;
 
@@ -246,7 +245,6 @@
     return $SOAPResponse
 }
 sub GenbankAccSequenceRetrieve {
-    my $SOM = pop;  
     my ($self, $data) = @_;
     my $response; my @accessions;
 
@@ -291,7 +289,6 @@
     return $SOAPResponse   
 }
 sub GenbankGIVirtualSequenceRetrieve {
-    my $SOM = pop;  
     my ($self, $data) = @_;
     my $response; my @accessions;
 
@@ -336,7 +333,6 @@
 }
 
 sub GenbankGISequenceRetrieve {
-    my $SOM = pop;  
     my ($self, $data) = @_;
     my $response; my @accessions;
 
@@ -389,7 +385,7 @@
 # and producing GenericSequence objects.  However, it will
 # actually produce DNA, RNA or PRotein objects, as appropriate
 # and will produce a cross-reference block as well
-    my $SOM = pop;  
+
     my ($self, $data) = @_;
     my $response; my @gis;
 
@@ -476,7 +472,6 @@
 sub GenbankRecordRetrieve {
 	use Bio::SeqIO;
 	use IO::String;
-    my $SOM = pop;  
     my ($self, $data) = @_;
     my $response; # prepare a variable to hold the responses
 
@@ -548,7 +543,7 @@
 #################################################
 
 sub getDragonMutantImages {
-	my $SOM = pop;  
+
     my ($self, $data) = @_;
 	use Ace;
 	use LWP::UserAgent;