This commit was generated by cvs2svn to compensate for changes in r6255,
[freeside.git] / httemplate / misc / order_pkg.html
1 <% include('/elements/header-popup.html', 'Order new package' ) %>
2
3 <SCRIPT TYPE="text/javascript">
4 function enable_order_pkg () {
5   if ( document.OrderPkgForm.pkgpart.selectedIndex > 0 ) {
6     document.OrderPkgForm.submit.disabled = false;
7   } else {
8     document.OrderPkgForm.submit.disabled = true;
9   }
10 }
11 </SCRIPT>
12
13 <FORM NAME="OrderPkgForm" ACTION="<% $p %>edit/process/quick-cust_pkg.cgi" METHOD="POST">
14
15 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $cust_main->custnum %>">
16
17 <% ntable("#cccccc", 2) %>
18 <TR>
19   <TH ALIGN="right">Package</TH>
20   <TD>
21     <% include('/elements/select-cust-part_pkg.html',
22                  'cust_main' => $cust_main,
23                  'onchange'  => 'enable_order_pkg',
24               )
25     %>
26   </TD>
27 </TR>
28
29 % if ( $conf->exists('pkg_referral') ) {
30   <% include('/elements/tr-select-part_referral.html',
31                'curr_value'    => scalar( $cgi->param('refnum') ), #get rid of empty_label first# || $cust_main->refnum,
32                'disable_empty' => 1,
33                'multiple'      => $conf->exists('pkg_referral-multiple'),
34             )
35   %>
36 % }
37
38 </TABLE>
39
40 <BR>
41 <INPUT NAME="submit" TYPE="submit" VALUE="Order Package" disabled>
42
43 </FORM>
44 </BODY>
45 </HTML>
46 <%init>
47
48 die "access denied"
49   unless $FS::CurrentUser::CurrentUser->access_right('Order customer package');
50
51 my $conf = new FS::Conf;
52
53 my($query) = $cgi->keywords;
54 $query =~ /^(\d+)$/;
55 my $custnum = $1;
56 my $cust_main = qsearchs({
57   'table'     => 'cust_main',
58   'hashref'   => { 'custnum' => $custnum },
59   'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
60 });
61
62 </%init>