diff options
author | ivan <ivan> | 2002-03-12 15:33:22 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-03-12 15:33:22 +0000 |
commit | f96adaf19c0097ef8c9d6f29a5541b75381cc05d (patch) | |
tree | cf4d248a6c0048ed5cd6ca97fbb0b0965fa43f06 | |
parent | 56ef0a8a658b8449d1125fe017b21e0c636a8b0c (diff) |
abstract stupid HTML layer trick out to HTML::Widgets::SelectLayers
-rw-r--r-- | README.1.4.0pre12 | 2 | ||||
-rw-r--r-- | htetc/global.asa | 3 | ||||
-rw-r--r-- | htetc/handler.pl | 3 | ||||
-rw-r--r-- | httemplate/docs/install.html | 1 | ||||
-rw-r--r-- | httemplate/docs/upgrade8.html | 2 | ||||
-rwxr-xr-x | httemplate/edit/part_pkg.cgi | 256 | ||||
-rwxr-xr-x | httemplate/edit/part_svc.cgi | 225 |
7 files changed, 177 insertions, 315 deletions
diff --git a/README.1.4.0pre12 b/README.1.4.0pre12 index 0b453a4e4..824b7fd86 100644 --- a/README.1.4.0pre12 +++ b/README.1.4.0pre12 @@ -7,6 +7,8 @@ httemplate/docs/upgrade8.html instead ---- +install HTML-Widgets-SelectLayers from CPAN or http://www.420.am/selectlayers + install the FS perl modules and httemplate as per install.html or upgrade8.html ALTER TABLE cust_bill_event ADD status varchar(80); diff --git a/htetc/global.asa b/htetc/global.asa index 339f01dae..083f2253d 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -9,6 +9,7 @@ use HTML::Entities; use IO::Handle; use IO::File; use String::Approx qw(amatch); +use HTML::Widgets::SelectLayers; use FS::UID qw(cgisuidsetup dbh getotaker datasrc); use FS::Record qw(qsearch qsearchs fields dbdef); use FS::Conf; @@ -45,6 +46,8 @@ use FS::svc_domain; use FS::svc_forward; use FS::svc_www; use FS::type_pkgs; +use FS::part_export; +#use FS::part_export_option; sub Script_OnStart { $Response->AddHeader('Pragma' => 'no-cache'); diff --git a/htetc/handler.pl b/htetc/handler.pl index 680d11ec8..5f244921e 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -66,6 +66,7 @@ sub handler use IO::Handle; use IO::File; use String::Approx qw(amatch); + use HTML::Widgets::SelectLayers; use FS::UID qw(cgisuidsetup dbh getotaker datasrc); use FS::Record qw(qsearch qsearchs fields dbdef); use FS::Conf; @@ -102,6 +103,8 @@ sub handler use FS::svc_forward; use FS::svc_www; use FS::type_pkgs; + use FS::part_export; + #use FS::part_export_option; *CGI::redirect = sub { my( $self, $location ) = @_; diff --git a/httemplate/docs/install.html b/httemplate/docs/install.html index d7c014f4d..1a4942bc9 100644 --- a/httemplate/docs/install.html +++ b/httemplate/docs/install.html @@ -50,6 +50,7 @@ Before installing, you need: <li><a href="http://www.apache-asp.org/">Apache::ASP</a> or <a href="http://www.masonhq.com/">HTML::Mason</a> <li><a href="http://search.cpan.org/search?dist=Tie-IxHash">Tie-IxHash</a> <li><a href="http://search.cpan.org/search?dist=Time-Duration">Time-Duration</a> + <li><a href="http://search.cpan.org/search?dist=HTML-Widgets-SelectLayers">HTML-Widgets-SelectLayers</a> </ul> </ul> Install the Freeside distribution: diff --git a/httemplate/docs/upgrade8.html b/httemplate/docs/upgrade8.html index 4b0c493f0..2640be419 100644 --- a/httemplate/docs/upgrade8.html +++ b/httemplate/docs/upgrade8.html @@ -7,7 +7,7 @@ <li>If migrating from less than 1.3.1, see these <a href="upgrade7.html">instructions</a> first. <li><font size="+2" color="#ff0000">Backup your database and current Freeside installation.</font> (with <a href="http://www.ca.postgresql.org/devel-corner/docs/postgres/backup.html">PostgreSQL</a>) (with <a href="http://www.mysql.com/documentation/mysql/bychapter/manual_MySQL_Database_Administration.html#Backup">MySQL</a>) <li><a href="http://perl.apache.org/">mod_perl</a> is now required. - <li>Install <a href="http://search.cpan.org/search?dist=Time-Duration">Time-Duration</a>, and <a href="http://search.cpan.org/search?dist=Tie-IxHash">Tie-IxHash</a> + <li>Install <a href="http://search.cpan.org/search?dist=Time-Duration">Time-Duration</a>, <a href="http://search.cpan.org/search?dist=Tie-IxHash">Tie-IxHash</a> and <a href="http://search.cpan.org/search?dist=HTML-Widgets-SelectLayers">HTML-Widgets-SelectLayers</a>. <li>Install <a href="http://www.apache-asp.org/">Apache::ASP</a> or <a href="http://www.masonhq.com/">HTML::Mason</a>. <li>Install <a href="http://rsync.samba.org/">rsync</a> </ul> diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi index 8e7a6c5cf..d3213dd46 100755 --- a/httemplate/edit/part_pkg.cgi +++ b/httemplate/edit/part_pkg.cgi @@ -42,24 +42,12 @@ unless ( $part_pkg->plan ) { #backwards-compat $action ||= $part_pkg->pkgpart ? 'Edit' : 'Add'; my $hashref = $part_pkg->hashref; -%> - -<SCRIPT> -function visualize(what) { - if (document.getElementById) { - document.getElementById('d<%= $part_pkg->plan %>').style.visibility = "visible"; - } else { - document.l<%= $part_pkg->plan %>.visibility = "visible"; - } -} -</SCRIPT> - -<% print header("$action Package Definition", menubar( 'Main Menu' => popurl(2), 'View all packages' => popurl(2). 'browse/part_pkg.cgi', -), ' onLoad="visualize()"'); +)); +#), ' onLoad="visualize()"'); print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'), "</FONT>" @@ -164,8 +152,12 @@ unless ( 0 ) { #print "</TR></TABLE>"; } +foreach my $f ( qw( clone pkgnum ) ) { + print qq!<INPUT TYPE="hidden" NAME="$f" VALUE="!. $cgi->param($f). '">'; +} +print '<INPUT TYPE="hidden" NAME="pkgpart" VALUE="'. $part_pkg->pkgpart. '">'; + # prolly should be in database -use Tie::IxHash; tie my %plans, 'Tie::IxHash', 'flat' => { 'name' => 'Flat rate', @@ -314,159 +306,99 @@ tie my %plans, 'Tie::IxHash', ; -%> - -<SCRIPT> -var layer = null; - -function changed(what) { - layer = what.options[what.selectedIndex].value; -<% foreach my $layer ( keys %plans ) { %> - if (layer == "<%= $layer %>" ) { - <% foreach my $not ( grep { $_ ne $layer } keys %plans ) { %> - if (document.getElementById) { - document.getElementById('d<%= $not %>').style.visibility = "hidden"; - } else { - document.l<%= $not %>.visibility = "hidden"; - } - <% } %> - if (document.getElementById) { - document.getElementById('d<%= $layer %>').style.visibility = "visible"; - } else { - document.l<%= $layer %>.visibility = "visible"; - } - } -<% } %> -} - -</SCRIPT> -<BR> -Price plan <SELECT NAME="plan" SIZE=1 onChange="changed(this);"> -<OPTION> -<% foreach my $layer (keys %plans ) { %> -<OPTION VALUE="<%= $layer %>"<%= ' SELECTED'x($layer eq $part_pkg->plan) %>><%= $plans{$layer}->{'name'} %> -<% } %> -</SELECT></FORM> - -<SCRIPT> -function fchanged(what) { - fixup(what.form); -} - -function fixup(what) { -<% foreach my $f ( qw( pkg comment freq ), @fixups ) { %> - what.<%= $f %>.value = document.dummy.<%= $f %>.value; -<% } %> -<% foreach my $f ( qw( setuptax recurtax disabled ) ) { %> - if (document.dummy.<%= $f %>.checked) - what.<%= $f %>.value = 'Y'; - else - what.<%= $f %>.value = ''; -<% } %> - what.plan.value = document.dummy.plan.options[document.dummy.plan.selectedIndex].value; -<% foreach my $p ( keys %plans ) { %> - if ( what.plan.value == "<%= $p %>" ) { - what.setup.value = <%= $plans{$p}->{setup} %>; - what.recur.value = <%= $plans{$p}->{recur} %>; - } -<% } %> -} -</SCRIPT> - -<% my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); } +my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); } split("\n", $part_pkg->plandata ); - #foreach my $layer ( 'konq_kludge', keys %plans ) { - foreach my $layer ( 'konq_kludge', keys %plans ) { - my $visibility = "hidden"; -%> -<SCRIPT> -if (document.getElementById) { - document.write("<DIV ID=\"d<%= $layer %>\" STYLE=\"visibility: <%= $visibility %>; position: absolute\">"); -} else { -<% $visibility="show" if $visibility eq "visible"; %> - document.write("<LAYER ID=\"l<%= $layer %>\" VISIBILITY=\"<%= $visibility %>\">"); -} -</SCRIPT> - -<FORM NAME="<%= $layer %>" ACTION="process/part_pkg.cgi" METHOD=POST onSubmit="fixup(this)"> -<INPUT TYPE="hidden" NAME="plan" VALUE="<%= $part_pkg->plan %>"> -<INPUT TYPE="hidden" NAME="pkg" VALUE="<%= $hashref->{pkg} %>"> -<INPUT TYPE="hidden" NAME="comment" VALUE="$<%= $hashref->{comment} %>"> -<INPUT TYPE="hidden" NAME="freq" VALUE="<%= $hashref->{freq} %>"> -<INPUT TYPE="hidden" NAME="setuptax" VALUE="<%= $hashref->{setuptax} %>"> -<INPUT TYPE="hidden" NAME="recurtax" VALUE="<%= $hashref->{recurtax} %>"> -<INPUT TYPE="hidden" NAME="disabled" VALUE="<%= $hashref->{disabled} %>"> -<% foreach my $f ( @fixups ) { %> -<INPUT TYPE="hidden" NAME="<%= $f %>" VALUE=""> -<% } %> -<% -if ( $cgi->param('clone') ) { - print qq!<INPUT TYPE="hidden" NAME="clone" VALUE="!, $cgi->param('clone'), qq!">!; -} -if ( $cgi->param('pkgnum') ) { - print qq!<INPUT TYPE="hidden" NAME="pkgnum" VALUE="!, $cgi->param('pkgnum'), qq!">!; -} -%> +tie my %options, 'Tie::IxHash', map { $_=>$plans{$_}->{'name'} } keys %plans; + +my $widget = new HTML::Widgets::SelectLayers( + 'selected_layer' => $part_pkg->plan, + 'options' => \%options, + 'form_name' => 'dummy', + 'form_action' => 'process/part_pkg.cgi', + 'form_text' => [ qw(pkg comment freq clone pkgnum pkgpart), @fixups ], + 'form_checkbox' => [ qw(setuptax recurtax disabled) ], + 'fixup_callback' => sub { + #my $ = @_; + my $html = ''; + for my $p ( keys %plans ) { + $html .= "if ( what.plan.value == \"$p\" ) { + what.setup.value = $plans{$p}->{setup} ; + what.recur.value = $plans{$p}->{recur} ; + }\n"; + } + $html; + }, + 'layer_callback' => sub { + my $layer = shift; + my $html = qq!<INPUT TYPE="hidden" NAME="plan" VALUE="$layer">!. + ntable("#cccccc",2); + my $href = $plans{$layer}->{'fields'}; + foreach my $field ( exists($plans{$layer}->{'fieldorder'}) + ? @{$plans{$layer}->{'fieldorder'}} + : keys %{ $href } + ) { + + $html .= '<TR><TD ALIGN="right">'. $href->{$field}{'name'}. '</TD><TD>'; + + if ( ! exists($href->{$field}{'type'}) ) { + $html .= qq!<INPUT TYPE="text" NAME="$field" VALUE="!. + ( exists($plandata{$field}) + ? $plandata{$field} + : $href->{$field}{'default'} ). + qq!" onChange="fchanged(this)">!; + } elsif ( $href->{$field}{'type'} eq 'select_multiple' ) { + $html .= qq!<SELECT MULTIPLE NAME="$field" onChange="fchanged(this)">!; + foreach my $record ( + qsearch( $href->{$field}{'select_table'}, + $href->{$field}{'select_hash'} ) + ) { + my $value = $record->getfield($href->{$field}{'select_key'}); + $html .= qq!<OPTION VALUE="$value"!. + ( $plandata{$field} =~ /(^|, *)$value *(,|$)/ + ? ' SELECTED' + : '' ). + '>'. $record->getfield($href->{$field}{'select_label'}) + } + $html .= '</SELECT>'; + } -<INPUT TYPE="hidden" NAME="pkgpart" VALUE="<%= $hashref->{pkgpart} %>"> -<%= ntable("#cccccc",2) %> + $html .= '</TD></TR>'; + } + $html .= '</TABLE>'; + + $html .= '<INPUT TYPE="hidden" NAME="plandata" VALUE="'. + join(',', keys %{ $href } ). '">'. + '<BR><BR>'; + + $html .= '<INPUT TYPE="submit" VALUE="'. + ( $hashref->{pkgpart} ? "Apply changes" : "Add package" ). + '" onClick="fchanged(this)">'; + + $html .= '<BR><BR>don\'t edit this unless you know what you\'re doing '. + '<INPUT TYPE="button" VALUE="refresh expressions" '. + 'onClick="fchanged(this)">'. + ntable("#cccccc",2). + '<TR><TD>'. + '<FONT SIZE="1">Setup expression<BR>'. + '<INPUT TYPE="text" NAME="setup" SIZE="160" VALUE="'. + $hashref->{setup}. '" onLoad="fchanged(this)">'. + '</FONT><BR>'. + '<FONT SIZE="1">Recurring espression<BR>'. + '<INPUT TYPE="text" NAME="recur" SIZE="160" VALUE="'. + $hashref->{recur}. '" onLoad="fchanged(this)">'. + '</FONT>'. + '</TR></TD>'. + '</TABLE>'; + + $html; -<% my $href = $plans{$layer}->{'fields'}; - foreach my $field ( exists($plans{$layer}->{'fieldorder'}) - ? @{$plans{$layer}->{'fieldorder'}} - : keys %{ $href } - ) { -%> - <TR><TD ALIGN="right"><%= $href->{$field}{'name'} %></TD> - <TD> - <% if ( ! exists($href->{$field}{'type'}) ) { %> - <INPUT TYPE="text" NAME="<%= $field %>" VALUE="<%= exists($plandata{$field}) ? $plandata{$field} : $href->{$field}{'default'} %>" onChange="fchanged(this)"> - <% } elsif ( $href->{$field}{'type'} eq 'select_multiple' ) { %> - <SELECT MULTIPLE NAME="<%= $field %>" onChange="fchanged(this)"> - <% foreach my $record ( qsearch( $href->{$field}{'select_table'}, $href->{$field}{'select_hash'} ) ) { - my $value = $record->getfield($href->{$field}{'select_key'}); %> - <OPTION VALUE="<%= $value %>"<%= $plandata{$field} =~ /(^|, *)$value *(,|$)/ ? ' SELECTED' : '' %>><%= $record->getfield($href->{$field}{'select_label'}) %> - <% } %> - </SELECT> - <% } %> - </TD></TR> -<% } %> - -</TABLE> -<INPUT TYPE="hidden" NAME="plandata" VALUE="<%= join(',', keys %{ $href } ) %>"> -<BR><BR> + }, +); -<% -print qq!<INPUT TYPE="submit" VALUE="!, - $hashref->{pkgpart} ? "Apply changes" : "Add package", - qq!" onClick="fchanged(this)">!; %> -<BR><BR>don't edit this unless you know what you're doing <INPUT TYPE="button" VALUE="refresh expressions" onClick="fchanged(this)"><%= ntable("#cccccc",2) %><TR><TD> -<FONT SIZE="1">Setup expression<BR><INPUT TYPE="text" NAME="setup" SIZE="160" VALUE="<%= $hashref->{setup} %>" onLoad="fchanged(this)"></FONT><BR> -<FONT SIZE="1">Recurring espression<BR><INPUT TYPE="text" NAME="recur" SIZE="160" VALUE="<%= $hashref->{recur} %>" onLoad="fchanged(this)"></FONT> -</TR></TD> -</TABLE> - -</FORM> - -<SCRIPT> -if (document.getElementById) { - document.write("</DIV>"); -} else { - document.write("</LAYER>"); -} -</SCRIPT> - -<% } %> - -<TAG onLoad=" - if (document.getElementById) { - document.getElementById('d<%= $part_pkg->plan %>').style.visibility = 'visible'; - } else { - document.l<%= $part_pkg->plan %>.visibility = 'visible'; - } -"> +<BR> +Price plan <%= $widget->html %> </BODY> </HTML> diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi index 57ab3985e..3292a9b9b 100755 --- a/httemplate/edit/part_svc.cgi +++ b/httemplate/edit/part_svc.cgi @@ -15,25 +15,16 @@ } my $action = $part_svc->svcpart ? 'Edit' : 'Add'; my $hashref = $part_svc->hashref; - my $p_svcdb = $part_svc->svcdb || 'svc_acct'; +# my $p_svcdb = $part_svc->svcdb || 'svc_acct'; -%> -<SCRIPT> -function visualize(what) { - if (document.getElementById) { - document.getElementById('d<%= $p_svcdb %>').style.visibility = "visible"; - } else { - document.l<%= $p_svcdb %>.visibility = "visible"; - } -} -</SCRIPT> + #" onLoad=\"visualize()\"" +%> <%= header("$action Service Definition", menubar( 'Main Menu' => $p, 'View all service definitions' => "${p}browse/part_svc.cgi" ), - " onLoad=\"visualize()\"" ) %> @@ -47,6 +38,7 @@ function visualize(what) { <BR><BR> Service <INPUT TYPE="text" NAME="svc" VALUE="<%= $hashref->{svc} %>"><BR> Disable new orders <INPUT TYPE="checkbox" NAME="disabled" VALUE="Y"<%= $hashref->{disabled} eq 'Y' ? ' CHECKED' : '' %>><BR> +<INPUT TYPE="hidden" NAME="svcpart" VALUE="<%= $hashref->{svcpart} %>"> <BR> Services are items you offer to your customers. <UL><LI>svc_acct - Shell accounts, POP mailboxes, SLIP/PPP and ISDN accounts @@ -64,37 +56,6 @@ values. For example, a SLIP/PPP account may have a default (or perhaps fixed) blank <B>slipip</B> as well as a fixed shell something like <B>/bin/true</B> or <B>/usr/bin/passwd</B>. <BR><BR> -<SCRIPT> -var svcdb = null; -function changed(what) { - svcdb = what.options[what.selectedIndex].value; -<% foreach my $svcdb ( qw( svc_acct svc_domain svc_acct_sm svc_forward svc_www ) ) { %> - if (svcdb == "<%= $svcdb %>" ) { - <% foreach my $not ( grep { $_ ne $svcdb } ( - qw(svc_acct svc_domain svc_acct_sm svc_forward svc_www) ) ) { %> - if (document.getElementById) { - document.getElementById('d<%= $not %>').style.visibility = "hidden"; - } else { - document.l<%= $not %>.visibility = "hidden"; - } - <% } %> - if (document.getElementById) { - document.getElementById('d<%= $svcdb %>').style.visibility = "visible"; - } else { - document.l<%= $svcdb %>.visibility = "visible"; - } - } -<% } %> -} -</SCRIPT> -<% my @dbs = $hashref->{svcdb} - ? ( $hashref->{svcdb} ) - : qw( svc_acct svc_domain svc_acct_sm svc_forward svc_www ); %> -Table<SELECT NAME="svcdb" SIZE=1 onChange="changed(this)"> -<% foreach my $svcdb (@dbs) { %> -<OPTION VALUE="<%= $svcdb %>" <%= ' SELECTED'x($svcdb eq $hashref->{svcdb}) %>><%= $svcdb %> -<% } %> -</SELECT></FORM> <% #these might belong somewhere else for other user interfaces @@ -152,121 +113,81 @@ my %defs = ( }, ); -# svc_acct svc_domain svc_acct_sm svc_charge svc_wo -foreach my $svcdb ( qw( - konq_kludge svc_acct svc_domain svc_acct_sm svc_forward svc_www -) ) { - -# my(@fields) = $svcdb eq 'konq_kludge' -# ? () -# : grep { $_ ne 'svcnum' } fields($svcdb); - #yucky kludge - my(@fields) = defined( $FS::Record::dbdef->table($svcdb) ) - ? grep { $_ ne 'svcnum' } fields($svcdb) - : (); - #my($rowspan)=scalar(@rows); - - #my($ptmp)="<TD ROWSPAN=$rowspan>$svcdb</TD>"; -# $visibility = $svcdb eq $part_svc->svcdb ? "SHOW" : "HIDDEN"; -# $visibility = $svcdb eq $p_svcdb ? "visible" : "hidden"; - my $visibility = "hidden"; -%> -<SCRIPT> -if (document.getElementById) { - document.write("<DIV ID=\"d<%= $svcdb %>\" STYLE=\"visibility: <%= $visibility %>; position: absolute\">"); -} else { -<% $visibility="show" if $visibility eq "visible"; %> - document.write("<LAYER ID=\"l<%= $svcdb %>\" VISIBILITY=\"<%= $visibility %>\">"); -} - -function fixup(what) { - what.svc.value = document.dummy.svc.value; - what.svcdb.value = document.dummy.svcdb.options[document.dummy.svcdb.selectedIndex].value; - if (document.dummy.disabled.checked) - what.disabled.value = 'Y'; - else - what.disabled.value = ''; -} -</SCRIPT> -<FORM NAME="<%= $svcdb %>" ACTION="process/part_svc.cgi" METHOD=POST onSubmit="fixup(this)"> -<INPUT TYPE="hidden" NAME="svcpart" VALUE="<%= $hashref->{svcpart} %>"> -<INPUT TYPE="hidden" NAME="svc" VALUE="<%= $hashref->{svc} %>"> -<INPUT TYPE="hidden" NAME="disabled" VALUE="<%= $hashref->{disabled} %>"> -<INPUT TYPE="hidden" NAME="svcdb" VALUE="<%= $svcdb %>"> -<% - #print "$svcdb<BR>" unless $svcdb eq 'konq_kludge'; - print table(). "<TH>Field</TH><TH COLSPAN=2>Modifier</TH>" unless $svcdb eq 'konq_kludge'; - - foreach my $field (@fields) { - my $part_svc_column = $part_svc->part_svc_column($field); - my $value = $cgi->param('error') - ? $cgi->param("${svcdb}__${field}") - : $part_svc_column->columnvalue; - my $flag = $cgi->param('error') - ? $cgi->param("${svcdb}__${field}_flag") - : $part_svc_column->columnflag; - #print "<TR>$ptmp<TD>$field"; - print "<TR><TD>$field"; - my $def = $defs{$svcdb}{$field}; - my $desc = ref($def) ? $def->{desc} : $def; - - print "- <FONT SIZE=-1>$desc</FONT>" if $desc; - print "</TD>"; - print qq!<TD><INPUT TYPE="radio" NAME="${svcdb}__${field}_flag" VALUE=""!. - ' CHECKED'x($flag eq ''). ">Off</TD>"; - print qq!<TD><INPUT TYPE="radio" NAME="${svcdb}__${field}_flag" VALUE="D"!. - ' CHECKED'x($flag eq 'D'). ">Default "; - print qq!<INPUT TYPE="radio" NAME="${svcdb}__${field}_flag" VALUE="F"!. - ' CHECKED'x($flag eq 'F'). ">Fixed "; - print '<BR>'; - if ( ref($def) ) { - if ( $def->{type} eq 'select' ) { - print qq!<SELECT NAME="${svcdb}__${field}">!; - print '<OPTION> </OPTION>' unless $value; - foreach my $record ( qsearch( $def->{select_table}, {} ) ) { - my $rvalue = $record->getfield($def->{select_key}); - print qq!<OPTION VALUE="$rvalue"!. - ( $rvalue==$value ? ' SELECTED>' : '>' ). - $record->getfield($def->{select_label}). '</OPTION>'; + my @dbs = $hashref->{svcdb} + ? ( $hashref->{svcdb} ) + : qw( svc_acct svc_domain svc_acct_sm svc_forward svc_www ); + + tie my %svcdb, 'Tie::IxHash', map { $_=>$_ } @dbs; + my $widget = new HTML::Widgets::SelectLayers( + #'selected_layer' => $p_svcdb, + 'selected_layer' => $hashref->{svcdb} || 'svc_acct', + 'options' => \%svcdb, + 'form_name' => 'dummy', + 'form_action' => 'process/part_svc.cgi', + 'form_text' => [ qw( svc svcpart ) ], + 'form_checkbox' => [ 'disabled' ], + 'layer_callback' => sub { + my $layer = shift; + my $html = qq!<INPUT TYPE="hidden" NAME="svcdb" VALUE="$layer">!. + table(). "<TH>Field</TH><TH COLSPAN=2>Modifier</TH>"; + #yucky kludge + my @fields = defined( $FS::Record::dbdef->table($layer) ) + ? grep { $_ ne 'svcnum' } fields($layer) + : (); + foreach my $field (@fields) { + my $part_svc_column = $part_svc->part_svc_column($field); + my $value = $cgi->param('error') + ? $cgi->param("${layer}__${field}") + : $part_svc_column->columnvalue; + my $flag = $cgi->param('error') + ? $cgi->param("${layer}__${field}_flag") + : $part_svc_column->columnflag; + my $def = $defs{$layer}{$field}; + my $desc = ref($def) ? $def->{desc} : $def; + + $html .= "<TR><TD>$field"; + $html .= "- <FONT SIZE=-1>$desc</FONT>" if $desc; + $html .= "</TD>"; + $html .= + qq!<TD><INPUT TYPE="radio" NAME="${layer}__${field}_flag" VALUE=""!. + ' CHECKED'x($flag eq ''). ">Off</TD>". + qq!<TD><INPUT TYPE="radio" NAME="${layer}__${field}_flag" VALUE="D"!. + ' CHECKED'x($flag eq 'D'). ">Default ". + qq!<INPUT TYPE="radio" NAME="${layer}__${field}_flag" VALUE="F"!. + ' CHECKED'x($flag eq 'F'). ">Fixed ". + '<BR>'; + if ( ref($def) ) { + if ( $def->{type} eq 'select' ) { + $html .= qq!<SELECT NAME="${layer}__${field}">!; + $html .= '<OPTION> </OPTION>' unless $value; + foreach my $record ( qsearch( $def->{select_table}, {} ) ) { + my $rvalue = $record->getfield($def->{select_key}); + $html .= qq!<OPTION VALUE="$rvalue"!. + ( $rvalue==$value ? ' SELECTED>' : '>' ). + $record->getfield($def->{select_label}). '</OPTION>'; + } + $html .= '</SELECT>'; + } else { + $html .= '<font color="#ff0000">unknown type'. $def->{type}; + } + } else { + $html .= + qq!<INPUT TYPE="text" NAME="${layer}__${field}" VALUE="$value">!; } - print '</SELECT>'; - } else { - print '<font color="#ff0000">unknown type'. $def->{type}; + $html .= "</TD></TR>\n"; } - } else { - print qq!<INPUT TYPE="text" NAME="${svcdb}__${field}" VALUE="$value">!; - } - print "</TD></TR>\n"; - #$ptmp=''; - } - print "</TABLE>" unless $svcdb eq 'konq_kludge'; + $html .= "</TABLE>"; -print qq!\n<BR><INPUT TYPE="submit" VALUE="!, - $hashref->{svcpart} ? "Apply changes" : "Add service", - qq!">! unless $svcdb eq 'konq_kludge'; + $html .= '<BR><INPUT TYPE="submit" VALUE="'. + ($hashref->{svcpart} ? 'Apply changes' : 'Add service'). '">'; - print "</FORM>"; - print <<END; - <SCRIPT> - if (document.getElementById) { - document.write("</DIV>"); - } else { - document.write("</LAYER>"); - } - </SCRIPT> -END -} -#print "</TABLE>"; -%> + $html; -<TAG onLoad=" - if (document.getElementById) { - document.getElementById('d<%= $p_svcdb %>').style.visibility = 'visible'; - } else { - document.l<%= $p_svcdb %>.visibility = 'visible'; - } -"> + }, + ); +%> +Table <%= $widget->html %> </BODY> </HTML> |