|
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 |
} |