[freeside-commits] freeside/httemplate/misc svc_acct-domains.cgi,
1.2, 1.2.2.1
Jeff Finucane,420,,
jeff at wavetail.420.am
Wed Feb 28 11:41:32 PST 2007
Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory wavetail:/tmp/cvs-serv19021/misc
Modified Files:
Tag: FREESIDE_1_7_BRANCH
svc_acct-domains.cgi
Log Message:
restore (none) choice to first package select
Index: svc_acct-domains.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/svc_acct-domains.cgi,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -u -d -r1.2 -r1.2.2.1
--- svc_acct-domains.cgi 16 Feb 2007 20:54:06 -0000 1.2
+++ svc_acct-domains.cgi 28 Feb 2007 19:41:30 -0000 1.2.2.1
@@ -3,9 +3,10 @@
% my $pkgpart_svcpart = $cgi->param('arg');
% $pkgpart_svcpart =~ /^\d+_(\d+)$/;
% my $part_svc = qsearchs('part_svc', { 'svcpart' => $1 }) if $1;
-% my $part_svc_column = $part_svc->part_svc_column('domsvc');
+% my $part_svc_column = $part_svc->part_svc_column('domsvc') if $part_svc;
%
-% my @output = split /,/, $part_svc_column->columnvalue;
+% my @output = split /,/, $part_svc_column->columnvalue if $part_svc_column;
+% my $columnflag = $part_svc_column->columnflag if $part_svc_column;
% my @svc_domain = ();
% my %seen = ();
%
@@ -17,8 +18,7 @@
% $seen{$_}++;
% }
% if ($conf->exists('svc_acct-alldomains')
-% && ( $part_svc_column->columnflag eq 'D'
-% || $part_svc_column->columnflag eq '' )
+% && ( $columnflag eq 'D' || $columnflag eq '' )
% ) {
% foreach (grep { $_->svcnum ne $output[0] } qsearch('svc_domain', {}) ){
% push @svc_domain, [ $_->svcnum => $_->domain ];
More information about the freeside-commits
mailing list