From ffc85003aebc38056eb30fa9580b6395c92c0ee0 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 10 Mar 2015 11:46:48 -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 ec1902a8c..4a0834e05 100644
--- a/FS/FS/Template_Mixin.pm
+++ b/FS/FS/Template_Mixin.pm
@@ -1371,7 +1371,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 1a11457f3..7d1488fb5 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -2755,7 +2755,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.20.1