0005f6bad3
This patch adds functionality to forgive overdue fine when an item is set to lost status. Fines are forgiven only when the syspref WhenLostForgiveFine is set to yes. Item can be set to lost status from: - catalogue/moredetail.pl - cataloguing/additem.pl - tools/batchMod.pl - misc/cronjobs/longoverdue.pl Changed subroutine C4::Circulation::LostItem to forgive fines on the item depending on the value of syspref WhenLostForgiveFine. This routine is currently used to return an item and charge a replacement cost. Also added a new syspref in C4::Circulation::LostItem - WhenLostChargeReplacementFee. The replacement fee will now be charged only if this syspref is set to yes. The default value of the WhenLostChargeReplacementFee is yes, meaning that current behavior will not change during upgrade. Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Alex Hatley <alexh@cctexas.com> Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Testing notes on last patch in series. Signed-off-by: Galen Charlton <gmc@esilibrary.com>
79 lines
2.7 KiB
Perl
Executable file
79 lines
2.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# $Id: updateitem.pl,v 1.9.2.1.2.4 2006/10/05 18:36:50 kados Exp $
|
|
# Copyright 2006 LibLime
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
use strict;
|
|
use warnings;
|
|
use CGI;
|
|
use C4::Auth;
|
|
use C4::Context;
|
|
use C4::Biblio;
|
|
use C4::Items;
|
|
use C4::Output;
|
|
use C4::Circulation;
|
|
use C4::Reserves;
|
|
|
|
my $cgi= new CGI;
|
|
|
|
checkauth($cgi, 0, {circulate => 'circulate_remaining_permissions'}, 'intranet');
|
|
|
|
my $biblionumber=$cgi->param('biblionumber');
|
|
my $itemnumber=$cgi->param('itemnumber');
|
|
my $biblioitemnumber=$cgi->param('biblioitemnumber');
|
|
my $itemlost=$cgi->param('itemlost');
|
|
my $itemnotes=$cgi->param('itemnotes');
|
|
my $withdrawn=$cgi->param('withdrawn');
|
|
my $damaged=$cgi->param('damaged');
|
|
|
|
my $confirm=$cgi->param('confirm');
|
|
my $dbh = C4::Context->dbh;
|
|
|
|
# get the rest of this item's information
|
|
my $item_data_hashref = GetItem($itemnumber, undef);
|
|
|
|
# make sure item statuses are set to 0 if empty or NULL
|
|
for ($damaged,$itemlost,$withdrawn) {
|
|
if (!$_ or $_ eq "") {
|
|
$_ = 0;
|
|
}
|
|
}
|
|
|
|
# modify MARC item if input differs from items table.
|
|
my $item_changes = {};
|
|
if (defined $itemnotes) { # i.e., itemnotes parameter passed from form
|
|
checkauth($cgi, 0, {editcatalogue => 'edit_items'}, 'intranet');
|
|
if ((not defined $item_data_hashref->{'itemnotes'}) or $itemnotes ne $item_data_hashref->{'itemnotes'}) {
|
|
$item_changes->{'itemnotes'} = $itemnotes;
|
|
}
|
|
} elsif ($itemlost ne $item_data_hashref->{'itemlost'}) {
|
|
$item_changes->{'itemlost'} = $itemlost;
|
|
} elsif ($withdrawn ne $item_data_hashref->{'withdrawn'}) {
|
|
$item_changes->{'withdrawn'} = $withdrawn;
|
|
} elsif ($damaged ne $item_data_hashref->{'damaged'}) {
|
|
$item_changes->{'damaged'} = $damaged;
|
|
} else {
|
|
#nothings changed, so do nothing.
|
|
print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
|
|
exit;
|
|
}
|
|
|
|
ModItem($item_changes, $biblionumber, $itemnumber);
|
|
|
|
LostItem($itemnumber, 'MARK RETURNED') if $itemlost;
|
|
|
|
print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
|