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

(-)a/C4/Circulation.pm (-2 / +3 lines)
Lines 3021-3027 sub ReturnLostItem{ Link Here
3021
3021
3022
3022
3023
sub LostItem{
3023
sub LostItem{
3024
    my ($itemnumber, $mark_returned) = @_;
3024
    my ($itemnumber, $mark_returned, $charge_fee) = @_;
3025
3025
3026
    my $dbh = C4::Context->dbh();
3026
    my $dbh = C4::Context->dbh();
3027
    my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title 
3027
    my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title 
Lines 3036-3042 sub LostItem{ Link Here
3036
    # if a borrower lost the item, add a replacement cost to the their record
3036
    # if a borrower lost the item, add a replacement cost to the their record
3037
    if ( my $borrowernumber = $issues->{borrowernumber} ){
3037
    if ( my $borrowernumber = $issues->{borrowernumber} ){
3038
3038
3039
        C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}");
3039
        C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}")
3040
          if $charge_fee;
3040
        #FIXME : Should probably have a way to distinguish this from an item that really was returned.
3041
        #FIXME : Should probably have a way to distinguish this from an item that really was returned.
3041
        #warn " $issues->{'borrowernumber'}  /  $itemnumber ";
3042
        #warn " $issues->{'borrowernumber'}  /  $itemnumber ";
3042
        MarkIssueReturned($borrowernumber,$itemnumber) if $mark_returned;
3043
        MarkIssueReturned($borrowernumber,$itemnumber) if $mark_returned;
(-)a/catalogue/updateitem.pl (-1 / +1 lines)
Lines 74-79 if (defined $itemnotes) { # i.e., itemnotes parameter passed from form Link Here
74
74
75
ModItem($item_changes, $biblionumber, $itemnumber);
75
ModItem($item_changes, $biblionumber, $itemnumber);
76
76
77
LostItem($itemnumber, 'MARK RETURNED') if $itemlost;
77
LostItem($itemnumber, 'MARK RETURNED', 'CHARGE FEE') if $itemlost;
78
78
79
print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
79
print $cgi->redirect("moredetail.pl?biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
(-)a/misc/cronjobs/longoverdue.pl (-1 / +1 lines)
Lines 154-160 foreach my $startrange (sort keys %$lost) { Link Here
154
            printf ("Due %s: item %5s from borrower %5s to lost: %s\n", $row->{date_due}, $row->{itemnumber}, $row->{borrowernumber}, $lostvalue) if($verbose);
154
            printf ("Due %s: item %5s from borrower %5s to lost: %s\n", $row->{date_due}, $row->{itemnumber}, $row->{borrowernumber}, $lostvalue) if($verbose);
155
            if($confirm) {
155
            if($confirm) {
156
                ModItem({ itemlost => $lostvalue }, $row->{'biblionumber'}, $row->{'itemnumber'});
156
                ModItem({ itemlost => $lostvalue }, $row->{'biblionumber'}, $row->{'itemnumber'});
157
                LostItem($row->{'itemnumber'}) if( $charge && $charge eq $lostvalue);
157
                LostItem($row->{'itemnumber'}, undef, 'CHARGE FEE') if( $charge && $charge eq $lostvalue);
158
            }
158
            }
159
            $count++;
159
            $count++;
160
        }
160
        }
(-)a/tools/batchMod.pl (-2 / +1 lines)
Lines 177-183 if ($op eq "action") { Link Here
177
			UpdateMarcWith( $marcitem, $localmarcitem );
177
			UpdateMarcWith( $marcitem, $localmarcitem );
178
			eval{
178
			eval{
179
                if ( my $item = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) ) {
179
                if ( my $item = ModItemFromMarc( $localmarcitem, $itemdata->{biblionumber}, $itemnumber ) ) {
180
                    LostItem($itemnumber, 'MARK RETURNED') if $item->{itemlost};
180
                    LostItem($itemnumber, 'MARK RETURNED', 'CHARGE FEE') if $item->{itemlost};
181
                }
181
                }
182
            };
182
            };
183
		    }
183
		    }
184
- 

Return to bug 5211