httemplate/edit/cust_pkg_detail.html

   1 <& /elements/header-popup.html, $title &>
   2
   3 <FORM ACTION="process/cust_pkg_detail.html" NAME="DetailForm" ID="DetailForm" METHOD="POST">
   4
   5 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
   6 <INPUT TYPE="hidden" NAME="detailtype" VALUE="<% $detailtype %>">
   7
   8 <TABLE ID="DetailTable" BGCOLOR="#cccccc" BORDER=0 CELLSPACING=1 STYLE="background-color: #cccccc">
   9
  10 % if ( $curuser->option('show_pkgnum') ) {
  11
  12     <TR>
  13       <TD ALIGN="right">Package #</TD>
  14       <TD BGCOLOR="#ffffff"><% $pkgnum %></TD>
  15     </TR>
  16
  17 % }
  18
  19   <TR>
  20     <TD ALIGN="right">Package</TD>
  21     <TD BGCOLOR="#ffffff"><% $part_pkg->pkg %></TD>
  22   </TR>
  23
  24   <TR>
  25     <TD ALIGN="right">Comment</TD>
  26     <TD BGCOLOR="#ffffff"><% $part_pkg->comment |h %></TD>
  27   </TR>
  28
  29   <TR>
  30     <TD ALIGN="right">Status</TD>
  31     <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_pkg->statuscolor %>"><B><% ucfirst($cust_pkg->status) %></B></FONT></TD>
  32   </TR>
  33
  34   <TR>
  35     <TD COLSPAN=2><% ucfirst($name{$detailtype}) %>: </TD>
  36   </TR>
  37
  38 <& elements/detail-table.html,
  39      id      => 'DetailTable',
  40      details => \@details,
  41  &>
  42
  43 </TABLE>
  44
  45 <BR>
  46 <INPUT TYPE="submit" ID="submit" NAME="submit" VALUE="<% $title %>">
  47
  48 </FORM>
  49
  50 </BODY>
  51 </HTML>
  52 <%init>
  53
  54 my %access_right = (
  55   'I' => 'Edit customer package invoice details',
  56   'C' => 'Edit customer package comments',
  57 );
  58
  59 my %name = (
  60   'I' => 'invoice details',
  61   'C' => 'package comments',
  62 );
  63
  64 my $curuser = $FS::CurrentUser::CurrentUser;
  65
  66 $cgi->param('detailtype') =~ /^(\w)$/ or die 'illegal detailtype';
  67 my $detailtype = $1;
  68
  69 my $right = $access_right{$detailtype};
  70 die "access denied"
  71   unless $curuser->access_right($right);
  72
  73 $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'illegal pkgnum';
  74 my $pkgnum = $1;
  75
  76 my $cust_pkg = qsearchs({
  77   'table'     => 'cust_pkg',
  78   'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
  79   'hashref'   => { 'pkgnum' => $pkgnum },
  80   'extra_sql' => ' AND '. $curuser->agentnums_sql,
  81 });
  82
  83 my $part_pkg = $cust_pkg->part_pkg;
  84
  85 my @details = map { $_->detail } $cust_pkg->cust_pkg_detail($detailtype);
  86
  87 my $title = ( scalar(@details) ? 'Edit ' : 'Add ' ). $name{$detailtype};
  88
  89 </%init>