[Bio] / FigKernelPackages / ACHserver.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/ACHserver.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14, Tue Dec 1 20:57:02 2009 UTC revision 1.16, Thu Dec 17 20:48:21 2009 UTC
# Line 1  Line 1 
1    
2  package ACHserver;  package ACHserver;
3    
 #  
 # This is a SAS Component  
 #  
4      use strict;      use strict;
5      use base qw(ClientThing);      use base qw(ClientThing);
6    
# Line 67  Line 64 
64      # Get the parameters.      # Get the parameters.
65      my ($class, %options) = @_;      my ($class, %options) = @_;
66      # Compute the URL.      # Compute the URL.
67      $options{url} = "http://servers.nmpdr.org/ach/server.cgi" if $options{url} eq '';      $options{url} = "http://servers.nmpdr.org/ach/server.cgi" if ! $options{url};
68      # Construct the subclass.      # Construct the subclass.
69      return $class->SUPER::new(ACH => %options);      return $class->SUPER::new(ACH => %options);
70  }  }

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3