refactor transaction from process/qual.cgi to qual.pm insert, RT#7111

[freeside.git] / httemplate / view / qual.cgi

diff --git a/httemplate/view/qual.cgi b/httemplate/view/qual.cgi
index 45f3d2a..ec3a7cf 100644 (file)
--- a/httemplate/view/qual.cgi
+++ b/httemplate/view/qual.cgi
@@ -37,7 +37,7 @@
 %   my $pkglist = $qual_result->{'pkglist'};
 %   my $cust_or_prospect = $qual->cust_or_prospect;
 %   my $locationnum = '';
-%   my %location = $qual->location;
+%   my %location = $qual->location_hash;
 %   if (%location && $location{'locationnum'}) { 
 %      $locationnum = $location{'locationnum'};
 %   }
@@ -82,7 +82,7 @@ if ( $cgi->param('qualnum') ) {
 
 my $qual = qsearchs('qual', { qualnum => $qualnum }) or die "invalid qualnum";
 my $location_line = '';
-my %location_hash = $qual->location;
+my %location_hash = $qual->location_hash;
 my $cust_location;
 if ( %location_hash ) {
     $cust_location = new FS::cust_location(\%location_hash);