View | Details | Raw Unified | Return to bug 12363
Collapse All | Expand All

(-)a/C4/Circulation.pm (+2 lines)
Lines 3624-3629 sub ReturnLostItem{ Link Here
3624
sub LostItem{
3624
sub LostItem{
3625
    my ($itemnumber, $mark_returned) = @_;
3625
    my ($itemnumber, $mark_returned) = @_;
3626
3626
3627
    $mark_returned //= C4::Context->preference('MarkLostItemsAsReturned');
3628
3627
    my $dbh = C4::Context->dbh();
3629
    my $dbh = C4::Context->dbh();
3628
    my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title 
3630
    my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title 
3629
                           FROM issues 
3631
                           FROM issues 
(-)a/catalogue/updateitem.pl (-1 / +1 lines)
Lines 81-86 elsif (defined $itemnotes) { # i.e., itemnotes parameter passed from form Link Here
81
81
82
ModItem($item_changes, $biblionumber, $itemnumber);
82
ModItem($item_changes, $biblionumber, $itemnumber);
83
83
84
LostItem($itemnumber, 'MARK RETURNED') if $itemlost;
84
LostItem($itemnumber) if $itemlost;
85
85
86
print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
86
print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
(-)a/cataloguing/additem.pl (-1 / +1 lines)
Lines 700-706 if ($op eq "additem") { Link Here
700
700
701
   my $newitemlost = $itemtosave->subfield( $lost_tag, $lost_subfield );
701
   my $newitemlost = $itemtosave->subfield( $lost_tag, $lost_subfield );
702
    if (($olditemlost eq '0' or $olditemlost eq '' ) and $newitemlost ge '1'){
702
    if (($olditemlost eq '0' or $olditemlost eq '' ) and $newitemlost ge '1'){
703
  LostItem($itemnumber,'MARK RETURNED');
703
        LostItem($itemnumber);
704
    }
704
    }
705
    $nextop="additem";
705
    $nextop="additem";
706
} elsif ($op eq "delinkitem"){
706
} elsif ($op eq "delinkitem"){
(-)a/misc/cronjobs/longoverdue.pl (-1 / +2 lines)
Lines 44-50 use Koha::Patrons; Link Here
44
my  $lost;  #  key=lost value,  value=num days.
44
my  $lost;  #  key=lost value,  value=num days.
45
my ($charge, $verbose, $confirm, $quiet);
45
my ($charge, $verbose, $confirm, $quiet);
46
my $endrange = 366;
46
my $endrange = 366;
47
my $mark_returned = 0;
47
my $mark_returned;
48
my $borrower_category = [];
48
my $borrower_category = [];
49
my $skip_borrower_category = [];
49
my $skip_borrower_category = [];
50
my $help=0;
50
my $help=0;
Lines 142-147 Specifies the end of the range of overdue days to deal with (defaults to 366). Link Here
142
=item B<--mark-returned>
142
=item B<--mark-returned>
143
143
144
When an item is marked lost, remove it from the borrowers issued items.
144
When an item is marked lost, remove it from the borrowers issued items.
145
If not provided, the value of the system preference 'MarkLostItemsAsReturned' will be used.
145
146
146
=item B<--category>
147
=item B<--category>
147
148
(-)a/tools/batchMod.pl (-2 / +1 lines)
Lines 208-214 if ($op eq "action") { Link Here
208
                if ( $modified ) {
208
                if ( $modified ) {
209
                    eval {
209
                    eval {
210
                        if ( my $item = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) ) {
210
                        if ( my $item = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) ) {
211
                            LostItem($itemnumber, 'MARK RETURNED') if $item->{itemlost} and not $itemdata->{itemlost};
211
                            LostItem($itemnumber) if $item->{itemlost} and not $itemdata->{itemlost};
212
                        }
212
                        }
213
                    };
213
                    };
214
                }
214
                }
215
- 

Return to bug 12363