X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=e84fa07568d5600531622840c85df054703ac2c6;hb=e0d75192ce1eefb05689b08961f5009b71063466;hp=7528968478455f1ad8fe974680e365b9ae7fbfb4;hpb=2066bf9d3ebb4e53c49ab8b4b447c4eb88e425a4;p=freeside.git
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index 752896847..e84fa0756 100755
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -1,10 +1,11 @@
<%
-#
+#
use strict;
use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral
@packages $package @history @bills $bill @credits $credit
- $balance $item @agents @referrals @invoicing_list $n1 $conf );
+ $balance $item @agents @referrals @invoicing_list $n1 $conf
+ $signupurl );
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Date::Format;
@@ -20,13 +21,15 @@ use FS::part_referral;
use FS::agent;
use FS::cust_main;
use FS::cust_refund;
+use FS::cust_bill_pay;
+use FS::cust_credit_bill;
$cgi = new CGI;
&cgisuidsetup($cgi);
$conf = new FS::Conf;
-print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar(
+print header("Customer View", menubar(
'Main Menu' => popurl(2)
));
@@ -43,8 +46,25 @@ print qq! Delete this customer!
if $conf->exists('deletecustomers');
+
+unless ( $conf->exists('disable_customer_referrals') ) {
+ print qq! | !,
+ qq!Refer a new customer!;
+
+ print qq! | !,
+ qq!View this customer's referrals!;
+}
+
print '
';
+my $signupurl = $conf->config('signupurl');
+if ( $signupurl ) {
+print "This customer's signup URL: ".
+ "$signupurl?ref=$custnum
";
+}
+
print '';
print &itable(), '
', $cust_main->comments, + '