X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=htdocs%2Fedit%2Fcust_main.cgi;h=901923d98a50c82ae69dc2356c5af2307dafe879;hp=35b80fa148a21ecbb332d5d09b10c909e994e475;hb=59518b8dec0720fdf32aab8a1ecc2dbb689a0b85;hpb=de46aa575f3e726a9b005172706cff5e542955fd
diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi
index 35b80fa14..901923d98 100755
--- a/htdocs/edit/cust_main.cgi
+++ b/htdocs/edit/cust_main.cgi
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.10 1999-02-28 00:03:34 ivan Exp $
+# $Id: cust_main.cgi,v 1.11 1999-03-25 13:55:10 ivan Exp $
#
# Usage: cust_main.cgi custnum
# http://server.name/path/cust_main.cgi?custnum
@@ -38,7 +38,11 @@
# fixed one missed day->daytime ivan@sisd.com 98-jul-13
#
# $Log: cust_main.cgi,v $
-# Revision 1.10 1999-02-28 00:03:34 ivan
+# Revision 1.11 1999-03-25 13:55:10 ivan
+# one-screen new customer entry (including package and service) for simple
+# packages with one svc_acct service
+#
+# Revision 1.10 1999/02/28 00:03:34 ivan
# removed misleading comments
#
# Revision 1.9 1999/02/23 08:09:20 ivan
@@ -104,7 +108,9 @@ if ( $cgi->param('error') ) {
map { $_, scalar($cgi->param($_)) } fields('cust_main')
} );
$custnum = $cust_main->custnum;
- $pkgpart = $cgi->param('pkgpart');
+ $pkgpart = $cgi->param('pkgpart_svcpart');
+ $pkgpart =~ /^(\d+)_/;
+ $pkgpart = $1;
$username = $cgi->param('username');
$password = $cgi->param('_password');
$popnum = $cgi->param('popnum');
@@ -343,27 +349,35 @@ unless ( $custnum ) {
#foreach ( @pkg_svc ) {
foreach ( qsearch( 'pkg_svc', {} ) ) {
my $part_svc = qsearchs ( 'part_svc', { 'svcpart' => $_->svcpart } );
- $pkgpart{ $_->pkgpart } = 9999 # never will == 1 below
+ $pkgpart{ $_->pkgpart } = -1 # never will == 1 below
if ( $part_svc->svcdb ne 'svc_acct' );
- $pkgpart{ $_->pkgpart }++;
+ if ( $pkgpart{ $_->pkgpart } ) {
+ $pkgpart{ $_->pkgpart } = '-1';
+ } else {
+ $pkgpart{ $_->pkgpart } = $_->svcpart;
+ }
}
my @part_pkg =
#grep { $pkgpart{ $_->pkgpart } == 1 } qsearch( 'part_pkg', {} );
grep {
- ( $pkgpart{ $_->pkgpart } || 0 ) == 1
+ #( $pkgpart{ $_->pkgpart } || 0 ) == 1
+ $pkgpart{ $_->pkgpart }
+ && $pkgpart{ $_->pkgpart } != -1
&& $part_pkg{ $_->pkgpart }
+ ;
} qsearch( 'part_pkg', {} );
if ( @part_pkg ) {
print "
First package", itable("#c0c0c0"),
- qq!