X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fselfservice.cgi;h=d039cfd4d3dd678677cfcf0f4af38615f8083eab;hb=7ad052da94c4d205cf426c0ef3ef113f5429b948;hp=c232c4584b289af22751d1575cfef2ab3390aee8;hpb=013399a9b51875b841bbc1ce5a2dbf7583519d88;p=freeside.git diff --git a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi index c232c4584..d039cfd4d 100755 --- a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi +++ b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -use vars qw($DEBUG $cgi $session_id $form_max $template_dir); +use vars qw($DEBUG $cgi $session_id $pw_session_id $form_max $template_dir); use subs qw(do_template); use CGI; use CGI::Carp qw(fatalsToBrowser); @@ -97,7 +97,7 @@ my $action = 'myaccount'; # sensible default if ( $cgi->param('action') =~ /^process_forgot_password_session_(\w+)$/ ) { $action = 'process_forgot_password_session'; - $session_id = $1; + $pw_session_id = $1; } elsif ( $cgi->param('action') =~ /^(\w+)$/ ) { if (grep {$_ eq $1} @actions) { $action = $1; @@ -943,7 +943,7 @@ sub delete_svc { sub view_usage { my $res = list_svcs( 'session_id' => $session_id, - 'svcdb' => [ 'svc_acct', 'svc_phone', 'svc_port', ], + 'svcdb' => [ 'svc_acct', 'svc_phone', 'svc_port', 'svc_pbx' ], 'ncancelled' => 1, ); if ($res->{hide_usage}) { @@ -1059,7 +1059,7 @@ sub process_forgot_password { sub process_forgot_password_session { $action = 'process_forgot_password'; check_reset_passwd( - 'session_id' => $session_id, + 'session_id' => $pw_session_id, ); }