5 if ( $cgi->param('error') ) {
6 $ac_type = new FS::ac_type ( {
7 map { $_, scalar($cgi->param($_)) } fields('ac_type')
9 } elsif ( $cgi->keywords ) { #editing
10 my($query)=$cgi->keywords;
12 $ac_type=qsearchs('ac_type',{'actypenum'=>$1});
14 $ac_type = new FS::ac_type {};
16 my $action = $ac_type->actypenum ? 'Edit' : 'Add';
17 my $hashref = $ac_type->hashref;
19 my @ut_types = qw( float number text alpha anything ip domain );
22 print header("$action Access Concentrator Type", menubar(
23 'Main Menu' => popurl(2),
24 'View all Access Concentrator types' => popurl(2). "browse/ac_type.cgi",
27 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
29 if $cgi->param('error');
31 print qq!<FORM ACTION="${p1}process/ac_type.cgi" METHOD=POST>!;
35 print qq!<INPUT TYPE="hidden" NAME="actypenum" VALUE="$hashref->{actypenum}">!,
36 "AC Type #", $hashref->{actypenum} ? $hashref->{actypenum} : "(NEW)";
40 AC Type Name <INPUT TYPE="text" NAME="actypename" SIZE=15 VALUE="$hashref->{actypename}">
45 print qq!<BR><INPUT TYPE="submit" VALUE="!,
46 $hashref->{actypenum} ? "Apply changes" : "Add AC Type",
50 if ($hashref->{actypenum}) {
51 print qq! <BR>Available fields:<BR>! . table();
53 print qq! <TH><TD>Field name</TD><TD>Field type</TD><TD></TD></TH>!;
55 my @part_ac_field = qsearch ( 'part_ac_field',
56 { actypenum => $hashref->{actypenum} } );
57 foreach ( @part_ac_field ) {
58 my $pf_hashref = $_->hashref;
61 <TD>$pf_hashref->{acfieldpart}</TD>
62 <TD>$pf_hashref->{name}</TD>
63 <TD>$pf_hashref->{ut_type}</TD>
68 my $name, $ut_type = '';
69 if ($cgi->param('error')) {
70 $name = $cgi->param('name');
71 $ut_type = $cgi->param('ut_type');
75 <FORM ACTION="${p1}process/part_ac_field.cgi" METHOD=GET>
77 <TD><SMALL>(NEW)</SMALL>
78 <INPUT TYPE="hidden" NAME="actypenum" VALUE="$hashref->{actypenum}">
81 <INPUT TYPE="text" NAME="name" VALUE="${name}">
84 <SELECT NAME="ut_type" SIZE=1><OPTION>
87 foreach ( @ut_types ) {
88 print qq!<OPTION! . ($ut_type ? " SELECTED>$_" : ">$_");
94 <TD><INPUT TYPE="submit" VALUE="Add"></TD>