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

(-)a/C4/Circulation.pm (-2 / +5 lines)
Lines 2044-2053 sub AddReturn { Link Here
2044
    my ($resfound, $resrec);
2044
    my ($resfound, $resrec);
2045
2045
2046
    # find recalls.....
2046
    # find recalls.....
2047
    my $recall = Koha::Recalls->find({ itemnumber => $item->{'itemnumber'}, old => undef });
2047
    my $recall = Koha::Recalls->find({ itemnumber => $item->{'itemnumber'}, status => 'R' });
2048
    my $waiting_recall = Koha::Recalls->find({ itemnumber => $item->{'itemnumber'}, status => 'W' });
2048
    if (defined $recall){
2049
    if (defined $recall){
2049
        $messages->{'RecallFound'} = 1;
2050
        $messages->{'RecallFound'} = 1;
2050
        $messages->{'Recall'} = $recall;
2051
        $messages->{'Recall'} = $recall;
2052
    } elsif (defined $waiting_recall){
2053
        $messages->{'RecallFound'} = 1;
2054
        $messages->{'Recall'} = $waiting_recall;
2051
    } else {
2055
    } else {
2052
        # find reserves.....
2056
        # find reserves.....
2053
        # if we don't have a reserve with the status W, we launch the Checkreserves routine
2057
        # if we don't have a reserve with the status W, we launch the Checkreserves routine
Lines 2056-2062 sub AddReturn { Link Here
2056
        if ($resfound) {
2060
        if ($resfound) {
2057
            $resrec->{'ResFound'} = $resfound;
2061
            $resrec->{'ResFound'} = $resfound;
2058
            $messages->{'ResFound'} = $resrec;
2062
            $messages->{'ResFound'} = $resrec;
2059
        }
2060
    }
2063
    }
2061
2064
2062
    # Record the fact that this book was returned.
2065
    # Record the fact that this book was returned.
(-)a/catalogue/detail.pl (-1 / +2 lines)
Lines 47-52 use Koha::ItemTypes; Link Here
47
use Koha::Patrons;
47
use Koha::Patrons;
48
use Koha::Virtualshelves;
48
use Koha::Virtualshelves;
49
use Koha::Recalls;
49
use Koha::Recalls;
50
use Data::Dumper;
50
51
51
my $query = CGI->new();
52
my $query = CGI->new();
52
53
Lines 330-335 foreach my $item (@items) { Link Here
330
331
331
    my $recall = Koha::Recalls->find({ itemnumber => $item->{itemnumber} });
332
    my $recall = Koha::Recalls->find({ itemnumber => $item->{itemnumber} });
332
    if (defined $recall && $recall->status ne 'F' && $recall->status ne 'C'){
333
    if (defined $recall && $recall->status ne 'F' && $recall->status ne 'C'){
334
        warn 'item has been recalled';
333
        $item->{recalled} = 1;
335
        $item->{recalled} = 1;
334
        $item->{recall} = $recall;
336
        $item->{recall} = $recall;
335
    }
337
    }
336
- 

Return to bug 19532