[freeside-commits] freeside/FS/FS qual.pm,1.9,1.10

[Ivan,,,]

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

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

Index: qual.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/qual.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -d -r1.9 -r1.10
--- qual.pm	12 Mar 2011 21:13:34 -0000	1.9
+++ qual.pm	12 Mar 2011 21:30:57 -0000	1.10
@@ -184,8 +184,9 @@
     '';
 }
 
-sub location {
+sub location_hash {
     my $self = shift;
+    use Data::Dumper; warn Dumper($self);
     if ( $self->locationnum ) {
 	my $l = qsearchs( 'cust_location', 
 		    { 'locationnum' => $self->locationnum });
@@ -206,9 +207,9 @@
 	    return %loc_hash;
 	}
     }
-  # prospectnum does not imply any particular address! must specify locationnum
 
-    '';
+  warn "prospectnum does not imply any particular address! must specify locationnum";
+  return ();
 }
 
 sub cust_or_prospect {