[Koha-cvs] koha/updater updatedatabase
Tumer Garip
tgarip at neu.edu.tr
Sat Apr 15 04:37:04 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Tumer Garip <tgarip1957 at savannah.gnu.org> 06/04/15 02:37:03
Modified files:
updater : updatedatabase
Log message:
Marc record should be set to UTF-8 in leader.Force it.
XML should be with<record> wrappers
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/updater/updatedatabase.diff?tr1=1.134&tr2=1.135&r1=text&r2=text
Patches:
Index: koha/updater/updatedatabase
diff -u koha/updater/updatedatabase:1.134 koha/updater/updatedatabase:1.135
--- koha/updater/updatedatabase:1.134 Fri Apr 14 09:37:29 2006
+++ koha/updater/updatedatabase Sat Apr 15 02:37:03 2006
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: updatedatabase,v 1.134 2006/04/14 09:37:29 tipaul Exp $
+# $Id: updatedatabase,v 1.135 2006/04/15 02:37:03 tgarip1957 Exp $
# Database Updater
# This script checks for required updates to the database.
@@ -1284,8 +1284,10 @@
my $totaldone=0;
while (my ($bibid,$biblionumber) = $sth->fetchrow) {
my $record = MARCgetbiblio($dbh,$bibid);
+ #Force UTF-8 in record leader
+ $record->encoding('UTF-8');
print $record->as_formatted if ($biblionumber==3902);
- $sth_update->execute($record->as_usmarc(),$record->as_xml(),$biblionumber);
+ $sth_update->execute($record->as_usmarc(),$record->as_xml_record(),$biblionumber);
$totaldone++;
print "\r$totaldone / $totaltodo" unless ($totaldone % 100);
}
@@ -1503,6 +1505,10 @@
exit;
# $Log: updatedatabase,v $
+# Revision 1.135 2006/04/15 02:37:03 tgarip1957
+# Marc record should be set to UTF-8 in leader.Force it.
+# XML should be with<record> wrappers
+#
# Revision 1.134 2006/04/14 09:37:29 tipaul
# improvements from SAN Ouest Provence :
# * introducing a category_type into categories. It can be A (adult), C (children), P (Professionnal), I (institution/organisation).
More information about the Koha-cvs
mailing list