|
Lines 2-7
Link Here
|
| 2 |
|
2 |
|
| 3 |
|
3 |
|
| 4 |
# Copyright 2000-2002 Katipo Communications |
4 |
# Copyright 2000-2002 Katipo Communications |
|
|
5 |
# Copyright Biblibre 2010 |
| 5 |
# |
6 |
# |
| 6 |
# This file is part of Koha. |
7 |
# This file is part of Koha. |
| 7 |
# |
8 |
# |
|
Lines 76-81
my $frameworkcode="";
Link Here
|
| 76 |
my $tagslib = &GetMarcStructure(1,$frameworkcode); |
77 |
my $tagslib = &GetMarcStructure(1,$frameworkcode); |
| 77 |
|
78 |
|
| 78 |
my $deleted_items = 0; # Numbers of deleted items |
79 |
my $deleted_items = 0; # Numbers of deleted items |
|
|
80 |
my $deleted_biblios = 0; # Numbers of deleted biblios (when they have no more items) |
| 79 |
my $not_deleted_items = 0; # Numbers of items that could not be deleted |
81 |
my $not_deleted_items = 0; # Numbers of items that could not be deleted |
| 80 |
my @not_deleted; # List of the itemnumbers that could not be deleted |
82 |
my @not_deleted; # List of the itemnumbers that could not be deleted |
| 81 |
|
83 |
|
|
Lines 129-159
if ($op eq "action") {
Link Here
|
| 129 |
} |
131 |
} |
| 130 |
|
132 |
|
| 131 |
# For each item |
133 |
# For each item |
| 132 |
my $i = 1; |
134 |
my $i = 1; |
| 133 |
foreach my $itemnumber(@itemnumbers){ |
135 |
foreach my $itemnumber(@itemnumbers){ |
| 134 |
|
136 |
|
| 135 |
$job->progress($i) if $runinbackground; |
137 |
$job->progress($i) if $runinbackground; |
| 136 |
my $itemdata=GetItem($itemnumber); |
138 |
my $itemdata=GetItem($itemnumber); |
| 137 |
if ($input->param("del")){ |
139 |
if ($input->param("del")){ |
| 138 |
my $return = DelItemCheck(C4::Context->dbh, $itemdata->{'biblionumber'}, $itemdata->{'itemnumber'}); |
140 |
my $return = DelItemCheck(C4::Context->dbh, $itemdata->{'biblionumber'}, $itemdata->{'itemnumber'}); |
| 139 |
if ($return == 1) { |
141 |
if ($return == 1) { |
| 140 |
$deleted_items++; |
142 |
$deleted_items++; |
| 141 |
} else { |
143 |
} else { |
| 142 |
$not_deleted_items++; |
144 |
$not_deleted_items++; |
| 143 |
push @not_deleted, { biblionumber => $itemdata->{'biblionumber'}, itemnumber => $itemdata->{'itemnumber'}, barcode => $itemdata->{'barcode'}, title => $itemdata->{'title'}, $return => 1 }; |
145 |
push @not_deleted, { biblionumber => $itemdata->{'biblionumber'}, itemnumber => $itemdata->{'itemnumber'}, barcode => $itemdata->{'barcode'}, title => $itemdata->{'title'}, $return => 1 }; |
| 144 |
} |
146 |
} |
| 145 |
} else { |
147 |
|
| 146 |
if ($something_to_modify) { |
148 |
# If there are no items left, we delete the biblio |
| 147 |
my $xml = TransformHtmlToXml(\@tags,\@subfields,\@values,\@indicator,\@ind_tag, 'ITEM'); |
149 |
my $icount = GetItemsCount($itemdata->{'biblionumber'}); |
| 148 |
my $marcitem = MARC::Record::new_from_xml($xml, 'UTF-8'); |
150 |
if ($icount == 0) { |
| 149 |
my $localitem = TransformMarcToKoha( $dbh, $marcitem, "", 'items' ); |
151 |
DelBiblio($itemdata->{'biblionumber'}); |
| 150 |
my $localmarcitem=Item2Marc($itemdata); |
152 |
$deleted_biblios++; |
| 151 |
UpdateMarcWith($marcitem,$localmarcitem); |
|
|
| 152 |
eval{my ($oldbiblionumber,$oldbibnum,$oldbibitemnum) = ModItemFromMarc($localmarcitem,$itemdata->{biblionumber},$itemnumber)}; |
| 153 |
} |
| 154 |
} |
153 |
} |
| 155 |
$i++; |
154 |
|
| 156 |
} |
155 |
} else { |
|
|
156 |
if ($values_to_modify||$values_to_blank) { |
| 157 |
my $localmarcitem=Item2Marc($itemdata); |
| 158 |
UpdateMarcWith($marcitem,$localmarcitem); |
| 159 |
eval{my ($oldbiblionumber,$oldbibnum,$oldbibitemnum) = ModItemFromMarc($localmarcitem,$itemdata->{biblionumber},$itemnumber)}; |
| 160 |
} |
| 161 |
} |
| 162 |
$i++; |
| 163 |
} |
| 157 |
} |
164 |
} |
| 158 |
} |
165 |
} |
| 159 |
# |
166 |
# |
|
Lines 401-406
if ($op eq "action") {
Link Here
|
| 401 |
|
408 |
|
| 402 |
$template->param( |
409 |
$template->param( |
| 403 |
not_deleted_items => $not_deleted_items, |
410 |
not_deleted_items => $not_deleted_items, |
|
|
411 |
deleted_biblios => $deleted_biblios, |
| 404 |
deleted_items => $deleted_items, |
412 |
deleted_items => $deleted_items, |
| 405 |
not_deleted_loop => \@not_deleted |
413 |
not_deleted_loop => \@not_deleted |
| 406 |
); |
414 |
); |
| 407 |
- |
|
|