[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: |
Antoine Farnault |
Subject: |
[Koha-cvs] koha/C4 Biblio.pm [rel_3_0] |
Date: |
Mon, 16 Oct 2006 16:20:34 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: Antoine Farnault <toins> 06/10/16 16:20:34
Modified files:
C4 : Biblio.pm
Log message:
MARCgetbiblio cleaned up.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.15&r2=1.178.2.16
Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.15
retrieving revision 1.178.2.16
diff -u -b -r1.178.2.15 -r1.178.2.16
--- Biblio.pm 11 Oct 2006 14:26:56 -0000 1.178.2.15
+++ Biblio.pm 16 Oct 2006 16:20:34 -0000 1.178.2.16
@@ -817,26 +817,10 @@
my $sth=$dbh->prepare("select marcxml from biblioitems where
biblionumber=? " );
$sth->execute($bibid);
my ($marcxml)=$sth->fetchrow;
-# warn " XML : $marcxml";
my $record = MARC::Record->new();
$record = MARC::Record::new_from_xml(
$marcxml,"utf8",C4::Context->preference('marcflavour')) if $marcxml;
-# warn "record dans Biblio.pm ".$record->as_formatted;
return $record;
}
-############OLD VERSION HERE###############################################
-# # Returns MARC::Record of the biblio passed in parameter.
-#sub MARCgetbiblio {
-# my ( $dbh, $bibid ) = @_;
-# my $dbh = C4::Context->dbh;
-# my $sth = $dbh->prepare("select marcxml from biblioitems where
biblionumber=? ");
-# $sth->execute($bibid);
-# my ($marc)=$sth->fetchrow;
-# my $record = MARC::File::USMARC::decode($marc);
-# warn "=>".$record->as_formatted;
-# return $record;
-#}
-#
-#############################################################################
sub XMLgetbiblio {
@@ -3839,8 +3823,11 @@
=cut
-# $Id: Biblio.pm,v 1.178.2.15 2006/10/11 14:26:56 tipaul Exp $
+# $Id: Biblio.pm,v 1.178.2.16 2006/10/16 16:20:34 toins Exp $
# $Log: Biblio.pm,v $
+# Revision 1.178.2.16 2006/10/16 16:20:34 toins
+# MARCgetbiblio cleaned up.
+#
# Revision 1.178.2.15 2006/10/11 14:26:56 tipaul
# handling of UNIMARC :
# - better management of field 100 = automatic creation of the field if needed
& filling encoding to unicode.
- [Koha-cvs] koha/C4 Biblio.pm [rel_3_0], Henri-Damien LAURENT, 2006/10/02
- [Koha-cvs] koha/C4 Biblio.pm [rel_3_0], paul poulain, 2006/10/11
- [Koha-cvs] koha/C4 Biblio.pm [rel_3_0], paul poulain, 2006/10/11
- [Koha-cvs] koha/C4 Biblio.pm [rel_3_0],
Antoine Farnault <=
- [Koha-cvs] koha/C4 Biblio.pm [rel_3_0], Bruno Toumi, 2006/10/19
- [Koha-cvs] koha/C4 Biblio.pm [rel_3_0], Antoine Farnault, 2006/10/20
- [Koha-cvs] koha/C4 Biblio.pm [rel_3_0], Antoine Farnault, 2006/10/31