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

(-)a/C4/SIP/ILS.pm (-7 / +10 lines)
Lines 190-201 sub checkin { Link Here
190
	# It's ok to check it in if it exists, and if it was checked out
190
	# It's ok to check it in if it exists, and if it was checked out
191
	$circ->ok($item && $item->{patron});
191
	$circ->ok($item && $item->{patron});
192
192
193
    if ($circ->ok) {
193
	if (!defined($item->{patron})) {
194
		$circ->patron($patron = new ILS::Patron $item->{patron});
194
		$circ->screen_msg("Item not checked out");
195
		delete $item->{patron};
195
	} else {
196
		delete $item->{due_date};
196
		if ($circ->ok) {
197
		$patron->{items} = [ grep {$_ ne $item_id} @{$patron->{items}} ];
197
			$circ->patron($patron = new ILS::Patron $item->{patron});
198
    }
198
			delete $item->{patron};
199
			delete $item->{due_date};
200
			$patron->{items} = [ grep {$_ ne $item_id} @{$patron->{items}} ];
201
		}
202
	}
199
    # END TRANSACTION
203
    # END TRANSACTION
200
204
201
    return $circ;
205
    return $circ;
202
- 

Return to bug 3704