X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=htdocs%2Fedit%2Fcust_main.cgi;h=51cf0ab1e245bcc1e8ce196100259756c4109e39;hp=901923d98a50c82ae69dc2356c5af2307dafe879;hb=ff9083f7660a3397d73377efec15feff432d5958;hpb=59518b8dec0720fdf32aab8a1ecc2dbb689a0b85 diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi index 901923d98..51cf0ab1e 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.11 1999-03-25 13:55:10 ivan Exp $ +# $Id: cust_main.cgi,v 1.15 1999-04-14 13:14:54 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -38,7 +38,20 @@ # fixed one missed day->daytime ivan@sisd.com 98-jul-13 # # $Log: cust_main.cgi,v $ -# Revision 1.11 1999-03-25 13:55:10 ivan +# Revision 1.15 1999-04-14 13:14:54 ivan +# configuration option to edit referrals of existing customers +# +# Revision 1.14 1999/04/14 07:47:53 ivan +# i18n fixes +# +# Revision 1.13 1999/04/09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.12 1999/04/06 11:16:16 ivan +# give a meaningful error message if you try to create a customer before you've +# created an agent +# +# 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 # @@ -101,6 +114,8 @@ use FS::cust_main_county; $cgi = new CGI; cgisuidsetup($cgi); +$conf = new FS::Conf; + #get record if ( $cgi->param('error') ) { @@ -108,9 +123,12 @@ if ( $cgi->param('error') ) { map { $_, scalar($cgi->param($_)) } fields('cust_main') } ); $custnum = $cust_main->custnum; - $pkgpart = $cgi->param('pkgpart_svcpart'); - $pkgpart =~ /^(\d+)_/; - $pkgpart = $1; + $pkgpart = $cgi->param('pkgpart_svcpart') || ''; + if ( $pkgpart =~ /^(\d+)_/ ) { + $pkgpart = $1; + } else { + $pkgpart = ''; + } $username = $cgi->param('username'); $password = $cgi->param('_password'); $popnum = $cgi->param('popnum'); @@ -152,6 +170,7 @@ print qq!