- 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">!;
-
- my $columns = 3;
- my $count = 0;
- my @part_export =
- grep { $layer eq FS::part_export::exporttype2svcdb($_->exporttype) }
- qsearch( 'part_export', {} );
- $html .= '<BR><BR>'. table().
- table(). "<TR><TH COLSPAN=$columns>Exports</TH></TR><TR>";
- foreach my $part_export ( @part_export ) {
- $html .= '<TD><INPUT TYPE="checkbox"'.
- ' NAME="exportnum'. $part_export->exportnum. '" VALUE="1" ';
- $html .= 'CHECKED'
- if qsearchs( 'export_svc', {
- exportnum => $part_export->exportnum,
- svcpart => $clone || $part_svc->svcpart });
- $html .= '> '. $part_export->exporttype. ' to '. $part_export->machine.
- '</TD>';
- $count++;
- $html .= '</TR><TR>' unless $count % $columns;
- }
- $html .= '</TR></TABLE><BR><BR>';
-
- $html .= table(). "<TH>Field</TH><TH COLSPAN=2>Modifier</TH>";
- #yucky kludge
- my @fields = defined( $FS::Record::dbdef->table($layer) )
- ? grep { $_ ne 'svcnum' } fields($layer)
- : ();
- push @fields, 'usergroup' if $layer eq 'svc_acct'; #kludge
- $part_svc->svcpart($clone) if $clone; #haha, undone below
- 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>';
- } elsif ( $def->{type} eq 'radius_usergroup_selector' ) {
- $html .= FS::svc_acct::radius_usergroup_selector(
- [ split(',', $value) ], "${layer}__${field}" );
- } else {
- $html .= '<font color="#ff0000">unknown type'. $def->{type};
- }
- } else {
- $html .=
- qq!<INPUT TYPE="text" NAME="${layer}__${field}" VALUE="$value">!;
- }
- $html .= "</TD></TR>\n";
- }
- $part_svc->svcpart('') if $clone; #undone
- $html .= "</TABLE>";
+<BR>
+Table <% $widget->html %>
+
+<% include('/elements/footer.html') %>
+
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+my $conf = FS::Conf->new;
+my $part_svc;
+my $clone = '';
+if ( $cgi->param('clone') && $cgi->param('clone') =~ /^(\d+)$/ ) {#clone
+ #$cgi->param('clone') =~ /^(\d+)$/ or die "malformed query: $query";
+ $part_svc = qsearchs('part_svc', { 'svcpart'=>$1 } )
+ or die "unknown svcpart: $1";
+ $clone = $part_svc->svcpart;
+ $part_svc->svcpart('');
+} elsif ( $cgi->keywords ) { #edit
+ my($query) = $cgi->keywords;
+ $query =~ /^(\d+)$/ or die "malformed query: $query";
+ $part_svc=qsearchs('part_svc', { 'svcpart'=>$1 } )
+ or die "unknown svcpart: $1";
+} else { #adding
+ $part_svc = new FS::part_svc {};
+}
+
+my $action = $part_svc->svcpart ? 'Edit' : 'Add';
+my $hashref = $part_svc->hashref;
+# my $p_svcdb = $part_svc->svcdb || 'svc_acct';