#!/usr/bin/perl -Tw # # $Id: cust_main.cgi,v 1.6 1999-01-18 09:41:24 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. # ivan@voicenet.com 96-dec-16 # # referral defaults to blank, to force people to pick something # ivan@voicenet.com 97-jun-4 # # rewrote for new API # ivan@voicenet.com 97-jul-28 # # new customer is null, not '#' # otaker gotten from &getotaker instead of $ENV{REMOTE_USER} # ivan@sisd.com 97-nov-12 # # cgisuidsetup($cgi); # no need for old_ fields. # now state+county is a select field (took out PA hack) # used autoloaded $cust_main->field methods # ivan@sisd.com 97-dec-17 # # fixed quoting problems ivan@sisd.com 98-feb-23 # # paydate sql update ivan@sisd.com 98-mar-5 # # Changes to allow page to work at a relative position in server # Changed 'day' to 'daytime' because Pg6.3 reserves the day word # Added test for paydate in mm-dd-yyyy format for Pg6.3 default format # bmccane@maxbaud.net 98-apr-3 # # fixed one missed day->daytime ivan@sisd.com 98-jul-13 # # $Log: cust_main.cgi,v $ # 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 # fix double // in relative URLs, s/CGI::Base/CGI/; # use strict; use CGI::Switch; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup getotaker); use FS::Record qw(qsearch qsearchs); use FS::CGI qw(header popurl itable table); use FS::cust_main; my $cgi = new CGI; cgisuidsetup($cgi); #get record my ( $custnum, $action, $cust_main ); if ( $cgi->keywords ) { #editing my( $query ) = $cgi->keywords; $query =~ /^(\d+)$/; $custnum=$1; $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); $action='Edit'; } else { $custnum=''; $cust_main = new FS::cust_main ( {} ); $cust_main->setfield('otaker',&getotaker); $action='Add'; } # top my $p1 = popurl(1); print $cgi->header( '-expires' => 'now' ), header("Customer $action", ''), qq!