diff options
author | ivan <ivan> | 2001-12-26 04:25:04 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-12-26 04:25:04 +0000 |
commit | d0f483f47168e01eb6c28e8fc99a62050b245132 (patch) | |
tree | c2b554e22ebdab4b8821b5c8600601166393a02e /FS/FS/CGI.pm | |
parent | c6b853b4f0516450b3e27acd281f667eadaec9f4 (diff) |
auto-apply payments and credits, post credit UI overhaul
Diffstat (limited to 'FS/FS/CGI.pm')
-rw-r--r-- | FS/FS/CGI.pm | 64 |
1 files changed, 63 insertions, 1 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index f0fec434d..c66bfe3c2 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -9,7 +9,8 @@ use CGI::Carp qw(fatalsToBrowser); use FS::UID; @ISA = qw(Exporter); -@EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable); +@EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable + small_custview); @header = ( '-Expires' => '-1', '-Pragma' => 'no-cache', @@ -206,6 +207,65 @@ sub ntable { } +=item small_custview CUSTNUM || CUST_MAIN_OBJECT, COUNTRYDEFAULT + +Sheesh. I should just switch to Mason. + +=cut + +sub small_custview { + use FS::Record qw(qsearchs); + use FS::cust_main; + + my $arg = shift; + my $countrydefault = shift || 'US'; + + my $cust_main = ref($arg) ? $arg + : qsearchs('cust_main', { 'custnum' => $arg } ) + or die "unknown custnum $arg"; + + my $html = 'Customer #<B>'. $cust_main->custnum. '</B>'. + ntable('#e8e8e8'). '<TR><TD>'. ntable("#cccccc",2). + '<TR><TD ALIGN="right" VALIGN="top">Billing</TD><TD BGCOLOR="#ffffff">'. + $cust_main->getfield('last'). ', '. $cust_main->first. '<BR>'; + + $html .= $cust_main->company. '<BR>' if $cust_main->company; + $html .= $cust_main->address1. '<BR>'; + $html .= $cust_main->address2. '<BR>' if $cust_main->address2; + $html .= $cust_main->city. ', '. $cust_main->state. ' '. $cust_main->zip. '<BR>'; + $html .= $cust_main->country. '<BR>' + if $cust_main->country && $cust_main->country ne $countrydefault; + + $html .= '</TD></TR></TABLE></TD>'; + + if ( defined $cust_main->dbdef_table->column('ship_last') ) { + + my $pre = $cust_main->ship_last ? 'ship_' : ''; + + $html .= '<TD>'. ntable("#cccccc",2). + '<TR><TD ALIGN="right" VALIGN="top">Service</TD><TD BGCOLOR="#ffffff">'. + $cust_main->get("${pre}last"). ', '. + $cust_main->get("${pre}first"). '<BR>'; + $html .= $cust_main->get("${pre}company"). '<BR>' + if $cust_main->get("${pre}company"); + $html .= $cust_main->get("${pre}address1"). '<BR>'; + $html .= $cust_main->get("${pre}address2"). '<BR>' + if $cust_main->get("${pre}address2"); + $html .= $cust_main->get("${pre}city"). ', '. + $cust_main->get("${pre}state"). ' '. + $cust_main->get("${pre}ship_zip"). '<BR>'; + $html .= $cust_main->get("${pre}country"). '<BR>' + if $cust_main->get("${pre}country") + && $cust_main->get("${pre}country") ne $countrydefault; + + $html .= '</TD></TR></TABLE></TD>'; + } + + $html .= '</TR></TABLE>'; + + $html; +} + =back =head1 BUGS @@ -214,6 +274,8 @@ Not OO. Not complete. +small_custview sooooo doesn't belong here. i should just switch to Mason. + =head1 SEE ALSO L<CGI>, L<CGI::Base> |