projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r3921,
[freeside.git]
/
fs_selfservice
/
FS-SelfService
/
cgi
/
selfservice.cgi
diff --git
a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
index
44dd8bb
..
0816758
100644
(file)
--- a/
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
+++ b/
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
@@
-10,7
+10,8
@@
use HTML::Entities;
use FS::SelfService qw( login customer_info invoice
payment_info process_payment
list_pkgs
use FS::SelfService qw( login customer_info invoice
payment_info process_payment
list_pkgs
- part_svc_info provision_acct unprovision_svc
+ part_svc_info provision_acct provision_external
+ unprovision_svc
);
$template_dir = '.';
);
$template_dir = '.';
@@
-60,7
+61,7
@@
$session_id = $cgi->param('session');
#order|pw_list XXX ???
$cgi->param('action') =~
#order|pw_list XXX ???
$cgi->param('action') =~
- /^(myaccount|view_invoice|make_payment|payment_results|logout|change_bill|change_ship|provision|provision_svc|process_svc_acct|delete_svc)$/
+ /^(myaccount|view_invoice|make_payment|payment_results|logout|change_bill|change_ship|provision|provision_svc|process_svc_acct|
process_svc_external|
delete_svc)$/
or die "unknown action ". $cgi->param('action');
my $action = $1;
or die "unknown action ". $cgi->param('action');
my $action = $1;
@@
-224,6
+225,13
@@
sub process_svc_acct {
}
}
+sub process_svc_external {
+ provision_external (
+ 'session_id' => $session_id,
+ map { $_ => $cgi->param($_) } qw( pkgnum svcpart )
+ );
+}
+
sub delete_svc {
unprovision_svc(
'session_id' => $session_id,
sub delete_svc {
unprovision_svc(
'session_id' => $session_id,