[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.124, 1.125

[Ivan,,,]

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

Modified Files:
	MyAccount.pm 
Log Message:
fix old form of order_pkgs in favor of seconds_ref as an option, RT#10122

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.124
retrieving revision 1.125
diff -u -w -d -r1.124 -r1.125
--- MyAccount.pm	26 Dec 2010 04:09:26 -0000	1.124
+++ MyAccount.pm	14 Jan 2011 02:51:49 -0000	1.125
@@ -1272,7 +1272,7 @@
       map { $_ => $p->{$_} } @{$fields{$svcdb}}
     } );
     
-    if ( $svcdb eq 'svc_acct' ) {
+    if ( $svcdb eq 'svc_acct' && exists($p->{"snarf_machine1"}) ) {
       my @acct_snarf;
       my $snarfnum = 1;
       while ( length($p->{"snarf_machine$snarfnum"}) ) {
@@ -1302,7 +1302,7 @@
   tie my %hash, 'Tie::RefHash';
   %hash = ( $cust_pkg => \@svc );
   #msgcat
-  $error = $cust_main->order_pkgs( \%hash, '', 'noexport' => 1 );
+  $error = $cust_main->order_pkgs( \%hash, 'noexport' => 1 );
   return { 'error' => $error } if $error;
 
   my $conf = new FS::Conf;