X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fedit%2Fcust_main.cgi;h=cb8ec83ee4ea91e66477a0fb0d748713ce83d13f;hb=c661868d1119af8a911c47982b52a2c89776c752;hp=19db4a9072e7d8407917a89cc3c33ed411c38b89;hpb=c7e564bd708dd0181763cbca28b303d8d6445e45;p=freeside.git diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi index 19db4a907..cb8ec83ee 100755 --- a/htdocs/edit/cust_main.cgi +++ b/htdocs/edit/cust_main.cgi @@ -1,12 +1,10 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.4 1998-12-23 08:08:15 ivan Exp $ +# $Id: cust_main.cgi,v 1.27 2000-12-03 13:45:15 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum # -# Note: Should be run setuid freeside as user nobody. -# # ivan@voicenet.com 96-nov-29 -> 96-dec-04 # # Blank custnum for new customer. @@ -40,7 +38,77 @@ # fixed one missed day->daytime ivan@sisd.com 98-jul-13 # # $Log: cust_main.cgi,v $ -# Revision 1.4 1998-12-23 08:08:15 ivan +# Revision 1.27 2000-12-03 13:45:15 ivan +# patch from Jason Spence : admin.html doc, autocapgen +# +# Revision 1.26 2000/06/27 12:15:50 ivan +# i18n +# +# Revision 1.25 2000/03/02 08:09:38 ivan +# still need to allow blank expiration dates +# +# Revision 1.24 2000/01/30 06:54:50 ivan +# credit card expiration dates not sticky bug fixed? +# +# Revision 1.23 2000/01/27 00:53:14 ivan +# 5.004_04 workaround +# +# Revision 1.22 1999/12/17 02:33:23 ivan +# argh +# +# Revision 1.21 1999/08/23 07:40:38 ivan +# missing flag +# +# Revision 1.20 1999/08/23 07:08:11 ivan +# no CGI::Switch for now +# +# Revision 1.19 1999/08/21 02:14:25 ivan +# better error message for no agents +# +# Revision 1.18 1999/08/11 15:38:33 ivan +# fix for perl 5.004_04 +# +# Revision 1.17 1999/08/10 11:15:45 ivan +# corrected a misleading comment +# +# 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 +# +# Revision 1.10 1999/02/28 00:03:34 ivan +# removed misleading comments +# +# Revision 1.9 1999/02/23 08:09:20 ivan +# beginnings of one-screen new customer entry and some other miscellania +# +# Revision 1.8 1999/01/25 12:09:53 ivan +# yet more mod_perl stuff +# +# Revision 1.7 1999/01/19 05:13:34 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.6 1999/01/18 09:41:24 ivan +# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl +# (good idea anyway) +# +# Revision 1.5 1999/01/18 09:22:30 ivan +# changes to track email addresses for email invoicing +# +# Revision 1.4 1998/12/23 08:08:15 ivan # fix typo # # Revision 1.3 1998/12/17 06:17:00 ivan @@ -48,71 +116,185 @@ # use strict; +use vars qw( $cgi $custnum $action $cust_main $p1 @agents $agentnum + $last $first $ss $company $address1 $address2 $city $zip + $daytime $night $fax @invoicing_list $invoicing_list $payinfo + $payname %payby %paybychecked $refnum $otaker $r ); +use vars qw ( $conf $pkgpart $username $password $popnum $ulen $ulen2 ); +#use CGI::Switch; use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup getotaker); -use FS::Record qw(qsearch qsearchs); -use FS::CGI qw(header popurl); +#use FS::Record qw(qsearch qsearchs fields); +use FS::Record qw(qsearch qsearchs fields dbdef); +use FS::CGI qw(header popurl itable table); use FS::cust_main; +use FS::agent; +use FS::part_referral; +use FS::cust_main_county; + + #for misplaced logic below + use FS::part_pkg; + + #for false laziness below + use FS::svc_acct_pop; -my($cgi) = new CGI; + #for (other) false laziness below + use FS::agent; + use FS::type_pkgs; +$cgi = new CGI; cgisuidsetup($cgi); +$conf = new FS::Conf; + #get record -my($custnum,$action,$cust_main); -my($query) = $cgi->keywords; -if ( $query =~ /^(\d+)$/ ) { #editing + +if ( $cgi->param('error') ) { + $cust_main = new FS::cust_main ( { + map { $_, scalar($cgi->param($_)) } fields('cust_main') + } ); + $custnum = $cust_main->custnum; + $pkgpart = $cgi->param('pkgpart_svcpart') || ''; + if ( $pkgpart =~ /^(\d+)_/ ) { + $pkgpart = $1; + } else { + $pkgpart = ''; + } + $username = $cgi->param('username'); + $password = $cgi->param('_password'); + $popnum = $cgi->param('popnum'); +} elsif ( $cgi->keywords ) { #editing + my( $query ) = $cgi->keywords; + $query =~ /^(\d+)$/; $custnum=$1; - $cust_main = qsearchs('cust_main',{'custnum'=>$custnum}); - $action='Edit'; + $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); + $pkgpart = 0; + $username = ''; + $password = ''; + $popnum = 0; } else { $custnum=''; - $cust_main = create FS::cust_main ( {} ); + $cust_main = new FS::cust_main ( {} ); $cust_main->setfield('otaker',&getotaker); - $action='Add'; + $pkgpart = 0; + $username = ''; + $password = ''; + $popnum = 0; } +$action = $custnum ? 'Edit' : 'Add'; + +# top + +$p1 = popurl(1); +print $cgi->header( '-expires' => 'now' ), header("Customer $action", ''); +print qq!Error: !, $cgi->param('error'), + "" + if $cgi->param('error'); -my $p1 = popurl(1); -print $cgi->header, header("Customer $action", ''), < - 
+# JRS: Javascript to set up the form for us
+    if ( $conf->exists('autocapnames') ) {
+      print <
+
 END
+}
+
+print qq!
!,
+      qq!!,
+      qq!Customer # !, ( $custnum ? $custnum : " (NEW)" ),
+      
+;
+
+# agent
+
+$r = qq!*!;
 
