From: Jeff Godin <jgodin@tadl.org>
Date: Wed, 1 Aug 2012 20:59:36 +0000 (-0400)
Subject: Use OpenILS::SIP::clean_text on fine_items output
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=db54d17af8ccbe4fda6b89be8cfd4bf2c39f94ce;p=working%2FEvergreen.git

Use OpenILS::SIP::clean_text on fine_items output

Use OpenILS::SIP::clean_text on fine_items output, so that UTF-8
characters don't break SIP2 error detection checksums.

Signed-off-by: Jeff Godin <jgodin@tadl.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
index 75f030adce..460e78d9ce 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP/Patron.pm
@@ -637,7 +637,7 @@ sub fine_items {
                 } else {
                     $line .= $xact->last_billing_note;
                 }
-                push @fines, $line;
+                push @fines, OpenILS::SIP::clean_text($line);
            }
     };
     my $log_status = $@ ? 'ERROR: ' . $@ : 'OK';