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 75f030a..460e78d 100644 (file)
--- 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';