[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Biblio.pm [rel_3_0]
From: |
LAURIN arnaud |
Subject: |
[Koha-cvs] koha/C4 Biblio.pm [rel_3_0] |
Date: |
Mon, 18 Sep 2006 12:10:13 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: LAURIN arnaud <alaurin> 06/09/18 12:10:10
Modified files:
C4 : Biblio.pm
Log message:
bugfixing :
add use::date for the fonction format_date ;
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.4&r2=1.178.2.5
Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.4
retrieving revision 1.178.2.5
diff -u -b -r1.178.2.4 -r1.178.2.5
--- Biblio.pm 31 Aug 2006 13:28:52 -0000 1.178.2.4
+++ Biblio.pm 18 Sep 2006 12:10:10 -0000 1.178.2.5
@@ -27,6 +27,7 @@
use ZOOM;
use Data::Dumper;
use C4::Koha;
+use C4::Date;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
@@ -376,6 +377,11 @@
my $sth = $dbh->prepare("select marcxml from biblioitems where
biblionumber=? " );
$sth->execute($bibid);
my ($marcxml)=$sth->fetchrow;
+# $marcxml =~ s/\x1e//g;
+# $marcxml =~ s/\x1f//g;
+# $marcxml =~ s/\x0f//g;
+# $marcxml =~ s/\x1d//g;
+# $marcxml =~ s/\x1b//g;
# $marcxml =~ s/\<subfield code="[A-Z><]"\>/\<subfield code="a"\>/g;
my $record = MARC::Record->new();
$record = MARC::Record::new_from_xml( $marcxml,'utf8' ) if $marcxml;
@@ -3167,8 +3173,12 @@
=cut
-# $Id: Biblio.pm,v 1.178.2.4 2006/08/31 13:28:52 alaurin Exp $
+# $Id: Biblio.pm,v 1.178.2.5 2006/09/18 12:10:10 alaurin Exp $
# $Log: Biblio.pm,v $
+# Revision 1.178.2.5 2006/09/18 12:10:10 alaurin
+# bugfixing :
+# add use::date for the fonction format_date ;
+#
# Revision 1.178.2.4 2006/08/31 13:28:52 alaurin
# changing the name of variables, according to the recommendation of
developement .
#
- [Koha-cvs] koha/C4 Biblio.pm [rel_3_0],
LAURIN arnaud <=