<% include("/elements/header-popup.html", $title, '', ( $cgi->param('error') ? '' : 'onload="addRow()"' ), ) %> %# <% include('/elements/error.html') %>

% my $row = 0; % for ( @details ) { % }

Package	<% $part_pkg->pkg %>
Comment	<% $part_pkg->comment |h %>
	> <% emt('Details will only appear on quotation') %> > <% emt('Copy details to invoice when placing order') %>
<% $row ? '' : 'Detail' %>

<%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, }); 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';