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"?>
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">
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>
21 <datafield tag="090" ind1=" " ind2=" ">
22 <subfield code="9">8</subfield>
23 <subfield code="a">8</subfield>
25 <datafield tag="100" ind1=" " ind2=" ">
26 <subfield code="a">19910405d1976 y1frea0103 ba</subfield>
28 <datafield tag="101" ind1="0" ind2=" ">
29 <subfield code="a">fre</subfield>
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>
36 <datafield tag="210" ind1=" " ind2=" ">
37 <subfield code="c">Ecole des loisirs</subfield>
38 <subfield code="d">cop. 1976</subfield>
40 <datafield tag="215" ind1=" " ind2=" ">
41 <subfield code="a">20p</subfield>
43 <datafield tag="225" ind1="0" ind2=" ">
44 <subfield code="a">Chanterime</subfield>
46 <datafield tag="309" ind1=" " ind2=" ">
47 <subfield code="a">Migration GEAC</subfield>
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>
54 <datafield tag="913" ind1="0" ind2="0">
55 <subfield code="a">HELLVOL99000</subfield>
57 <datafield tag="949" ind1=" " ind2=" ">
58 <subfield code="a">MIRMJE</subfield>
59 <subfield code="a">ISTISP</subfield>
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>
74 $Zpackage->send("update");
75 $Zpackage->send('commit');