misc/cronjobs/test_zebra_delete.pl

   1 #!/usr/bin/perl
   2 use C4::Context;
   3 use C4::Biblio;
   4
   5 use strict;
   6
   7 my $Zconn=C4::Context->Zconn('biblioserver', 0, 1);
   8 my $Zpackage = $Zconn->package();
   9 $Zpackage->option(action => 'recordDelete');
  10 $Zpackage->option(record => '<?xml version="1.0" encoding="UTF-8"?>
  11 <record
  12  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  13  xsi:schemaLocation="http://www.loc.gov/MARC21/slim http://www.loc.gov/ standards/marcxml/schema/MARC21slim.xsd"
  14  xmlns="http://www.loc.gov/MARC21/slim">
  15
  16  <leader>00577    a2200193   4500</leader>
  17  <controlfield tag="005">19980415162006.0</controlfield>
  18  <datafield tag="035" ind1=" " ind2=" ">
  19    <subfield code="a">TOB*M*9074254</subfield>
  20  </datafield>
  21  <datafield tag="090" ind1=" " ind2=" ">
  22    <subfield code="9">8</subfield>
  23    <subfield code="a">8</subfield>
  24  </datafield>
  25  <datafield tag="100" ind1=" " ind2=" ">
  26    <subfield code="a">19910405d1976       y1frea0103    ba</subfield>
  27  </datafield>
  28  <datafield tag="101" ind1="0" ind2=" ">
  29    <subfield code="a">fre</subfield>
  30  </datafield>
  31  <datafield tag="200" ind1="1" ind2=" ">
  32    <subfield code="a">Lune vole fJacqueline Held, et Claude Held</subfield>
  33    <subfield code="g">illustrations d\' Yvan Pommaux</subfield>
  34    <subfield code="b">LIVR</subfield>
  35  </datafield>
  36  <datafield tag="210" ind1=" " ind2=" ">
  37    <subfield code="c">Ecole des loisirs</subfield>
  38    <subfield code="d">cop. 1976</subfield>
  39  </datafield>
  40  <datafield tag="215" ind1=" " ind2=" ">
  41    <subfield code="a">20p</subfield>
  42  </datafield>
  43  <datafield tag="225" ind1="0" ind2=" ">
  44    <subfield code="a">Chanterime</subfield>
  45  </datafield>
  46  <datafield tag="309" ind1=" " ind2=" ">
  47    <subfield code="a">Migration GEAC</subfield>
  48  </datafield>
  49  <datafield tag="700" ind1=" " ind2="1">
  50    <subfield code="a">Held</subfield>
  51    <subfield code="b">Jacqueline</subfield>
  52    <subfield code="9">187392</subfield>
  53  </datafield>
  54  <datafield tag="913" ind1="0" ind2="0">
  55    <subfield code="a">HELLVOL99000</subfield>
  56  </datafield>
  57  <datafield tag="949" ind1=" " ind2=" ">
  58    <subfield code="a">MIRMJE</subfield>
  59    <subfield code="a">ISTISP</subfield>
  60  </datafield>
  61  <datafield tag="995" ind1=" " ind2=" ">
  62    <subfield code="a">IST</subfield>
  63    <subfield code="c">IST</subfield>
  64    <subfield code="f">9991088063</subfield>
  65    <subfield code="k">P HEL</subfield>
  66    <subfield code="m">2004-06-22</subfield>
  67    <subfield code="v">2.9</subfield>
  68    <subfield code="r">LIVR</subfield>
  69    <subfield code="s">14</subfield>
  70    <subfield code="b">J</subfield>
  71    <subfield code="9">16</subfield>
  72  </datafield>
  73 </record>');
  74 $Zpackage->send("update");
  75 $Zpackage->send('commit');
  76 $Zpackage->destroy();
  77 $Zconn->destroy();