From 6ced9264b8ec79e4b460be90ede25ec72a7dfc16 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 15 Jul 2004 22:40:01 +0000
Subject: big update for customer self-service: add provisioning/unprovisioning
 of purchased services, like fs_selfadmin

---
 fs_selfservice/FS-SelfService/cgi/agent.cgi | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'fs_selfservice/FS-SelfService/cgi/agent.cgi')

diff --git a/fs_selfservice/FS-SelfService/cgi/agent.cgi b/fs_selfservice/FS-SelfService/cgi/agent.cgi
index 2d948e790..6d2fd5840 100644
--- a/fs_selfservice/FS-SelfService/cgi/agent.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/agent.cgi
@@ -221,6 +221,10 @@ sub process_order_pkg {
 
   my $results = '';
 
+  unless ( length($cgi->param('_password')) ) {
+    my $init_data = signup_info( 'session_id' => $session_id );
+    $results = { 'error' => $init_data->{msgcat}{empty_password} }
+  }
   if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
     my $init_data = signup_info( 'session_id' => $session_id );
     $results = { error => $init_data->{msgcat}{passwords_dont_match} };
-- 
cgit v1.2.1