[Koha-cvs] koha/acqui.simple addbiblio.pl [dev_week]

[Ryan Higgins]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Ryan Higgins <rych>	06/12/12 18:49:48

Modified files:
	acqui.simple   : addbiblio.pl 

Log message:
	removing  fixEncoding routine

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui.simple/addbiblio.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.52.2.40.2.14&r2=1.52.2.40.2.15

Patches:
Index: addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/acqui.simple/Attic/addbiblio.pl,v
retrieving revision 1.52.2.40.2.14
retrieving revision 1.52.2.40.2.15
diff -u -b -r1.52.2.40.2.14 -r1.52.2.40.2.15
--- addbiblio.pl	8 Dec 2006 23:07:23 -0000	1.52.2.40.2.14
+++ addbiblio.pl	12 Dec 2006 18:49:48 -0000	1.52.2.40.2.15
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: addbiblio.pl,v 1.52.2.40.2.14 2006/12/08 23:07:23 rych Exp $
+# $Id: addbiblio.pl,v 1.52.2.40.2.15 2006/12/12 18:49:48 rych Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -94,7 +94,7 @@
 	$sth->execute($id);
 	my ($file,$marc,$encoding) = $sth->fetchrow;
 	if ($marc) {
-		my $record = fixEncoding($marc);
+		my $record = MARC::Record->new_from_usmarc($marc) ; 
 		if (ref($record) eq undef) {
 			return -1;
 		} else {
@@ -514,8 +514,8 @@
 		my $xml = MARChtml2xml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag);
 		$record=MARC::Record->new_from_xml($xml,C4::Context->preference('TemplateEncoding'),C4::Context->preference('marcflavour'));
 	}
-	#warn $record->as_formatted;
-	#warn "IN ADDBIB";
+#	warn $record->as_formatted;
+#	warn "IN ADDBIB";
 	# check for a duplicate
 	my ($duplicatebiblionumber,$duplicatebibid,$duplicatetitle) = FindDuplicate($record) if ($op eq "addbiblio") && (!$is_a_modif);
 	my $confirm_not_duplicate = $input->param('confirm_not_duplicate');