From 9f5cb17360a9ff003e545c463b5da066d5cdfa6d Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 10 Mar 2015 11:51:14 -0700
Subject: [PATCH] trim credit reasons to 50 chars to avoid messing up
 typesetting, RT#27744

---
 FS/FS/Template_Mixin.pm | 2 +-
 FS/FS/cust_bill.pm      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/FS/FS/Template_Mixin.pm b/FS/FS/Template_Mixin.pm
index 412a5b036..17863a115 100644
--- a/FS/FS/Template_Mixin.pm
+++ b/FS/FS/Template_Mixin.pm
@@ -1370,7 +1370,7 @@ sub print_generic {
       # credits
       my $credittotal = 0;
       foreach my $credit (
-        $self->_items_credits( 'template' => $template, 'trim_len' => 60 )
+        $self->_items_credits( 'template' => $template, 'trim_len' => 50 )
       ) {
 
         my $total;
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index a65154ec4..5cdae6615 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -2705,7 +2705,7 @@ sub _items_previous {
 
 sub _items_credits {
   my( $self, %opt ) = @_;
-  my $trim_len = $opt{'trim_len'} || 60;
+  my $trim_len = $opt{'trim_len'} || 50;
 
   my @b;
   #credits
-- 
2.11.0