-print qq!!,
-      qq!Customer #!;
-print $custnum ? $custnum : " (NEW)" , "";
-
-#agentnum
-my($agentnum)=$cust_main->agentnum || 1; #set to first agent by default
-my @agents = qsearch( 'agent', {} );
-print qq!\n\nAgent # !;
+} else {
+  print qq!

${r}Agent ";
 }
-print "";
 
 #referral
-#unless ($custnum) {
-  my($refnum)=$cust_main->refnum || 0; #to avoid "arguement not numeric" error
+
+$refnum = $cust_main->refnum || 0;
+if ( $custnum && ! $conf->exists('editreferrals') ) {
+  print qq!!;
+} else {
   my(@referrals) = qsearch('part_referral',{});
-  print qq!\nReferral !;
+  } else {
+    print qq!

${r}Referral ";
   }
-  print "";
-#}
+}
+
 
-my($last,$first,$ss,$company,$address1,$address2,$city)=(
+# contact info
+
+($last,$first,$ss,$company,$address1,$address2,$city,$zip)=(
   $cust_main->last,
   $cust_main->first,
   $cust_main->ss,
@@ -120,18 +302,35 @@ my($last,$first,$ss,$company,$address1,$address2,$city)=(
   $cust_main->address1,
   $cust_main->address2,
   $cust_main->city,
+  $cust_main->zip,
 );
 
-print <
Contact information", &itable("#c0c0c0"), <${r}Contact name
(last, first)
+END
 
+if ( $conf->exists('autocapnames') ) {
+  print <, 
+
+END
+} else {
+  print <, 
+
+END
+}
 
-Name (last) (first)  SS# 
-Company 
-Address 
-        
-City   State (county) / Country
+Company
+${r}Address
+ 
+${r}City${r}State/Country";
+print qq!${r}Zip!;
 
-my($zip,$daytime,$night,$fax)=(
-  $cust_main->zip,
+($daytime,$night,$fax)=(
   $cust_main->daytime,
   $cust_main->night,
   $cust_main->fax,
 );
 
 print <
+Day Phone
+Night Phone
+Fax
+END
 
-Phone (daytime)  (night)  (fax)
+print "$r required fields
";
 
-END
+# billing info
 
-my(%payby)=(
-  'CARD' => "Credit card    ",
-  'BILL' => "Billing    ",
-  'COMP' => "Complimentary",
-);
-for (qw(CARD BILL COMP)) {
-  print qq!payby eq "$_");
-  print qq!>$payby{$_}!;
+sub expselect {
+  my $prefix = shift;
+  my( $m, $y ) = (0, 0);
+  if ( scalar(@_) ) {
+    my $date = shift || '01-2000';
+    if ( $date  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
+      ( $m, $y ) = ( $2, $1 );
+    } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
+      ( $m, $y ) = ( $1, $3 );
+    } else {
+      die "unrecognized expiration date format: $date";
+    }
+  }
+
+  my $return = qq!!;
+  for ( 1999 .. 2037 ) {
+    $return .= "Billing information", &itable("#c0c0c0"),
+      qq!tax eq "Y";
+print qq!>Tax Exempt!;
+print qq!invoicing_list;
+print qq! CHECKED!
+  if ! @invoicing_list || grep { $_ eq 'POST' } @invoicing_list;
+print qq!>Postal mail invoice!;
+$invoicing_list = join(', ', grep { $_ ne 'POST' } @invoicing_list );
+print qq!Email invoice !;
 
-my($payinfo,$payname,$otaker)=(
+print "Billing type",
+      "",
+      &table("#c0c0c0"), "";
+
+($payinfo, $payname)=(
   $cust_main->payinfo,
   $cust_main->payname,
-  $cust_main->otaker,
 );
 
-my($paydate);
-if ( $cust_main->paydate =~ /^(\d{4})-(\d{2})-\d{2}$/ ) {
-  $paydate="$2/$1"
-} elsif ( $cust_main->paydate =~ /^(\d{2})-\d{2}-(\d{4}$)/ ) {
-  $paydate="$1/$2"
-}
-else {
-  $paydate='';
+%payby = (
+  'CARD' => qq!Credit card
${r}
${r}Exp !. expselect("CARD"). qq!
${r}Name on card
!,
+  'BILL' => qq!Billing
P.O. 
${r}Exp !. expselect("BILL", "12-2037"). qq!
${r}Attention
!,
+  'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP"),
+);
+%paybychecked = (
+  'CARD' => qq!Credit card
${r}
${r}Exp !. expselect("CARD", $cust_main->paydate). qq!
${r}Name on card
!,
+  'BILL' => qq!Billing
P.O. 
${r}Exp !. expselect("BILL", $cust_main->paydate). qq!
${r}Attention
!,
+  'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP", $cust_main->paydate),
+);
+for (qw(CARD BILL COMP)) {
+  print qq!payby eq "$_") {
+    print qq! CHECKED> $paybychecked{$_}!;
+  } else {
+    print qq!> $payby{$_}!;
+  }
 }
 
-print <$r required fields for each billing type";
 
-  Card number ,   P.O. #   or   Authorization    
-END
+unless ( $custnum ) {
+  # pry the wrong place for this logic.  also pretty expensive
+  #use FS::part_pkg;
 
-print qq!Exp. date (MM/YY or MM/YYYY)    Billing name \ntax eq "Y";
-print qq!> Tax Exempt!;
+  #false laziness, copied from FS::cust_pkg::order
+  my $pkgpart;
+  if ( scalar(@agents) == 1 ) {
+    # $pkgpart->{PKGPART} is true iff $custnum may purchase $pkgpart
+    my($agent)=qsearchs('agent',{'agentnum'=> $agentnum });
+    $pkgpart = $agent->pkgpart_hashref;
+  } else {
+    #can't know (agent not chosen), so, allow all
+    my %typenum;
+    foreach my $agent ( @agents ) {
+      next if $typenum{$agent->typenum}++;
+      #fixed in 5.004_05 #$pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
+      foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; } #5.004_04 workaround
+    }
+  }
+  #eslaf
 
-print <svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
+    qsearch( 'part_pkg', {} );
 
+  if ( @part_pkg ) {
 
-Order taken by: $otaker
-
-END + print "

First package", &itable("#c0c0c0"), + qq!!; + print qq!