#!/usr/bin/perl -Tw # # agent_type.cgi: Add/Edit agent type (output form) # # ivan@sisd.com 97-dec-10 # # Changes to allow page to work at a relative position in server # Changed 'type' to 'atype' because Pg6.3 reserves the type word # bmccane@maxbaud.net 98-apr-3 # # use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12 use strict; use CGI::Base; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearch qsearchs); use FS::agent_type; use FS::CGI qw(header menubar); my($cgi) = new CGI::Base; $cgi->get; &cgisuidsetup($cgi); SendHeaders(); # one guess. my($agent_type,$action); if ( $cgi->var('QUERY_STRING') =~ /^(\d+)$/ ) { #editing $agent_type=qsearchs('agent_type',{'typenum'=>$1}); $action='Edit'; } else { #adding $agent_type=create FS::agent_type {}; $action='Add'; } my($hashref)=$agent_type->hashref; print header("$action Agent Type", menubar( 'Main Menu' => '../', 'View all agent types' => '../browse/agent_type.cgi', )), '