freeside/httemplate/misc/process link.cgi,1.13,1.14

[Ivan Kohler]

Update of /home/cvs/cvsroot/freeside/httemplate/misc/process
In directory pouncequick:/tmp/cvs-serv18089

Modified Files:
	link.cgi 
Log Message:
fix preference sort order for linking: sort unaudited services first, secondary sort by svcaprt

Index: link.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/process/link.cgi,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- link.cgi	17 Jun 2005 05:07:48 -0000	1.13
+++ link.cgi	17 Jun 2005 05:31:50 -0000	1.14
@@ -19,7 +19,7 @@
     $search{$1} = $cgi->param('link_value2');
   }
 
-  my @svc_x = ( sort { ($b->cust_svc->pkgnum > 0) <=> ($a->cust_svc->pkgnum > 0)
+  my @svc_x = ( sort { ($a->cust_svc->pkgnum > 0) <=> ($b->cust_svc->pkgnum > 0)
                        or ($b->cust_svc->svcpart == $svcpart)
                             <=> ($a->cust_svc->svcpart == $svcpart)
                      }
@@ -31,7 +31,7 @@
          "(svcpart $svcpart):\n";
     foreach my $svc_x ( @svc_x ) {
       warn "  ". $svc_x->email.
-           " (svcnum".  $svc_x->svcnum. ",".
+           " (svcnum ". $svc_x->svcnum. ",".
            " pkgnum ".  $svc_x->cust_svc->pkgnum. ",".
            " svcpart ". $svc_x->cust_svc->svcpart. ")\n";
     }