X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_credit.cgi;h=18416c5fbcfd8511e6fc28a17855f9c116fcb116;hp=d3d0dc15f2f439da5adcfeeab90bf4ab0a2a3c65;hb=f822e27a1e00594332ffa487a1c284234c5580a6;hpb=51984ac3d3da3006809c6866fdecd4ad83610731 diff --git a/httemplate/edit/cust_credit.cgi b/httemplate/edit/cust_credit.cgi index d3d0dc15f..18416c5fb 100755 --- a/httemplate/edit/cust_credit.cgi +++ b/httemplate/edit/cust_credit.cgi @@ -1,125 +1,90 @@ -<% -# -# $Id: cust_credit.cgi,v 1.1 2001-07-30 07:36:04 ivan Exp $ -# -# Usage: cust_credit.cgi custnum [ -paybatch ] -# http://server.name/path/cust_credit?custnum [ -paybatch ] -# -# some hooks in here for modifications as well as additions, but needs (lots) more work. -# also see process/cust_credit.cgi, the script that processes the form. -# -# ivan@voicenet.com 96-dec-05 -# -# paybatch field, differentiates between credits & credits+refunds by commandline -# ivan@voicenet.com 96-dec-08 -# -# added (but commented out) sprintf("%.2f" in amount field. Hmm. -# ivan@voicenet.com 97-jan-3 -# -# paybatch stuff thrown out - has checkbox now instead. -# (well, sort of. still passed around for backward compatability and possible editing hook) -# ivan@voicenet.com 97-apr-21 -# -# rewrite ivan@sisd.com 98-mar-16 -# -# $Log: cust_credit.cgi,v $ -# Revision 1.1 2001-07-30 07:36:04 ivan -# templates!!! -# -# Revision 1.7 1999/02/28 00:03:33 ivan -# removed misleading comments -# -# Revision 1.6 1999/01/25 12:09:52 ivan -# yet more mod_perl stuff -# -# Revision 1.5 1999/01/19 05:13:33 ivan -# for mod_perl: no more top-level my() variables; use vars instead -# also the last s/create/new/; -# -# Revision 1.4 1999/01/18 09:41:23 ivan -# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl -# (good idea anyway) -# -# Revision 1.3 1998/12/23 02:26:06 ivan -# *** empty log message *** -# -# Revision 1.2 1998/12/17 06:16:59 ivan -# fix double // in relative URLs, s/CGI::Base/CGI/; -# - -use strict; -use vars qw( $cgi $query $custnum $otaker $p1 $crednum $_date $amount $reason ); -use Date::Format; -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup getotaker); -use FS::CGI qw(header popurl); -use FS::Record qw(fields); -#use FS::cust_credit; - -$cgi = new CGI; -cgisuidsetup($cgi); - -if ( $cgi->param('error') ) { - #$cust_credit = new FS::cust_credit ( { - # map { $_, scalar($cgi->param($_)) } fields('cust_credit') - #} ); - $custnum = $cgi->param('custnum'); - $amount = $cgi->param('amount'); - #$refund = $cgi->param('refund'); - $reason = $cgi->param('reason'); -} else { - ($query) = $cgi->keywords; - $query =~ /^(\d+)$/; - $custnum = $1; - $amount = ''; - #$refund = 'yes'; - $reason = ''; -} -$_date = time; - -$otaker = getotaker; - -$p1 = popurl(1); - -print $cgi->header( '-expires' => 'now' ), header("Post Credit", ''); -print qq!Error: !, $cgi->param('error'), - "" - if $cgi->param('error'); -print < - 
-END
-
-$crednum = "";
-print qq!Credit #!, $crednum ? $crednum : " (NEW)", qq!!;
-
-print qq!\nCustomer #$custnum!;
-
-print qq!!;
-
-print qq!\nDate: !, time2str("%D",$_date), qq!!;
-
-print qq!\nAmount \$!;
-print qq!!;
-
-#print qq! Also post refund!;
-
-print qq!!;
-
-print qq!\nReason !;
-
-print <
+<& /elements/header-popup.html, mt('Enter Credit') &>
+
+<& /elements/error.html &>
+
+

+
+
+
+
+
+<% ntable("#cccccc", 2) %>
+
+% my %date_args = (
+%   'name'   =>  '_date',
+%   'label'  => emt('Date'),
+%   'value'  => $_date,
+%   'format' => $date_format. ' %r',
+% );
+% if ( $FS::CurrentUser::CurrentUser->access_right('Backdate credit') ) {
+
+  <& /elements/tr-input-date-field.html, \%date_args &>
+
+% } else {
+
+  <& /elements/tr-fixed-date.html, \%date_args &>
+
+% }
+
+  
+    <% mt('Amount') |h %>
+    <% $money_char |h %>
+  
+
+<& /elements/tr-select-reason.html,
+              'field'          => 'reasonnum',
+              'reason_class'   => 'R',
+              'control_button' => 'confirm_credit_button',
+              'cgi'            => $cgi,
+&>
+
+  
+    <% mt('Additional info') |h %>
+    
+      
+    
+  
+
+% if ( $conf->exists('credits-auto-apply-disable') ) {
+        
+% } else {
+  
+    <% mt('Auto-apply to invoices') |h %>
+    
+  
+% }
+
+% if ( $conf->exists('pkg-balances') ) {
+  <& /elements/tr-select-cust_pkg-balances.html,
+               'custnum' => $custnum,
+               'cgi'     => $cgi
+  &>
+% } else {
+  
+% }
+
+
+
 

-

-END
 
-print <
 
-    
-  
+
+
 
-END
+<%init>
+
+my $conf = new FS::Conf;
+
+my $money_char  = $conf->config('money_char')  || '$';
+my $date_format = $conf->config('date_format') || '%m/%d/%Y';
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Post credit');
+
+my $custnum = $cgi->param('custnum');
+my $amount  = $cgi->param('amount');
+my $_date   = time;
+my $p1      = popurl(1);
 
-%>
+