# Copyright 2000-2002 Katipo Communications
+# Copyright 2004-2010 BibLibre
#
# This file is part of Koha.
#
} elsif ($op eq "delallitems") {
#-------------------------------------------------------------------------------
my @biblioitems = &GetBiblioItemByBiblioNumber($biblionumber);
- foreach my $biblioitem (@biblioitems){
- my $items = &GetItemsByBiblioitemnumber($biblioitem->{biblioitemnumber});
-
- foreach my $item (@$items){
- # FIXME although it won't delete items that have loans
- # or waiting holds on them, should explicitly tell operator
- # about items that are not deleted
- &DelItemCheck($dbh,$biblionumber,$item->{itemnumber});
+ my $errortest=0;
+ my $itemfail;
+ foreach my $biblioitem (@biblioitems) {
+ my $items = &GetItemsByBiblioitemnumber( $biblioitem->{biblioitemnumber} );
+
+ foreach my $item (@$items) {
+ $error =&DelItemCheck( $dbh, $biblionumber, $item->{itemnumber} );
+ $itemfail =$item;
+ if($error == 1){
+ next
+ }
+ else {
+ push @errors,$error;
+ $errortest++
+ }
+ }
+ if($errortest > 0){
+ $nextop="additem";
+ }
+ else {
+ print $input->redirect("/cgi-bin/koha/catalogue/moredetail.pl?biblionumber=$biblionumber");
+ exit;
}
}
#-------------------------------------------------------------------------------
next if ($tagslib->{$tag}->{$subtag}->{'tab'} ne "10");
next if any { /^$tag$subtag$/ } @fields;
- my $value = "";
- my $subfield_data = generate_subfield_form($tag, $subtag, $value, $tagslib, $tagslib->{$tag}->{$subtag}, $branches, $today_iso, $biblionumber, $temp, \@loop_data, $i);
-
- push (@loop_data, $subfield_data);
- $i++;
- }
+ my @values = (undef);
+ @values = $itemrecord->field($tag)->subfield($subtag) if ($itemrecord && defined($itemrecord->field($tag)->subfield($subtag)));
+ for my $value (@values){
+ my $subfield_data = generate_subfield_form($tag, $subtag, $value, $tagslib, $tagslib->{$tag}->{$subtag}, $branches, $today_iso, $biblionumber, $temp, \@loop_data, $i);
+ push (@loop_data, $subfield_data);
+ $i++;
+ }
}
+}
+
# what's the next op ? it's what we are not in : an add if we're editing, otherwise, and edit.
$template->param( title => $record->title() ) if ($record ne "-1");
$template->param(