summaryrefslogtreecommitdiff
path: root/fs_selfservice
diff options
context:
space:
mode:
authorivan <ivan>2004-06-21 14:24:21 +0000
committerivan <ivan>2004-06-21 14:24:21 +0000
commit2772fa107c03791feee54c544e379f7431bef950 (patch)
treee6ae1c3add210e970a0f0490becb11f1a8061469 /fs_selfservice
parent91c530c9c397573559834d298ffd7c1d9f7ecb44 (diff)
fix dup password checking on add'l package order
Diffstat (limited to 'fs_selfservice')
-rw-r--r--fs_selfservice/FS-SelfService/cgi/agent.cgi6
1 files changed, 4 insertions, 2 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/agent.cgi b/fs_selfservice/FS-SelfService/cgi/agent.cgi
index a219fe771..9b07ee16b 100644
--- a/fs_selfservice/FS-SelfService/cgi/agent.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/agent.cgi
@@ -208,14 +208,16 @@ sub view_customer {
sub process_order_pkg {
+ my $results = '';
+
if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
my $init_data = signup_info( 'session_id' => $session_id );
- $error = $init_data->{msgcat}{passwords_dont_match}; #msgcat
+ $results = { error => $init_data->{msgcat}{passwords_dont_match} };
$cgi->param('_password', '');
$cgi->param('_password2', '');
}
- my $results = order_pkg (
+ $results ||= order_pkg (
'agent_session_id' => $session_id,
map { $_ => $cgi->param($_) }
qw( custnum pkgpart username _password _password2 sec_phrase popnum )