<& /elements/header-popup.html, $title &>
<& elements/detail-table.html, id => 'DetailTable', details => \@details, label => 'Details', &>
Package <% $part_pkg->pkg %>
Comment <% $part_pkg->comment |h %>

<%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Generate quotation'); $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'illegal pkgnum'; my $pkgnum = $1; my $quotation_pkg = qsearchs({ 'table' => 'quotation_pkg', 'addl_from' => 'LEFT JOIN quotation USING ( quotationnum )'. 'LEFT JOIN cust_main USING ( custnum )', 'hashref' => { 'quotationpkgnum' => $pkgnum }, 'extra_sql' => ' AND '. $curuser->agentnums_sql, }) || qsearchs({ 'table' => 'quotation_pkg', 'addl_from' => 'LEFT JOIN quotation USING ( quotationnum )'. 'LEFT JOIN prospect_main USING ( prospectnum )', 'hashref' => { 'quotationpkgnum' => $pkgnum }, 'extra_sql' => ' AND '. $curuser->agentnums_sql, }); my $part_pkg = $quotation_pkg->part_pkg; my @details = $quotation_pkg->details; my $copy_on_order = 0; if (@details) { # currently, they should either all have this flag, or none # but just in case, erring on the side of not copying to invoice # unless every existing detail has copy_on_order # (anyway, user has to submit change, this is just for autofill) my @quotation_pkg_detail = $quotation_pkg->quotation_pkg_detail; my @copy_on_order = grep { $_->copy_on_order } @quotation_pkg_detail; $copy_on_order = 1 if @copy_on_order; my @no_copy_on_order = grep { !$_->copy_on_order } @quotation_pkg_detail; $copy_on_order = 0 if @no_copy_on_order; } my $title = ( scalar(@details) ? 'Edit ' : 'Add ' ). 'Quotation Details';