- 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");