#!/usr/bin/perl -Tw
#
-# $Id: signup.cgi,v 1.43 2003-07-04 03:21:42 ivan Exp $
+# $Id: signup.cgi,v 1.45 2003-09-29 06:51:24 ivan Exp $
use strict;
use vars qw( @payby $cgi $locales $packages
$password = $cgi->param('_password');
$popnum = $cgi->param('popnum');
#$agentnum, # = $cgi->param('agentnum'),
+ $agentnum ||= $cgi->param('agentnum');
$init_popstate = $cgi->param('init_popstate');
if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
my ( $selected_county, $selected_state, $selected_country,
$prefix, $onchange ) = @_;
- my $prefix = '' unless defined $prefix;
+ $prefix = '' unless defined $prefix;
my $countyflag = 0;