[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/updater updatedatabase
From: |
Tumer Garip |
Subject: |
[Koha-cvs] koha/updater updatedatabase |
Date: |
Sat, 15 Apr 2006 02:37:04 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Tumer Garip <address@hidden> 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).