Lines 1-6
Link Here
|
1 |
package C4::Items; |
1 |
package C4::Items; |
2 |
|
2 |
|
3 |
# Copyright 2007 LibLime, Inc. |
3 |
# Copyright 2007 LibLime, Inc. |
|
|
4 |
# Parts Copyright Biblibre 2010 |
4 |
# |
5 |
# |
5 |
# This file is part of Koha. |
6 |
# This file is part of Koha. |
6 |
# |
7 |
# |
Lines 2040-2060
sub DelItemCheck {
Link Here
|
2040 |
my $sth=$dbh->prepare("select * from issues i where i.itemnumber=?"); |
2041 |
my $sth=$dbh->prepare("select * from issues i where i.itemnumber=?"); |
2041 |
$sth->execute($itemnumber); |
2042 |
$sth->execute($itemnumber); |
2042 |
|
2043 |
|
2043 |
my $onloan=$sth->fetchrow; |
2044 |
my $item = GetItem($itemnumber); |
2044 |
|
2045 |
my $onloan = $sth->fetchrow; |
2045 |
if ($onloan){ |
2046 |
if ($onloan) { |
2046 |
$error = "book_on_loan" |
2047 |
$error = "book_on_loan"; |
2047 |
}else{ |
2048 |
} |
2048 |
# check it doesnt have a waiting reserve |
2049 |
elsif (C4::Context->preference("IndependantBranches") and (C4::Context->userenv->{branch} ne $item->{C4::Context->preference("HomeOrHoldingBranch")||'homebranch'})){ |
2049 |
$sth=$dbh->prepare("SELECT * FROM reserves WHERE (found = 'W' or found = 'T') AND itemnumber = ?"); |
2050 |
$error = "not_same_branch"; |
2050 |
$sth->execute($itemnumber); |
2051 |
} |
2051 |
my $reserve=$sth->fetchrow; |
2052 |
else { |
2052 |
if ($reserve){ |
2053 |
if ($onloan){ |
2053 |
$error = "book_reserved"; |
2054 |
$error = "book_on_loan" |
2054 |
}else{ |
2055 |
} |
2055 |
DelItem($dbh, $biblionumber, $itemnumber); |
2056 |
else { |
2056 |
return 1; |
2057 |
# check it doesnt have a waiting reserve |
2057 |
} |
2058 |
$sth=$dbh->prepare("SELECT * FROM reserves WHERE (found = 'W' or found = 'T') AND itemnumber = ?"); |
|
|
2059 |
$sth->execute($itemnumber); |
2060 |
my $reserve=$sth->fetchrow; |
2061 |
if ($reserve) { |
2062 |
$error = "book_reserved"; |
2063 |
} |
2064 |
else { |
2065 |
DelItem($dbh, $biblionumber, $itemnumber); |
2066 |
return 1; |
2067 |
} |
2068 |
} |
2058 |
} |
2069 |
} |
2059 |
return $error; |
2070 |
return $error; |
2060 |
} |
2071 |
} |