[Koha-cvs] koha C4/Biblio.pm cataloguing/addbiblio.pl
paul poulain
paul at koha-fr.org
Tue Feb 14 12:25:23 CET 2006
CVSROOT: /cvsroot/koha
Module name: koha
Branch:
Changes by: paul poulain <tipaul at savannah.gnu.org> 06/02/14 11:25:22
Modified files:
C4 : Biblio.pm
cataloguing : addbiblio.pl
Log message:
road to 3.0 : updating a biblio in zebra seems to work. Still working on it, there are probably some bugs !
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Biblio.pm.diff?tr1=1.137&tr2=1.138&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/cataloguing/addbiblio.pl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
Patches:
Index: koha/C4/Biblio.pm
diff -u koha/C4/Biblio.pm:1.137 koha/C4/Biblio.pm:1.138
--- koha/C4/Biblio.pm:1.137 Mon Feb 13 16:34:26 2006
+++ koha/C4/Biblio.pm Tue Feb 14 11:25:22 2006
@@ -139,17 +139,27 @@
sub zebra_create {
my ($biblionumber,$record) = @_;
# create the iso2709 file for zebra
- my $cgidir = C4::Context->intranetdir ."/cgi-bin";
- unless (opendir(DIR, "$cgidir")) {
- $cgidir = C4::Context->intranetdir."/";
- }
- closedir DIR;
- my $filename = $cgidir."/zebra/biblios/BIBLIO".$biblionumber."iso2709";
- open F,"> $filename";
- print F $record->as_usmarc();
- close F;
- my $res = system("cd $cgidir/zebra;/usr/local/bin/zebraidx update biblios");
- unlink($filename);
+# my $cgidir = C4::Context->intranetdir ."/cgi-bin";
+# unless (opendir(DIR, "$cgidir")) {
+# $cgidir = C4::Context->intranetdir."/";
+# }
+# closedir DIR;
+# my $filename = $cgidir."/zebra/biblios/BIBLIO".$biblionumber."iso2709";
+# open F,"> $filename";
+# print F $record->as_usmarc();
+# close F;
+# my $res = system("cd $cgidir/zebra;/usr/local/bin/zebraidx update biblios");
+# unlink($filename);
+ warn "zebra_create : $biblionumber =".$record->as_formatted;
+ eval {
+ $Zconn = new ZOOM::Connection(C4::Context->config("zebradb"));
+ };
+ $Zconn->option(cqlfile => C4::Context->config("intranetdir")."/zebra/pqf.properties");
+# my $record = XMLgetbiblio($dbh,$biblionumber);
+ my $Zpackage = $Zconn->package();
+ $Zpackage->option(action => "specialUpdate");
+ $Zpackage->option(record => $record->as_xml());
+ $Zpackage->send("update");
}
=head2 @tagslib = &MARCgettagslib($dbh,1|0,$frameworkcode);
@@ -765,9 +775,10 @@
$oldbiblio->{frameworkcode} = $frameworkcode;
#create the marc entry, that stores the rax marc record in Koha 3.0
+ $oldbiblio->{biblionumber} = $biblionumber unless $oldbiblio->{biblionumber};
$oldbiblio->{marc} = $record->as_usmarc();
$oldbiblio->{marcxml} = $record->as_xml();
-
+ warn "dans NEWmodbiblio $biblionumber = ".$oldbiblio->{biblionumber}." = ".$oldbiblio->{marcxml};
REALmodbiblio($dbh,$oldbiblio);
REALmodbiblioitem($dbh,$oldbiblio);
# now, modify addi authors, subject, addititles.
@@ -2906,8 +2917,11 @@
=cut
-# $Id: Biblio.pm,v 1.137 2006/02/13 16:34:26 tipaul Exp $
+# $Id: Biblio.pm,v 1.138 2006/02/14 11:25:22 tipaul Exp $
# $Log: Biblio.pm,v $
+# Revision 1.138 2006/02/14 11:25:22 tipaul
+# road to 3.0 : updating a biblio in zebra seems to work. Still working on it, there are probably some bugs !
+#
# Revision 1.137 2006/02/13 16:34:26 tipaul
# fixing some warnings (perl -w should be quiet)
#
Index: koha/cataloguing/addbiblio.pl
diff -u koha/cataloguing/addbiblio.pl:1.2 koha/cataloguing/addbiblio.pl:1.3
--- koha/cataloguing/addbiblio.pl:1.2 Thu Jan 19 12:48:00 2006
+++ koha/cataloguing/addbiblio.pl Tue Feb 14 11:25:22 2006
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: addbiblio.pl,v 1.2 2006/01/19 12:48:00 tipaul Exp $
+# $Id: addbiblio.pl,v 1.3 2006/02/14 11:25:22 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -354,8 +354,6 @@
my $op = $input->param('op');
my $frameworkcode = $input->param('frameworkcode');
my $dbh = C4::Context->dbh;
-my $bibid;
-
$frameworkcode = &MARCfind_frameworkcode($dbh,$biblionumber) if ($biblionumber and not ($frameworkcode));
$frameworkcode='' if ($frameworkcode eq 'Default');
@@ -432,8 +430,9 @@
if (!$duplicatebiblionumber or $confirm_not_duplicate) {
# MARC::Record built => now, record in DB
if ($is_a_modif) {
- NEWmodbiblioframework($dbh,$bibid,$frameworkcode);
- NEWmodbiblio($dbh,$record,$bibid,$frameworkcode);
+ warn "ITS A MODIF : .$biblionumber";
+ NEWmodbiblioframework($dbh,$biblionumber,$frameworkcode);
+ NEWmodbiblio($dbh,$record,$biblionumber,$frameworkcode);
} else {
my $biblioitemnumber;
($biblionumber,$biblioitemnumber) = NEWnewbiblio($dbh,$record,$frameworkcode);
More information about the Koha-cvs
mailing list