X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_credit.pm;h=938686feafb150cfd2cc6d16815541e403438cb0;hp=9efb0c2c303faf12f0ddbf46e15a7efcbc7ff368;hb=b91858c22eae141b31fe0024ee2a04bdeae2f3c5;hpb=9e5c157b7be4ddf6d518a413857de5427149b745

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 9efb0c2c3..938686fea 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -420,9 +420,9 @@ sub _upgrade_data {  # class method
 
     warn "$me Checking for unmigrated reasons\n" if $DEBUG;
 
-    my @cust_credits = qsearch({ 'table' => $class->table,
-                                 'hashref' => {},
-                                 'extrasql' => 'WHERE reason IS NOT NULL',
+    my @cust_credits = qsearch({ 'table'     => $class->table,
+                                 'hashref'   => {},
+                                 'extra_sql' => 'WHERE reason IS NOT NULL',
                               });
 
     if (scalar(grep { $_->getfield('reason') =~ /\S/ } @cust_credits)) {