},
'fields' => [
- { field=>'clone', type=>'hidden' },
- { field=>'pkgnum', type=>'hidden' },
+ { field=>'clone', type=>'hidden',
+ curr_value_callback =>
+ sub { shift->param('clone') },
+ },
+ { field=>'pkgnum', type=>'hidden',
+ curr_value_callback =>
+ sub { shift->param('pkgnum') },
+ },
{ type => 'columnstart' },
{type=>'justtitle', value=>'Taxation' },
{field=>'setuptax', type=>'checkbox', value=>'Y'},
{field=>'recurtax', type=>'checkbox', value=>'Y'},
- {field=>'classnum', type=>'select-taxclass' },
+ {field=>'taxclass', type=>'select-taxclass' },
{field=>'taxproductnum', type=>'select-taxproduct' },
{ type => 'tablebreak-tr-title',
#XXX
# - tr-part_pkg_freq: month_increments_only (from price plans)
-# - display add-ons in browse... yeah
-# -QIS- thank goodness
# - test cloning
+# - test errors cloning
# - test custom pricing
-#recur_flat->recur_fee migration, ugh
# - move the selectlayer divs away from lame layer_callback
#my ($query) = $cgi->keywords;
my %options = ();
my $recur_disabled = 1;
my $error_callback = sub {
- my($cgi, $object, $fields) = @_;
+ my($cgi, $object, $fields, $opt ) = @_;
(@agent_type) = $cgi->param('agent_type');
$tax_override = $cgi->param('tax_override');
+ $opt->{action} = 'Custom' if $cgi->param('clone');
$clone_part_pkg= qsearchs('part_pkg', { 'pkgpart' => $cgi->param('clone') } );
$recur_disabled = $cgi->param('freq') ? 0 : 1;