[Koha-cvs] koha/C4 Breeding.pm [rel_2_2]

[Ryan Higgins]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Ryan Higgins <rych>	07/04/26 13:49:44

Modified files:
	C4             : Breeding.pm 

Log message:
	wrap utf-8 conversion in syspref so we dont break things for UNIMARC

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Breeding.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.7.2.6&r2=1.7.2.7

Patches:
Index: Breeding.pm
===================================================================
RCS file: /sources/koha/koha/C4/Breeding.pm,v
retrieving revision 1.7.2.6
retrieving revision 1.7.2.7
diff -u -b -r1.7.2.6 -r1.7.2.7
--- Breeding.pm	10 Apr 2007 22:37:02 -0000	1.7.2.6
+++ Breeding.pm	26 Apr 2007 13:49:44 -0000	1.7.2.7
@@ -75,6 +75,7 @@
 		my $marcrecord = MARC::File::USMARC::decode($marcarray[$i]."\x1D");
 #		my @warnings = $marcrecord->warnings();
         # run through a roundtrip, check encoding, and convert to UTF-8
+        if (C4::Context->preference("TemplateEncoding") eq 'utf-8') {
         my $xmlrecord = $marcrecord->as_xml;
         my $newmarcrecord;
         eval {  
@@ -91,7 +92,7 @@
             warn "WARN".$warning;
         }
         $marcrecord = $newmarcrecord;
-
+		}
 		if (scalar($marcrecord->fields()) == 0) {
 			$notmarcrecord++;
             print "===================NOT MARCRECORD================";