% include( 'elements/edit.html', 'post_url' => popurl(1).'process/part_pkg.cgi', 'name' => "Package definition", 'table' => 'part_pkg', 'agent_virt' => 1, 'agent_null_right' => $edit_global, 'agent_clone_extra_sql' => $agent_clone_extra_sql, #'viewall_dir' => 'browse', 'viewall_url' => $p.'browse/part_pkg.cgi', 'html_init' => include('/elements/init_overlib.html'). $javascript, 'html_bottom' => $html_bottom, 'body_etc' => 'onLoad="agent_changed(document.edit_topform.agentnum)"', 'begin_callback' => $begin_callback, 'end_callback' => $end_callback, 'new_hashref_callback' => $new_hashref_callback, 'new_object_callback' => $new_object_callback, 'new_callback' => $new_callback, 'clone_callback' => $clone_callback, 'edit_callback' => $edit_callback, 'error_callback' => $error_callback, 'field_callback' => $field_callback, 'labels' => { 'pkgpart' => 'Package Definition', 'pkg' => 'Package (customer-visible)', 'comment' => 'Comment (customer-hidden)', 'classnum' => 'Package class', 'addon_classnum' => 'Restrict additional orders to package class', 'promo_code' => 'Promotional code', 'freq' => 'Recurring fee frequency', 'setuptax' => 'Setup fee tax exempt', 'recurtax' => 'Recurring fee tax exempt', 'taxclass' => 'Tax class', 'taxproduct_select'=> 'Tax products', 'plan' => 'Price plan', 'disabled' => 'Disable new orders', 'setup_cost' => 'Setup cost', 'recur_cost' => 'Recur cost', 'pay_weight' => 'Payment weight', 'credit_weight' => 'Credit weight', 'agentnum' => 'Agent', 'setup_fee' => 'Setup fee', 'recur_fee' => 'Recurring fee', 'discountnum' => 'Offer discounts for longer terms', 'bill_dst_pkgpart' => 'Include line item(s) from package', 'svc_dst_pkgpart' => 'Include services of package', 'report_option' => 'Report classes', 'fcc_ds0s' => 'Voice-grade eqivalents', }, 'fields' => [ { field=>'clone', type=>'hidden', curr_value_callback => sub { shift->param('clone') }, }, { field=>'pkgnum', type=>'hidden', curr_value_callback => sub { shift->param('pkgnum') }, }, { field=>'custom', type=>'hidden' }, { type => 'columnstart' }, { field => 'pkg', type => 'text', size => 40, #32 maxlength => 50, }, {field=>'comment', type=>'text', size=>40 }, #32 { field => 'agentnum', type => 'select-agent', disable_empty => ! $acl_edit_global, empty_label => '(global)', onchange => 'agent_changed', }, {field=>'classnum', type=>'select-pkg_class' }, ( $conf->exists('pkg-addon_classnum') ? ( { field=>'addon_classnum', type =>'select-pkg_class', } ) : () ), {field=>'disabled', type=>$disabled_type, value=>'Y'}, { type => 'tablebreak-tr-title', value => 'Pricing', #better name? }, { field => 'plan', type => 'selectlayers-select', options => [ keys %plan_labels ], labels => \%plan_labels, onchange => 'aux_planchanged(what);', }, { field => 'setup_fee', type => 'money', }, { field => 'freq', type => 'part_pkg_freq', onchange => 'freq_changed', }, { field => 'recur_fee', type => 'money', disabled => sub { $recur_disabled }, }, #price plan #setup fee #recurring frequency #recurring fee (auto-disable) { type => 'columnnext' }, {type=>'justtitle', value=>'Taxation' }, {field=>'setuptax', type=>'checkbox', value=>'Y'}, {field=>'recurtax', type=>'checkbox', value=>'Y'}, {field=>'taxclass', type=>'select-taxclass' }, { field => 'taxproductnums', type => 'hidden', value => join(',', @taxproductnums), }, { field => 'taxproduct_select', type => 'selectlayers', options => [ '(default)', @taxproductnums ], curr_value => '(default)', labels => { ( '(default)' => '(default)' ), map {($_=>$usage_class{$_})} @taxproductnums }, layer_fields => \%taxproduct_fields, layer_values_callback => $taxproduct_values, layers_only => !$taxproducts, cell_style => ( !$taxproducts ? 'display:none' : '' ), }, { type => 'tablebreak-tr-title', value => 'Promotions', #better name? }, { field=>'promo_code', type=>'text', size=>15 }, { type => 'tablebreak-tr-title', value => 'Cost tracking', #better name? }, { field=>'setup_cost', type=>'money', }, { field=>'recur_cost', type=>'money', }, { type => 'columnnext' }, { field => 'agent_type', type => 'select-agent_types', disabled => ! $acl_edit_global, curr_value_callback => sub { my($cgi, $object, $field) = @_; #in the other callbacks..? hmm. \@agent_type; }, }, { type => 'tablebreak-tr-title', value => 'Line-item revenue recogition', #better name? }, { field=>'pay_weight', type=>'text', size=>6 }, { field=>'credit_weight', type=>'text', size=>6 }, ( $conf->exists('cust_pkg-show_fcc_voice_grade_equivalent') ? ( { type => 'tablebreak-tr-title', value => 'FCC Form 477 information', }, { field=>'fcc_ds0s', type=>'text', size=>6 }, ) : () ), { type => 'columnend' }, { 'type' => $report_option ? 'tablebreak-tr-title' : 'hidden', 'value' => 'Optional report classes', 'field' => 'census_title', }, { 'field' => 'report_option', 'type' => $report_option ? 'select-table' : 'hidden', 'table' => 'part_pkg_report_option', 'name_col' => 'name', 'hashref' => { 'disabled' => '' }, 'multiple' => 1, }, { 'type' => 'tablebreak-tr-title', 'value' => 'Term discounts', }, { 'field' => 'discountnum', 'type' => 'select-table', 'table' => 'discount', 'name_col' => 'name', 'hashref' => { %$discountnum_hashref }, #'extra_sql' => 'AND (months IS NOT NULL OR months != 0)', 'empty_label'=> 'Select discount', 'm2_label' => 'Offer discounts for longer terms', 'm2m_method' => 'part_pkg_discount', 'm2m_dstcol' => 'discountnum', 'm2_error_callback' => $discount_error_callback, }, { 'type' => 'tablebreak-tr-title', 'value' => 'Pricing add-ons', 'colspan' => 4, }, { 'field' => 'bill_dst_pkgpart', 'type' => 'select-part_pkg', 'extra_sql' => sub { $pkgpart ? "AND pkgpart != $pkgpart" : '' }, 'm2_label' => 'Include line item(s) from package', 'm2m_method' => 'bill_part_pkg_link', 'm2m_dstcol' => 'dst_pkgpart', 'm2_error_callback' => &{$m2_error_callback_maker}('bill'), 'm2_fields' => [ { 'field' => 'hidden', 'type' => 'checkbox', 'value' => 'Y', 'curr_value' => '', 'label' => 'Bundle', }, ], }, { type => 'tablebreak-tr-title', value => 'Services', }, { type => 'pkg_svc', }, { 'field' => 'svc_dst_pkgpart', 'label' => 'Also include services from package: ', 'type' => 'select-part_pkg', 'extra_sql' => sub { $pkgpart ? "AND pkgpart != $pkgpart" : '' }, 'm2_label' => 'Include services of package: ', 'm2m_method' => 'svc_part_pkg_link', 'm2m_dstcol' => 'dst_pkgpart', 'm2_error_callback' => &{$m2_error_callback_maker}('svc'), }, { type => 'tablebreak-tr-title', value => 'Price plan options', }, ], ) %> <%init> my $curuser = $FS::CurrentUser::CurrentUser; my $edit_global = 'Edit global package definitions'; my $acl_edit = $curuser->access_right('Edit package definitions'); my $acl_edit_global = $curuser->access_right($edit_global); my $acl_edit_either = $acl_edit || $acl_edit_global; my $begin_callback = sub { my( $cgi, $fields, $opt ) = @_; die "access denied" unless $acl_edit_either || ( $cgi->param('pkgnum') && $curuser->access_right('Customize customer package') ); }; my $disabled_type = $acl_edit_either ? 'checkbox' : 'hidden'; #arg. access rights for cloning are Hard. # on the one hand we don't really want cloning (customizing a package) to fail # for want of finding the source package in normal usage # on the other hand, we don't want people using the clone link to be able to # see my $agent_clone_extra_sql = ' ( '. FS::part_pkg->curuser_pkgs_sql. " OR ( part_pkg.custom = 'Y' ) ". ' ) '; my $conf = new FS::Conf; my $taxproducts = $conf->exists('enable_taxproducts'); my $sth = dbh->prepare("SELECT COUNT(*) FROM part_pkg_report_option". " WHERE disabled IS NULL OR disabled = '' ") or die dbh->errstr; $sth->execute or die $sth->errstr; my $report_option = $sth->fetchrow_arrayref->[0]; #XXX # - tr-part_pkg_freq: month_increments_only (from price plans) # - test cloning # - test errors cloning # - test custom pricing # - move the selectlayer divs away from lame layer_callback #my ($query) = $cgi->keywords; # #my $part_pkg = ''; my @agent_type = (); my %tax_override = (); my %taxproductnums = map { ($_->classnum => 1) } qsearch('usage_class', { 'disabled' => '' }); my @taxproductnums = ( qw( setup recur ), sort (keys %taxproductnums) ); my %options = (); my $recur_disabled = 1; my $pkgpart = ''; my $error_callback = sub { my($cgi, $object, $fields, $opt ) = @_; (@agent_type) = $cgi->param('agent_type'); $opt->{action} = 'Custom' if $cgi->param('pkgnum'); $recur_disabled = $cgi->param('freq') ? 0 : 1; foreach ($cgi->param) { /^usage_taxproductnum_(\d+)$/ && ($taxproductnums{$1} = 1); } $tax_override{''} = $cgi->param('tax_override'); $tax_override{$_} = $cgi->param('tax_override_$_') foreach(grep { /^tax_override_(\w+)$/ } $cgi->param); #some false laziness w/process $cgi->param('plan') =~ /^(\w+)$/ or die 'unparsable plan'; my $plan = $1; my $options = $cgi->param($plan."__OPTIONS"); my @options = split(',', $options); %options = map { my $optionname = $_; my $param = $plan."__$optionname"; my $value = join(', ', $cgi->param($param)); ( $optionname => $value ); } @options; #$cgi->param($_, $options{$_}) foreach (qw( setup_fee recur_fee )); $object->set($_ => scalar($cgi->param($_)) ) foreach (qw( setup_fee recur_fee )); $pkgpart = $object->pkgpart; }; my $new_hashref_callback = sub { { 'plan' => 'flat' }; }; my $new_object_callback = sub { my( $cgi, $hashref, $fields, $opt ) = @_; my $part_pkg = FS::part_pkg->new( $hashref ); $part_pkg->set($_ => '0') foreach (qw( setup_fee recur_fee )); $part_pkg; }; my $edit_callback = sub { my( $cgi, $object, $fields, $opt ) = @_; $recur_disabled = $object->freq ? 0 : 1; (@agent_type) = map {$_->typenum} qsearch('type_pkgs', { 'pkgpart' => $object->pkgpart } ); my @report_option = (); foreach ($object->options) { /^usage_taxproductnum_(\d+)$/ && ($taxproductnums{$1} = 1); /^report_option_(\d+)$/ && (push @report_option, $1); } foreach ($object->part_pkg_taxoverride) { $taxproductnums{$_->usage_class} = 1 if $_->usage_class; } $cgi->param('report_option', join(',', @report_option)); foreach my $field ( @$fields ) { next unless ( ref($field) eq 'HASH' && $field->{field} && $field->{field} eq 'report_option' ); #$field->{curr_value} = join(',', @report_option); $field->{value} = join(',', @report_option); } %options = $object->options; $object->set($_ => $object->option($_)) foreach (qw( setup_fee recur_fee )); $pkgpart = $object->pkgpart; }; my $new_callback = sub { my( $cgi, $object, $fields ) = @_; my $conf = new FS::Conf; if ( $conf->exists('agent_defaultpkg') ) { #my @all_agent_types = map {$_->typenum} qsearch('agent_type',{}); @agent_type = map {$_->typenum} qsearch('agent_type',{}); } $options{'suspend_bill'}=1 if $conf->exists('part_pkg-default_suspend_bill'); }; my $clone_callback = sub { my( $cgi, $object, $fields, $opt ) = @_; if ( $cgi->param('pkgnum') ) { my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cgi->param('pkgnum') } ); $object->agentnum( $cust_pkg->cust_main->agentnum ); $opt->{action} = 'Custom'; #my $part_pkg = $clone_part_pkg->clone; #this is all clone does anyway $object->custom('Y'); $object->disabled('Y'); } else { #not when cloning... (@agent_type) = map {$_->typenum} qsearch('type_pkgs',{ 'pkgpart' => $object->pkgpart } ); } %options = $object->options; $object->set($_ => $options{$_}) foreach (qw( setup_fee recur_fee )); $recur_disabled = $object->freq ? 0 : 1; }; my $discount_error_callback = sub { my( $cgi, $object ) = @_; map { if ( /^discountnum(\d+)$/ && ( my $discountnum = $cgi->param("discountnum$1") ) ) { new FS::part_pkg_discount { 'pkgpart' => $object->pkgpart, 'discountnum' => $discountnum, }; } else { (); } } $cgi->param; }; my $m2_error_callback_maker = sub { my $link_type = shift; #yay closures return sub { my( $cgi, $object ) = @_; map { if ( /^${link_type}_dst_pkgpart(\d+)$/ && ( my $dst = $cgi->param("${link_type}_dst_pkgpart$1") ) ) { my $hidden = $cgi->param("${link_type}_dst_pkgpart__hidden$1") || ''; new FS::part_pkg_link { 'link_type' => $link_type, 'src_pkgpart' => $object->pkgpart, 'dst_pkgpart' => $dst, 'hidden' => $hidden, }; } else { (); } } $cgi->param; }; }; my $javascript = <<'END'; END tie my %plans, 'Tie::IxHash', %{ FS::part_pkg::plan_info() }; tie my %plan_labels, 'Tie::IxHash', map { $_ => ( $plans{$_}->{'shortname'} || $plans{$_}->{'name'} ) } keys %plans; my $html_bottom = sub { my( $object ) = @_; #warn join("\n", map { "$_: $options{$_}" } keys %options ). "\n"; my $layer_callback = sub { my $layer = shift; my $html = ntable("#cccccc",2); #$html .= ' #