<% 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!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print qq!

!; #display print qq!!, "AC Type #", $hashref->{actypenum} ? $hashref->{actypenum} : "(NEW)"; print < AC Type Name TROZ print qq!
!; if ($hashref->{actypenum}) { print qq!
Available fields:
! . table(); print qq! Field nameField type!; my @part_ac_field = qsearch ( 'part_ac_field', { actypenum => $hashref->{actypenum} } ); foreach ( @part_ac_field ) { my $pf_hashref = $_->hashref; print < $pf_hashref->{acfieldpart} $pf_hashref->{name} $pf_hashref->{ut_type} END } my $name, $ut_type = ''; if ($cgi->param('error')) { $name = $cgi->param('name'); $ut_type = $cgi->param('ut_type'); } print < (NEW) END foreach ( @ut_types ) { print qq!$_" : ">$_"); } print < END } %>