Lines 82-88
my @not_deleted; # List of the itemnumbers that could not be deleted
Link Here
|
82 |
|
82 |
|
83 |
my %cookies = parse CGI::Cookie($cookie); |
83 |
my %cookies = parse CGI::Cookie($cookie); |
84 |
my $sessionID = $cookies{'CGISESSID'}->value; |
84 |
my $sessionID = $cookies{'CGISESSID'}->value; |
85 |
my $dbh = C4::Context->dbh; |
|
|
86 |
|
85 |
|
87 |
|
86 |
|
88 |
#--- ---------------------------------------------------------------------------- |
87 |
#--- ---------------------------------------------------------------------------- |
Lines 492-498
sub BuildItemsData{
Link Here
|
492 |
# Where subfield is not repeated |
491 |
# Where subfield is not repeated |
493 |
# And where we are sure that field should correspond |
492 |
# And where we are sure that field should correspond |
494 |
# And $tag>10 |
493 |
# And $tag>10 |
495 |
sub UpdateMarcWith($$){ |
494 |
sub UpdateMarcWith { |
496 |
my ($marcfrom,$marcto)=@_; |
495 |
my ($marcfrom,$marcto)=@_; |
497 |
#warn "FROM :",$marcfrom->as_formatted; |
496 |
#warn "FROM :",$marcfrom->as_formatted; |
498 |
my ( $itemtag, $itemtagsubfield) = &GetMarcFromKohaField("items.itemnumber", ""); |
497 |
my ( $itemtag, $itemtagsubfield) = &GetMarcFromKohaField("items.itemnumber", ""); |
499 |
- |
|
|