[open-ils-commits] r11977 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-26 14:05:53 -0500 (Mon, 26 Jan 2009)
New Revision: 11977

Modified:
   branches/rel_1_2/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: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP/Item.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP/Item.pm	2009-01-26 19:05:44 UTC (rev 11976)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/SIP/Item.pm	2009-01-26 19:05:53 UTC (rev 11977)
@@ -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 {