diff options
| author | jeff <jeff> | 2007-01-17 23:27:18 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-01-17 23:27:18 +0000 |
| commit | be10e7a1421c13eec4b1bb3676eaf5c84344e601 (patch) | |
| tree | 49c042b08d310791618b97d35d5102018f822650 /FS/FS/CGI.pm | |
| parent | 82caef6fbd6148a5a6a1d1149a13e23515551148 (diff) | |
link to customer from manual payment screen (ticket 1414)
Diffstat (limited to 'FS/FS/CGI.pm')
| -rw-r--r-- | FS/FS/CGI.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 8b401da..88548cd 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -303,7 +303,7 @@ sub ntable { } -=item small_custview CUSTNUM || CUST_MAIN_OBJECT, COUNTRYDEFAULT, NOBALANCE_FLAG +=item small_custview CUSTNUM || CUST_MAIN_OBJECT, COUNTRYDEFAULT, NOBALANCE_FLAG, URL Sheesh. I should just switch to Mason. @@ -316,12 +316,18 @@ sub small_custview { my $arg = shift; my $countrydefault = shift || 'US'; my $nobalance = shift; + my $url = shift; my $cust_main = ref($arg) ? $arg : qsearchs('cust_main', { 'custnum' => $arg } ) or die "unknown custnum $arg"; - my $html = 'Customer #<B>'. $cust_main->custnum. '</B></A>'. + my $html; + + $html = qq!View <A HREF="$url?! . $cust_main->custnum . '">' + if $url; + + $html .= 'Customer #<B>'. $cust_main->custnum. '</B></A>'. ' - <B><FONT COLOR="'. $cust_main->statuscolor. '">'. ucfirst($cust_main->status). '</FONT></B>'. ntable('#e8e8e8'). '<TR><TD VALIGN="top">'. ntable("#cccccc",2). |