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

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	06/04/13 05:49:23

Modified files:
	C4             : Biblio.pm 

Log message:
	Partial fix for encoding problems in MARC editor.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?only_with_tag=rel_2_2&tr1=1.115.2.49&tr2=1.115.2.50&r1=text&r2=text

Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.115.2.49 koha/C4/Biblio.pm:1.115.2.50
--- koha/C4/Biblio.pm:1.115.2.49	Mon Apr 10 19:53:44 2006
+++ koha/C4/Biblio.pm	Thu Apr 13 05:49:23 2006
@@ -1041,8 +1041,9 @@
 }
 sub MARChtml2xml {
 	my ($tags,$subfields,$values,$indicator,$ind_tag) = @_;        
-	use MARC::File::XML;
-	my $xml= MARC::File::XML::header();
+	#use MARC::File::XML;
+	my $xml= MARC::File::XML::header(C4::Context->preference('marcflavour'),C4::Context->preference('TemplateEncoding')); 
+	#$xml =~ s/UTF-8/ISO-8859-1/;
     my $prevvalue;
     my $prevtag=-1;
     my $first=1;
@@ -1103,7 +1104,7 @@
 		$prevtag = @$tags[$i];
 	}
 	$xml.= MARC::File::XML::footer();
-	warn $xml;
+	#warn $xml;
 	return $xml
 }
 sub MARChtml2marc {
@@ -3002,8 +3003,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.49 2006/04/10 19:53:44 kados Exp $
+# $Id: Biblio.pm,v 1.115.2.50 2006/04/13 05:49:23 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.50  2006/04/13 05:49:23  kados
+# Partial fix for encoding problems in MARC editor.
+#
 # Revision 1.115.2.49  2006/04/10 19:53:44  kados
 # adds a quick sanity check to make sure we're dealing with valid MARC
 # tags (a client of mine had tags from a Dynix system that were '???' and