fix small error with everyone.net export
authorivan <ivan>
Tue, 4 Oct 2005 20:27:41 +0000 (20:27 +0000)
committerivan <ivan>
Tue, 4 Oct 2005 20:27:41 +0000 (20:27 +0000)
FS/FS/part_export/everyone_net.pm

index 5a85b8d..221940d 100644 (file)
@@ -57,8 +57,8 @@ sub _xrc_command {
   );
 
   my $dresponse = $xrc->lookupMXReadyClientIDByEmailDomain( string($domain) );
-  return $response->error unless $response->is_success;
-  my $clientID = $response->content;
+  return $dresponse->error unless $dresponse->is_success;
+  my $clientID = $dresponse->content;
   return "clientID for domain $domain not found"
     if $clientID == -1;