diff options
| author | mark <mark> | 2012-02-15 01:32:10 +0000 |
|---|---|---|
| committer | mark <mark> | 2012-02-15 01:32:10 +0000 |
| commit | c6e4f9460f44a7440ef2fa7e67ed51dfe40a7668 (patch) | |
| tree | e9df9004013e69645978fa0a3e1c66ad8c7ad6c2 /httemplate/view/cust_pkg.cgi | |
| parent | ca7ff572923114a72daae24e85f33ad89ebb5ab9 (diff) | |
query billing events to see affected objects, #15142
Diffstat (limited to 'httemplate/view/cust_pkg.cgi')
| -rwxr-xr-x | httemplate/view/cust_pkg.cgi | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/httemplate/view/cust_pkg.cgi b/httemplate/view/cust_pkg.cgi new file mode 100755 index 000000000..d8a0041ee --- /dev/null +++ b/httemplate/view/cust_pkg.cgi @@ -0,0 +1,11 @@ +<% $cgi->redirect($path) %> +<%init> +# since cust_pkgs can't be viewed directly, just throw a redirect +my ($pkgnum) = $cgi->keywords; +$pkgnum =~ /^\d+$/ or die "invalid pkgnum '$pkgnum'"; +my $show = $FS::CurrentUser::CurrentUser->default_customer_view =~ /^(jumbo|packages)$/ ? '' : ';show=packages'; + +my $self = FS::cust_pkg->by_key($pkgnum) or die "pkgnum $pkgnum not found"; +my $frag = 'cust_pkg'. $self->pkgnum; +my $path = $p.'view/cust_main.cgi?custnum='.$self->custnum.";$show#$frag"; +</%init> |