From 477015901c379f8cd6ba46cfaa4a9ae284ae582d Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 15 Apr 2008 13:42:40 +0000 Subject: new package editor --- httemplate/edit/elements/edit.html | 219 +++++-- httemplate/edit/part_event.html | 16 +- httemplate/edit/part_pkg.cgi | 860 +++++++++++-------------- httemplate/edit/process/elements/process.html | 64 +- httemplate/edit/process/part_pkg.cgi | 218 ++++--- httemplate/elements/select-agent_types.html | 30 + httemplate/elements/select-taxproduct.html | 3 + httemplate/elements/selectlayers.html | 8 +- httemplate/elements/tr-input-text.html | 8 +- httemplate/elements/tr-part_pkg_freq.html | 19 +- httemplate/elements/tr-pkg_svc.html | 93 +++ httemplate/elements/tr-select-agent_types.html | 19 + httemplate/elements/tr-title.html | 12 +- 13 files changed, 869 insertions(+), 700 deletions(-) create mode 100644 httemplate/elements/select-agent_types.html create mode 100644 httemplate/elements/tr-pkg_svc.html create mode 100644 httemplate/elements/tr-select-agent_types.html (limited to 'httemplate') diff --git a/httemplate/edit/elements/edit.html b/httemplate/edit/elements/edit.html index c80586a4c..150ed8583 100644 --- a/httemplate/edit/elements/edit.html +++ b/httemplate/edit/elements/edit.html @@ -22,9 +22,12 @@ Example: #percentage #checkbox #select - #selectlayers (can't use after a tablebreak-tr-title yet... grep "OneTrueTable") + #selectlayers (can now use after a tablebreak-tr-title... but not inside columnstart/columnnext/columnend) #title #tablebreak-tr-title + #columnstart + #columnnext + #columnend #hidden - hidden value from object #fixed - display fixed value from object or here #fixed-country @@ -32,29 +35,32 @@ Example: 'value' => 'Y', #for checkbox, title, fixed, fixedhidden 'disabled' => 0, 'onchange' => 'javascript_function', - 'm2name_table' => 'table_name', #only tested w/ - # selectlayers so far - # might work w/select - # dunno others - 'm2name_namecol' => 'name_column', # - 'm2name_label' => 'Label', # - 'm2name_new_default' => \@table_name_objects, #default - #m2name - #objects for - #new records - 'm2name_error_callback' => sub { my($cgi, $object) = @_; }, - 'm2name_remove_warnings' => \%warnings, #hashref of warning - #messages for - #m2name removal - 'm2name_new_js' => 'function_name', #javascript function - #called on spawned rows - #(one arg: new_element) - 'm2name_remove_js' => 'function_name', #js function called - #when a row is - #deleted - #(three args: - # value, text, - # 'no_match') + + #m2 stuff only tested w/selectlayers so far + #might work w/select too, dunno others + 'm2name_table' => 'table_name', + 'm2name_namecol' => 'name_column', + #OR# + 'm2m_table' => + 'm2m_target_table' => + 'm2m_srccol' => #opt, if not the same as this table + 'm2m_dstcol' => #opt, if not the same as target table + + 'm2_label' => 'Label', # + 'm2_new_default' => \@table_name_objects, #default + #m2 objects for + #new records + 'm2_error_callback' => sub { my($cgi, $object) = @_; }, + 'm2_remove_warnings' => \%warnings, #hashref of warning + #messages for m2 + #removal + 'm2_new_js' => 'function_name', #javascript function called + #on spawned rows (one arg: + #new_element) + 'm2_remove_js' => 'function_name', #js function called when + #a row is deleted (three + #args: value, text, + #'no_match') #layer_fields & layer_values_callback only for selectlayer 'layer_fields' => [ 'fieldname' => 'Label', @@ -93,6 +99,9 @@ Example: # returns a hashref for the new object 'new_hashref_callback' + + # returns the new object iself (otherwise, ->new is called) + 'new_object_callback' #run when adding 'new_callback' => sub { my( $cgi, $object, $fields_listref ) = @_; }, @@ -103,18 +112,24 @@ Example: #XXX describe 'field_callback' => sub { }, + 'viewall_dir' => '', #'search' or 'browse', defaults to 'search' + + 'html_init' => '', #after the header/menubar + #string or coderef of additional HTML to add before 'html_table_bottom' => '', - - 'viewall_dir' => '', #'search' or 'browse', defaults to 'search' - + + #after but before the submit 'html_bottom' => '', #string 'html_bottom' => sub { my $object = shift; # ... "html_string"; }, - + + #at the very bottom (well, as low as you can go from here) + 'html_foot' => '', + # overrides default popurl(1)."process/$table.html" 'post_url' => popurl(1).'process/something', @@ -131,6 +146,14 @@ Example: ) %> +<% defined($opt{'html_init'}) + ? ( ref($opt{'html_init'}) + ? &{$opt{'html_init'}}() + : $opt{'html_init'} + ) + : '' +%> + <% include('/elements/error.html') %> % my $url = $opt{'post_url'} || popurl(1)."process/$table.html"; @@ -148,10 +171,11 @@ Example: #<% $object->$pkey() || "(NEW)" %> -%# <% ntable("#cccccc",0) %> - +% my $tablenum = 0; +
% my $g_row = 0; +% my @g_row_stack = (); % foreach my $f ( map { ref($_) ? $_ : {'field'=>$_} } % @$fields % ) { @@ -169,9 +193,11 @@ Example: % my $onchange = $f->{'onchange'}; % % my $layer_values = {}; -% if ( $f->{'layer_values_callback'} && ! $f->{'m2name_table'} ) { -% $layer_values = &{ $f->{'layer_values_callback'} }( $cgi, $object ); -% } +% $layer_values = &{ $f->{'layer_values_callback'} }( $cgi, $object ) +% if $f->{'layer_values_callback'} +% && ! $f->{'m2name_table'} +% && ! $f->{'m2m_table'}; +% % warn "layer values: ". Dumper($layer_values) % if $opt{'debug'}; % @@ -196,8 +222,19 @@ Example: % 'layer_fields' => $f->{'layer_fields'}, % 'layer_values' => $layer_values, % 'html_between' => $f->{'html_between'}, +% +% #umm. +% 'disabled' => $f->{'disabled'}, % ); % +% #select-table +% $include_common{$_} = $f->{$_} +% foreach grep exists($f->{$_}), qw( table name_col ); +% +% if ( $type eq 'tablebreak-tr-title' ) { +% $include_common{'table_id'} = 'TableNumber'. $tablenum++ +% } +% % my $layer_prefix_on = ''; % % my $include_sub = sub { @@ -207,7 +244,7 @@ Example: % % my $include = $type; % $include = "input-$include" if $include =~ /^(text|money|percentage)$/; -% $include = "tr-$include" unless $include =~ /^(hidden|tablebreak)/; +% $include = "tr-$include" unless $include =~ /^(hidden|tablebreak|column)/; % % $include_common{'layer_prefix'} = "$field$fieldnum." % if $layer_prefix_on; @@ -223,33 +260,56 @@ Example: % @include; % }; % -% $g_row++; -% $g_row++ if $type eq 'title'; +% unless ( $type =~ /^column/ ) { +% $g_row = 1 if $type eq 'tablebreak-tr-title'; +% $g_row++; +% $g_row++ if $type eq 'title'; +% } else { +% if ( $type eq 'columnstart' ) { +% push @g_row_stack, $g_row++; +% $g_row = 0; +% #} elsif ( $type eq 'columnnext' ) { +% } elsif ( $type eq 'columnend' ) { +% $g_row = pop @g_row_stack; +% } +% +% } % % my $fieldnum = ''; % my $curr_value = ''; -% if ( $f->{'m2name_table'} ) { #XXX test this for all types of fields -% my $table = $f->{'m2name_table'}; -% my $col = $f->{'m2name_namecol'}; +% if ( $f->{'m2name_table'} || $f->{'m2m_table'} ) { #XXX test this for all +% #types of fields +% my($table, $col); +% if ( $f->{'m2name_table'} ) { +% $table = $f->{'m2name_table'}; +% $col = $f->{'m2name_namecol'}; +% } elsif ( $f->{'m2m_table'} ) { +% $table = $f->{'m2m_table'}; #XXX method name +% $col = $f->{'m2m_dstcol'}; #XXX or get it from schema, defualt to +% #same name as primary key of +% #m2m_target_table +% } % $fieldnum = 0; % $layer_prefix_on = 1; -% #print out the fields for the existing m2names +% #print out the fields for the existing m2s % my @existing = (); % if ( $mode eq 'error' ) { -% @existing = &{ $f->{'m2name_error_callback'} }( $cgi, $object ); +% @existing = &{ $f->{'m2_error_callback'} }( $cgi, $object ); % } elsif ( $object->$pkey() ) { # $mode eq 'edit' % @existing = $object->$table(); -% } elsif ( $f->{'m2name_new_default'} ) { # && $mode eq 'new' -% @existing = @{ $f->{'m2name_new_default'} }; +% warn scalar(@existing). " from $object->$table: ". join('/', @existing) +% if $opt{'debug'}; +% } elsif ( $f->{'m2_new_default'} ) { # && $mode eq 'new' +% @existing = @{ $f->{'m2_new_default'} }; % } % foreach my $name_obj ( @existing ) { % % my $ex_label = ' '. ($f->{'m2name_label'} || $field ). ' '; +% '> '. ($f->{'m2_label'} || $field ). ' '; % % if ( $f->{'layer_values_callback'} ) { % my %switches = ( 'mode' => $mode ); @@ -276,10 +336,13 @@ Example: % #$field .= $fieldnum; % $onchange .= "\nspawn_$field(what);"; % } else { -% $curr_value = -% ($opt{'value_callback'} && $mode ne 'error') -% ? &{ $opt{'value_callback'} }( $f->{'field'}, $object->$field() ) -% : $object->$field(); +% if ( $f->{curr_value_callback} ) { +% $curr_value = &{ $f->{curr_value_callback} }( $cgi, $object, $field ), +% } else { +% $curr_value = $object->$field(); +% } +% $curr_value = &{ $opt{'value_callback'} }( $f->{'field'}, $curr_value ) +% if $opt{'value_callback'} && $mode ne 'error'; % } % % my @include = &{ $include_sub }( @@ -287,18 +350,19 @@ Example: % 'fieldnum' => $fieldnum, % 'curr_value' => $curr_value, % 'object' => $object, +% 'cgi' => $cgi, % 'onchange' => $onchange, % 'cell_style' => ( $fieldnum ? 'border-top:1px solid black' : '' ), % ); <% include( @include ) %> -% if ( $f->{'m2name_table'} ) { +% if ( $f->{'m2name_table'} || $f->{'m2m_table'} ) { - - - - -<% include('/elements/error.html') %> - - - -<% itable('',8,1) %> - - - - - - - - - - - - <% include( '/elements/tr-select-pkg_class.html', - 'curr_value' => $part_pkg->classnum, - ) - %> - - - - - - - - - -
- -Package information - -<% ntable("#cccccc",2) %> -
Package Definition # - <% $hashref->{pkgpart} ? $hashref->{pkgpart} : "(NEW)" %> -
Package (customer-visible) - -
Comment (customer-hidden) - -
Promotional code - -
Disable new orders - {disabled} eq 'Y' ? ' CHECKED' : '' %> -
- - - -Tax information -<% ntable("#cccccc", 2) %> - - Setup fee tax exempt - - {setuptax} eq 'Y' ? ' CHECKED' : '' %>> - - - - Recurring fee tax exempt - - {recurtax} eq 'Y' ? ' CHECKED' : '' %>> - - - -% if ( $conf->exists('enable_taxclasses') ) { - - - Tax class - - <% include('/elements/select-taxclass.html', $hashref->{taxclass} ) %> - - - -% } else { - - <% include('/elements/select-taxclass.html', $hashref->{taxclass} ) %> - -% } - -% if ( $conf->exists('enable_taxproducts') ) { - - - <% ntable("#cccccc", 2) %> - - Tax product - - - - - - - - - - <% $tax_override ? 'Edit tax overrides' : 'Override taxes' %> - - - - - - -% } else { - - - - -% } - - -
- -Line-item revenue recognition -<% ntable("#cccccc", 2) %> -% tie my %weight, 'Tie::IxHash', -% 'pay_weight' => 'Payment', -% 'credit_weight' => 'Credit' -% ; -% foreach my $weight (keys %weight) { - - <% $weight{$weight} %> weight - - {$weight} || 0 %>> - - -% } - - - - -% if ( $cgi->param('clone') ) { - - - -% } elsif ( scalar(@all_agent_types) == 1) { - - - -% } else { - - Reseller information - <% ntable("#cccccc", 2) %> - - <% 'Agent Types' %> - - <% include( '/elements/select-table.html', - 'element_name' => 'agent_type', - 'table' => 'agent_type', - 'name_col' => 'atype', - 'value' => \@agent_type, - 'multiple' => '1', - 'element_etc' => 'size="10"', - ) - %> - - - - -% } - - - -%my $thead = "\n\n". ntable('#cccccc', 2). -% 'Quan.'. -% 'Primary'. -% 'Service'; - -

Services included -<% itable('', 4, 1) %> -<% $thead %> -% -% -%my $where = "WHERE disabled IS NULL OR disabled = ''"; -%if ( $pkgpart ) { -% $where .= " OR 0 < ( SELECT quantity FROM pkg_svc -% WHERE pkg_svc.svcpart = part_svc.svcpart -% AND pkgpart = $pkgpart -% )"; -%} -%my @part_svc = qsearch('part_svc', {}, '', $where); -%my $q_part_pkg = $clone_part_pkg || $part_pkg; -%my %pkg_svc = map { $_->svcpart => $_ } $q_part_pkg->pkg_svc; -% -%my @fixups = (); -%my $count = 0; -%my $columns = 3; -%foreach my $part_svc ( @part_svc ) { -% my $svcpart = $part_svc->svcpart; -% my $pkg_svc = $pkg_svc{$svcpart} -% || new FS::pkg_svc ( { -% 'pkgpart' => $pkgpart, -% 'svcpart' => $svcpart, -% 'quantity' => 0, -% 'primary_svc' => '', -% } ); -% if ( $cgi->param('error') ) { -% my $primary_svc = ( $pkg_svc->primary_svc =~ /^Y/i ); -% my $pkg_svc_primary = scalar($cgi->param('pkg_svc_primary')); -% $pkg_svc->primary_svc('') -% if $primary_svc && $pkg_svc_primary != $svcpart; -% $pkg_svc->primary_svc('Y') -% if ! $primary_svc && $pkg_svc_primary == $svcpart; -% } -% -% push @fixups, "pkg_svc$svcpart"; -% -% my $quan = 0; -% if ( $cgi->param("pkg_svc$svcpart") =~ /^\s*(\d+)\s*$/ ) { -% $quan = $1; -% } elsif ( $pkg_svc->quantity ) { -% $quan = $pkg_svc->quantity; -% } - - - - - - - - - primary_svc =~ /^Y/i ? ' CHECKED' : '' %>> - - - - <% $part_svc->svc %> <% $part_svc->disabled =~ /^Y/i ? ' (DISABLED' : '' %> - - -% foreach ( 1 .. $columns-1 ) { -% if ( $count == int( $_ * scalar(@part_svc) / $columns ) ) { -% - - <% $thead %> -% } -% } -% $count++; -% -% } - - - -% foreach my $f ( qw( clone pkgnum ) ) { #safe, these were untained in %init - -% } - - -% -% -%# prolly should be in database -%tie my %plans, 'Tie::IxHash', %{ FS::part_pkg::plan_info() }; -% -%my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); } -% split("\n", ($clone_part_pkg||$part_pkg)->plandata ); -%#warn join("\n", map { "$_: $plandata{$_}" } keys %plandata ). "\n"; -% -%tie my %options, 'Tie::IxHash', map { $_=>$plans{$_}->{'name'} } keys %plans; -% -%#my @form_select = ('classnum'); -%#if ( $conf->exists('enable_taxclasses') ) { -%# push @form_select, 'taxclass'; -%#} else { -%# push @fixups, 'taxclass'; #hidden -%#} -%my @form_elements = ( 'classnum', 'taxclass', 'agent_type', 'tax_override' ); -% -%my @form_radio = ( 'pkg_svc_primary' ); -% -%tie my %freq, 'Tie::IxHash', %{FS::part_pkg->freqs_href()}; -%if ( $part_pkg->dbdef_table->column('freq')->type =~ /(int)/i ) { -% delete $freq{$_} foreach grep { ! /^\d+$/ } keys %freq; -%} -% -%#this should be replaced by /elements/selectlayers.html -%my $widget = new HTML::Widgets::SelectLayers( -% 'selected_layer' => $part_pkg->plan, -% 'options' => \%options, -% 'form_name' => 'dummy', -% 'form_action' => 'process/part_pkg.cgi', -% 'form_elements' => \@form_elements, -% 'form_text' => [ qw(pkg comment promo_code clone pkgnum pkgpart), -% qw(pay_weight credit_weight), #keys(%weight), -% qw(taxproductnum), -% @fixups, -% ], -% 'form_checkbox' => [ qw(setuptax recurtax disabled) ], -% 'form_radio' => \@form_radio, -% 'layer_callback' => sub { -% my $layer = shift; -% my $html = qq!!. -% ntable("#cccccc",2); -% $html .= ' -% -% Recurring fee frequency -% '; -% -% my $href = $plans{$layer}->{'fields'}; -% foreach my $field ( exists($plans{$layer}->{'fieldorder'}) -% ? @{$plans{$layer}->{'fieldorder'}} -% : keys %{ $href } -% ) { -% -% $html .= ''. $href->{$field}{'name'}. ''; -% -% my $format = sub { shift }; -% $format = $href->{$field}{'format'} if exists($href->{$field}{'format'}); -% -% if ( ! exists($href->{$field}{'type'}) ) { -% -% $html .= qq!!; -% -% } elsif ( $href->{$field}{'type'} eq 'checkbox' ) { -% -% $html .= qq!'; -% -% } elsif ( $href->{$field}{'type'} =~ /^select/ ) { -% -% $html .= '{$field}{'type'} eq 'select_multiple'; -% $html .= qq! NAME="$field" onChange="fchanged(this)">!; -% -% if ( $href->{$field}{'select_table'} ) { -% foreach my $record ( -% qsearch( $href->{$field}{'select_table'}, -% $href->{$field}{'select_hash'} ) -% ) { -% my $value = $record->getfield($href->{$field}{'select_key'}); -% $html .= qq!