projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
da25a47
)
fix preference sort order for linking: sort unaudited services first, secondary sort...
author
ivan
<ivan>
Fri, 17 Jun 2005 05:31:50 +0000
(
05:31
+0000)
committer
ivan
<ivan>
Fri, 17 Jun 2005 05:31:50 +0000
(
05:31
+0000)
httemplate/misc/process/link.cgi
patch
|
blob
|
history
diff --git
a/httemplate/misc/process/link.cgi
b/httemplate/misc/process/link.cgi
index
2a3b3bb
..
c3d79e2
100755
(executable)
--- a/
httemplate/misc/process/link.cgi
+++ b/
httemplate/misc/process/link.cgi
@@
-19,7
+19,7
@@
unless ( $svcnum ) {
$search{$1} = $cgi->param('link_value2');
}
$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)
}
or ($b->cust_svc->svcpart == $svcpart)
<=> ($a->cust_svc->svcpart == $svcpart)
}
@@
-31,7
+31,7
@@
unless ( $svcnum ) {
"(svcpart $svcpart):\n";
foreach my $svc_x ( @svc_x ) {
warn " ". $svc_x->email.
"(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";
}
" pkgnum ". $svc_x->cust_svc->pkgnum. ",".
" svcpart ". $svc_x->cust_svc->svcpart. ")\n";
}