projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
beb9cc8
)
add debugging for accounts picked to pick
author
ivan
<ivan>
Fri, 17 Jun 2005 04:42:06 +0000
(
04:42
+0000)
committer
ivan
<ivan>
Fri, 17 Jun 2005 04:42:06 +0000
(
04:42
+0000)
httemplate/misc/process/link.cgi
patch
|
blob
|
history
diff --git
a/httemplate/misc/process/link.cgi
b/httemplate/misc/process/link.cgi
index
acdd1ad
..
7768b3b
100755
(executable)
--- a/
httemplate/misc/process/link.cgi
+++ b/
httemplate/misc/process/link.cgi
@@
-1,5
+1,7
@@
<%
<%
+my $DEBUG = 0;
+
$cgi->param('pkgnum') =~ /^(\d+)$/;
my $pkgnum = $1;
$cgi->param('svcpart') =~ /^(\d+)$/;
$cgi->param('pkgnum') =~ /^(\d+)$/;
my $pkgnum = $1;
$cgi->param('svcpart') =~ /^(\d+)$/;
@@
-16,14
+18,30
@@
unless ( $svcnum ) {
if ( $cgi->param('link_field2') =~ /^(\w+)$/ ) {
$search{$1} = $cgi->param('link_value2');
}
if ( $cgi->param('link_field2') =~ /^(\w+)$/ ) {
$search{$1} = $cgi->param('link_value2');
}
- my $svc_x = ( sort { ($b->cust_svc->pkgnum > 0) <=> ($a->cust_svc->pkgnum > 0)
+
+ my @svc_x = ( sort { ($b->cust_svc->pkgnum > 0) <=> ($a->cust_svc->pkgnum > 0)
or ($b->cust_svc->svcpart == $svcpart)
<=> ($a->cust_svc->svcpart == $svcpart)
}
qsearch( $svcdb, \%search )
or ($b->cust_svc->svcpart == $svcpart)
<=> ($a->cust_svc->svcpart == $svcpart)
}
qsearch( $svcdb, \%search )
- )[0];
+ );
+
+ if ( $DEBUG ) {
+ warn scalar(@svc_x). " candidate accounts found for linking ".
+ "(svcpart $svcpart):\n";
+ foreach my $svc_x ( @svc_x ) {
+ warn " ". $svc_x->email.
+ " (pkgnum ". $_->cust_svc->pkgnum.
+ ", svcpart ". $_->cust_svc->svcpart. ")\n";
+ }
+ }
+
+ my $svc_x = $svc_x[0];
+
eidiot("$link_field not found!") unless $svc_x;
eidiot("$link_field not found!") unless $svc_x;
+
$svcnum = $svc_x->svcnum;
$svcnum = $svc_x->svcnum;
+
}
my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum});
}
my $old = qsearchs('cust_svc',{'svcnum'=>$svcnum});