Prevent a fixed or default username or password from being defined
[freeside.git] / httemplate / edit / agent.cgi
1 <!-- mason kludge -->
2 <%
3
4 my $agent;
5 if ( $cgi->param('error') ) {
6   $agent = new FS::agent ( {
7     map { $_, scalar($cgi->param($_)) } fields('agent')
8   } );
9 } elsif ( $cgi->keywords ) {
10   my($query) = $cgi->keywords;
11   $query =~ /^(\d+)$/;
12   $agent = qsearchs( 'agent', { 'agentnum' => $1 } );
13 } else { #adding
14   $agent = new FS::agent {};
15 }
16 my $action = $agent->agentnum ? 'Edit' : 'Add';
17 my $hashref = $agent->hashref;
18
19 print header("$action Agent", menubar(
20   'Main Menu' => $p,
21   'View all agents' => $p. 'browse/agent.cgi',
22 ));
23
24 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
25       "</FONT>"
26   if $cgi->param('error');
27
28 print '<FORM ACTION="', popurl(1), 'process/agent.cgi" METHOD=POST>',
29       qq!<INPUT TYPE="hidden" NAME="agentnum" VALUE="$hashref->{agentnum}">!,
30       "Agent #", $hashref->{agentnum} ? $hashref->{agentnum} : "(NEW)";
31
32 print &ntable("#cccccc", 2, ''), <<END;
33 <TR>
34   <TH ALIGN="right">Agent</TH>
35   <TD><INPUT TYPE="text" NAME="agent" SIZE=32 VALUE="$hashref->{agent}"></TD>
36 </TR>
37 <TR>
38   <TH ALIGN="right">Agent type</TH>
39   <TD><SELECT NAME="typenum" SIZE=1>
40 END
41
42 foreach my $agent_type (qsearch('agent_type',{})) {
43   print "<OPTION VALUE=". $agent_type->typenum;
44   print " SELECTED"
45     if $hashref->{typenum} && ( $hashref->{typenum} == $agent_type->typenum );
46   print ">", $agent_type->getfield('typenum'), ": ",
47         $agent_type->getfield('atype'),"\n";
48 }
49
50 print <<END;
51 </SELECT></TD>
52 </TR>
53 <TR>
54   <TD ALIGN="right"><!--Frequency--></TD>
55   <TD><INPUT TYPE="hidden" NAME="freq" VALUE="$hashref->{freq}"></TD>
56 </TR>
57 <TR>
58   <TD ALIGN="right"><!--Program--></TD>
59   <TD><INPUT TYPE="hidden" NAME="prog" VALUE="$hashref->{prog}"></TD>
60 </TR>
61 </TABLE>
62 END
63
64 print qq!<BR><INPUT TYPE="submit" VALUE="!,
65       $hashref->{agentnum} ? "Apply changes" : "Add agent",
66       qq!">!;
67
68 print <<END;
69     </FORM>
70   </BODY>
71 </HTML>
72 END
73
74 %>