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

(-)a/C4/Circulation.pm (+2 lines)
Lines 3620-3625 sub ReturnLostItem{ Link Here
3620
sub LostItem{
3620
sub LostItem{
3621
    my ($itemnumber, $mark_returned) = @_;
3621
    my ($itemnumber, $mark_returned) = @_;
3622
3622
3623
    $mark_returned //= C4::Context->preference('MarkLostItemsAsReturned');
3624
3623
    my $dbh = C4::Context->dbh();
3625
    my $dbh = C4::Context->dbh();
3624
    my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title 
3626
    my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title 
3625
                           FROM issues 
3627
                           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