% 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!
!; if ($hashref->{actypenum}) { print qq!