RT#34960: Quotations [changed billpkgnum to quotationpkgnum]
[freeside.git] / httemplate / view / cust_pkg-popup.html
1 <& /elements/header-popup.html &>
2 <TABLE STYLE="width: 100%">
3 <& cust_main/packages/section.html,
4   'cust_main' => $cust_main,
5   'packages'  => [ $cust_pkg ],
6   'cust_pkg-group_by_location' => 0,
7   'no_services' => 1,
8 &>
9 </TABLE>
10 </BODY>
11 </HTML>
12 <%init>
13 my $curuser = $FS::CurrentUser::CurrentUser;
14 my ($pkgnum) = $cgi->keywords;
15 $pkgnum =~ /^\d+$/ or die "bad pkgnum $pkgnum";
16
17 my $cust_pkg = qsearchs({
18   'table'     => 'cust_pkg',
19   'addl_from' => 'JOIN cust_main USING (custnum)',
20   'hashref'   => { 'pkgnum' => $pkgnum },
21   'extra_sql' => ' AND '.$curuser->agentnums_sql,
22 });
23 die "Package not found" unless $cust_pkg;
24 my $cust_main = $cust_pkg->cust_main;
25
26 my $title = mt('Package [_1]', $pkgnum);
27 </%init>