[open-ils-commits] r11975 - trunk/Open-ILS/src/perlmods/OpenILS/SIP

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-26 14:04:51 -0500 (Mon, 26 Jan 2009)
New Revision: 11975

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/SIP/Item.pm
Log:
we've seen sip clients in the field that do not handle unicode very well.  until we track down the problem, strip the 'wide characters' from the title string

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP/Item.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP/Item.pm	2009-01-26 18:50:59 UTC (rev 11974)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP/Item.pm	2009-01-26 19:04:51 UTC (rev 11975)
@@ -146,7 +146,9 @@
 
 sub title_id {
     my $self = shift;
-    return ($self->{mods}) ? $self->{mods}->title : $self->{copy}->dummy_title;
+    my $t =  ($self->{mods}) ? $self->{mods}->title : $self->{copy}->dummy_title;
+    $t =~ s/\pM+//og;
+    return $t;
 }
 
 sub permanent_location {