|
Lines 702-708
sub CanBookBeIssued {
Link Here
|
| 702 |
my $item = GetItem(GetItemnumberFromBarcode( $barcode )); |
702 |
my $item = GetItem(GetItemnumberFromBarcode( $barcode )); |
| 703 |
my $issue = GetItemIssue($item->{itemnumber}); |
703 |
my $issue = GetItemIssue($item->{itemnumber}); |
| 704 |
my $biblioitem = GetBiblioItemData($item->{biblioitemnumber}); |
704 |
my $biblioitem = GetBiblioItemData($item->{biblioitemnumber}); |
| 705 |
$item->{'itemtype'}=$item->{'itype'}; |
705 |
$item->{'itemtype'}=$item->{'itype'}; #TODO maybe useless |
| 706 |
my $dbh = C4::Context->dbh; |
706 |
my $dbh = C4::Context->dbh; |
| 707 |
|
707 |
|
| 708 |
# MANDATORY CHECKS - unless item exists, nothing else matters |
708 |
# MANDATORY CHECKS - unless item exists, nothing else matters |
|
Lines 1745-1751
sub AddReturn {
Link Here
|
| 1745 |
$branch = C4::Context->userenv->{'branch'} unless $branch; # we trust userenv to be a safe fallback/default |
1745 |
$branch = C4::Context->userenv->{'branch'} unless $branch; # we trust userenv to be a safe fallback/default |
| 1746 |
my $messages; |
1746 |
my $messages; |
| 1747 |
my $borrower; |
1747 |
my $borrower; |
| 1748 |
my $biblio; |
|
|
| 1749 |
my $doreturn = 1; |
1748 |
my $doreturn = 1; |
| 1750 |
my $validTransfert = 0; |
1749 |
my $validTransfert = 0; |
| 1751 |
my $stat_type = 'return'; |
1750 |
my $stat_type = 'return'; |
|
Lines 1983-1994
sub AddReturn {
Link Here
|
| 1983 |
} |
1982 |
} |
| 1984 |
|
1983 |
|
| 1985 |
# Record the fact that this book was returned. |
1984 |
# Record the fact that this book was returned. |
| 1986 |
# FIXME itemtype should record item level type, not bibliolevel type |
|
|
| 1987 |
UpdateStats({ |
1985 |
UpdateStats({ |
| 1988 |
branch => $branch, |
1986 |
branch => $branch, |
| 1989 |
type => $stat_type, |
1987 |
type => $stat_type, |
| 1990 |
itemnumber => $item->{'itemnumber'}, |
1988 |
itemnumber => $item->{'itemnumber'}, |
| 1991 |
itemtype => $biblio->{'itype'}, |
1989 |
itemtype => $item->{'itype'}, |
| 1992 |
borrowernumber => $borrowernumber, |
1990 |
borrowernumber => $borrowernumber, |
| 1993 |
ccode => $item->{'ccode'}} |
1991 |
ccode => $item->{'ccode'}} |
| 1994 |
); |
1992 |
); |
| 1995 |
- |
|
|