diff options
author | ivan <ivan> | 2003-05-13 03:22:35 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-05-13 03:22:35 +0000 |
commit | 9033414f18177eb733d1a227d2be1c15d244f766 (patch) | |
tree | 5313ffc6779b320cdb93d864a10d667b58e63427 /fs_selfservice/FS-SelfService/cgi/selfservice.cgi | |
parent | 6a961cb36a8f9606a168331fd5c3625c3bbec9c2 (diff) |
- self-service updates: cleanup and beginnings of "make a payment"
- fix pod masking FS::svc_acct::cust_svc
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/selfservice.cgi')
-rw-r--r-- | fs_selfservice/FS-SelfService/cgi/selfservice.cgi | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index eae373931..9b8bdc100 100644 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -53,7 +53,7 @@ if ( $cgi->param('session') eq 'login' ) { $session_id = $cgi->param('session'); -$cgi->param('action') =~ /^(myaccount|view_invoice)$/ +$cgi->param('action') =~ /^(myaccount|view_invoice|make_payment)$/ or die "unknown action ". $cgi->param('action'); my $action = $1; @@ -88,6 +88,10 @@ sub view_invoice { } +sub make_payment { + +} + #-- sub do_template { @@ -95,7 +99,7 @@ sub do_template { my $fill_in = shift; $cgi->delete_all(); - $fill_in->{'self_url'} = $cgi->self_url; + $fill_in->{'selfurl'} = $cgi->self_url; my $template = new Text::Template( TYPE => 'FILE', SOURCE => "$template_dir/$name.html", |