From 021fde20ad6c68c1fc4703e3bbcd7f1699867225 Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 29 Sep 2003 06:51:17 +0000 Subject: signup with agent selection --- fs_signup/FS-SignupClient/cgi/signup.cgi | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'fs_signup/FS-SignupClient/cgi/signup.cgi') diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index f4e1ccf7f..b85ff7aeb 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ b/fs_signup/FS-SignupClient/cgi/signup.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.29.2.15 2003-09-29 06:22:14 ivan Exp $ +# $Id: signup.cgi,v 1.29.2.16 2003-09-29 06:51:17 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages @@ -213,6 +213,7 @@ if ( defined $cgi->param('magic') ) { $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') ) { -- cgit v1.2.1