diff options
| author | ivan <ivan> | 2001-09-04 14:44:07 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-09-04 14:44:07 +0000 |
| commit | 1e4aa8069f25e1b4101da20bb9e0d3f60357ea52 (patch) | |
| tree | 15f9087d887b3767656a2336673ba928610ff407 /httemplate/view | |
| parent | feafaf45ee709ef15b6cf7892abf89e4878c627b (diff) | |
new admin documentation, quick one-pkg order
Diffstat (limited to 'httemplate/view')
| -rwxr-xr-x | httemplate/view/cust_main.cgi | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index a32abc0e1..b3ea336e9 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: cust_main.cgi,v 1.8 2001-09-03 22:07:39 ivan Exp $ --> +#<!-- $Id: cust_main.cgi,v 1.9 2001-09-04 14:44:07 ivan Exp $ --> use strict; use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral @@ -153,11 +153,11 @@ print '<TD VALIGN="top">'; @agents = qsearch( 'agent', {} ); unless ( scalar(@agents) == 1 ) { - $agent = qsearchs('agent',{ - 'agentnum' => $cust_main->agentnum - } ); + $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } ); print '<TR><TD ALIGN="right">Agent</TD><TD BGCOLOR="#ffffff">', $agent->agentnum, ": ", $agent->agent, '</TD></TR>'; + } else { + $agent = $agents[0]; } @referrals = qsearch( 'part_referral', {} ); unless ( scalar(@referrals) == 1 ) { @@ -249,6 +249,21 @@ if ( defined $cust_main->dbdef_table->column('comments') print '</TD></TR></TABLE>'; +print '<BR>'. + '<FORM ACTION="'.popurl(2).'edit/process/quick-cust_pkg.cgi" METHOD="POST">'. + qq!<INPUT TYPE="hidden" NAME="custnum" VALUE="$custnum">!. + '<SELECT NAME="pkgpart"><OPTION>'; + +foreach my $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) { + my $pkgpart = $type_pkgs->pkgpart; + my $part_pkg = qsearchs('part_pkg', { 'pkgpart' => $pkgpart } ) + or do { warn "unknown type_pkgs.pkgpart $pkgpart"; next; }; + print qq!<OPTION VALUE="$pkgpart">!. $part_pkg->pkg. ' - '. + $part_pkg->comment; +} + +print '</SELECT><INPUT TYPE="submit" VALUE="Order Package"><BR>'; + print qq!<BR><A NAME="cust_pkg">Packages</A> !, # qq!<BR>Click on package number to view/edit package.!, qq!( <A HREF="!, popurl(2), qq!edit/cust_pkg.cgi?$custnum">Order and cancel packages</A> (preserves services) )!, |