+++ /dev/null
-<!-- mason kludge -->
-<%
-
-my $ac_type;
-if ( $cgi->param('error') ) {
- $ac_type = new FS::ac_type ( {
- map { $_, scalar($cgi->param($_)) } fields('ac_type')
- } );
-} elsif ( $cgi->keywords ) { #editing
- my($query)=$cgi->keywords;
- $query =~ /^(\d+)$/;
- $ac_type=qsearchs('ac_type',{'actypenum'=>$1});
-} else { #adding
- $ac_type = new FS::ac_type {};
-}
-my $action = $ac_type->actypenum ? 'Edit' : 'Add';
-my $hashref = $ac_type->hashref;
-
-my @ut_types = qw( float number text alpha anything ip domain );
-
-my $p1 = popurl(1);
-print header("$action Access Concentrator Type", menubar(
- 'Main Menu' => popurl(2),
- 'View all Access Concentrator types' => popurl(2). "browse/ac_type.cgi",
-));
-
-print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
- "</FONT>"
- if $cgi->param('error');
-
-print qq!<FORM ACTION="${p1}process/ac_type.cgi" METHOD=POST>!;
-
-#display
-
-print qq!<INPUT TYPE="hidden" NAME="actypenum" VALUE="$hashref->{actypenum}">!,
- "AC Type #", $hashref->{actypenum} ? $hashref->{actypenum} : "(NEW)";
-
-print <<TROZ;
-<PRE>
-AC Type Name <INPUT TYPE="text" NAME="actypename" SIZE=15 VALUE="$hashref->{actypename}">
-</PRE>
-
-TROZ
-
-print qq!<BR><INPUT TYPE="submit" VALUE="!,
- $hashref->{actypenum} ? "Apply changes" : "Add AC Type",
- qq!"></FORM>!;
-
-
-if ($hashref->{actypenum}) {
- print qq! <BR>Available fields:<BR>! . table();
-
- print qq! <TH><TD>Field name</TD><TD>Field type</TD><TD></TD></TH>!;
-
- my @part_ac_field = qsearch ( 'part_ac_field',
- { actypenum => $hashref->{actypenum} } );
- foreach ( @part_ac_field ) {
- my $pf_hashref = $_->hashref;
- print <<END;
- <TR>
- <TD>$pf_hashref->{acfieldpart}</TD>
- <TD>$pf_hashref->{name}</TD>
- <TD>$pf_hashref->{ut_type}</TD>
- </TR>
-END
- }
-
- my $name, $ut_type = '';
- if ($cgi->param('error')) {
- $name = $cgi->param('name');
- $ut_type = $cgi->param('ut_type');
- }
-
- print <<END;
- <FORM ACTION="${p1}process/part_ac_field.cgi" METHOD=GET>
- <TR>
- <TD><SMALL>(NEW)</SMALL>
- <INPUT TYPE="hidden" NAME="actypenum" VALUE="$hashref->{actypenum}">
- </TD>
- <TD>
- <INPUT TYPE="text" NAME="name" VALUE="${name}">
- </TD>
- <TD>
- <SELECT NAME="ut_type" SIZE=1><OPTION>
-END
-
- foreach ( @ut_types ) {
- print qq!<OPTION! . ($ut_type ? " SELECTED>$_" : ">$_");
- }
-
- print <<END;
- </SELECT>
- </TD>
- <TD><INPUT TYPE="submit" VALUE="Add"></TD>
- </TR>
- </FORM>
- </TABLE>
-END
-
-}
-
-%>
-
- </BODY>
-</HTML>
-