blob: 7ab55db45bb9b5d82e4360a4a7326d299ecdaccd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
<HTML>
<HEAD>
<TITLE>Select customer</TITLE>
<%= $head %>
</HEAD>
<BODY BGCOLOR="<%= $body_bgcolor || '#eeeeee' %>">
<%= $body_header %>
<FONT SIZE=5>Select customer</FONT><BR><BR>
<FONT SIZE="+1" COLOR="#ff0000"><%= $error %></FONT>
<%= $selfurl =~ s/\?.*//; ''; %>
<FORM ACTION="<%= $selfurl %>" METHOD=POST>
<INPUT TYPE="hidden" NAME="action" VALUE="switch_cust">
<INPUT TYPE="hidden" NAME="agentnum" VALUE="<%= $agentnum %>">
<TABLE BGCOLOR="<%= $box_bgcolor || '#c0c0c0' %>" BORDER=0 CELLSPACING=2 CELLPADDING=0>
<TR>
<TH ALIGN="right">Customer </TH>
<TD>
<SELECT NAME="custnum">
<OPTION VALUE="">Select a customer
<%= $OUT .= qq(<OPTION VALUE="$_">). encode_entities( $customers{$_} )
foreach keys %customers;
%>
</SELECT>
</TD>
</TR>
<TR>
<TD COLSPAN=2 ALIGN="center"><INPUT TYPE="submit" VALUE="Select customer"></TD>
</TR>
</TABLE>
</FORM>
<%= $body_footer %>
|
