[Koha-cvs] koha C4/Biblio.pm cataloguing/addbiblio.pl

[paul poulain]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         
Changes by:     paul poulain <address@hidden>   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);