[freeside-commits] freeside/FS/FS/part_export ikano.pm,1.18,1.19

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv5187/FS/FS/part_export

Modified Files:
	ikano.pm 
Log Message:
refactor transaction from process/qual.cgi to qual.pm insert, RT#7111

Index: ikano.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/ikano.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -d -r1.18 -r1.19
--- ikano.pm	20 Jan 2011 20:46:29 -0000	1.18
+++ ikano.pm	12 Mar 2011 21:30:57 -0000	1.19
@@ -258,12 +258,14 @@
      } );
 }
 
+# address always required for Ikano qual, TN optional (assume dry if not given)
 sub qual {
     my($self,$qual) = (shift,shift);
-# address always required for Ikano qual, TN optional (assume dry if not given)
 
-    my %location_hash = $qual->location; 
-    return 'No address provided' unless %location_hash;
+    my %location_hash = $qual->location_hash; 
+    warn Dumper $qual->location_hash;
+    return 'No address provided' unless keys %location_hash;
+
     my $svctn = $qual->phonenum;
 
     my $result = $self->ikano_command('PREQUAL',