$circ->item($item = new ILS::Item $item_id);

    $circ->item($item = new ILS::Item $item_id);

    if ($item) {

    if ($item) {

    } else {

    } else {

        $circ->alert(1);

        $circ->alert(1);

        $circ->alert_type(99);

        $circ->alert_type(99);

use C4::Circulation;

use C4::Circulation;

use C4::Reserves qw( ModReserveAffect );

use C4::Reserves qw( ModReserveAffect );

use C4::Debug;

use C4::Debug;

our @ISA = qw(ILS::Transaction);

our @ISA = qw(ILS::Transaction);

sub do_checkin {

sub do_checkin {

    my $self = shift;

    my $self = shift;

    my $barcode = $self->{item}->id;

    my $barcode = $self->{item}->id;

    $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";

    $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";

    my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch);

    my ($return, $messages, $iteminformation, $borrower) = AddReturn($barcode, $branch);

            $self->alert_type('02');

            $self->alert_type('02');

            ModReserveAffect( $messages->{ResFound}->{itemnumber},

            ModReserveAffect( $messages->{ResFound}->{itemnumber},

                $messages->{ResFound}->{borrowernumber}, 1);

                $messages->{ResFound}->{borrowernumber}, 1);

        }

        }

        $self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} );

        $self->{item}->hold_patron_id( $messages->{ResFound}->{borrowernumber} );

    my ($self, $server) = @_;

    my ($self, $server) = @_;

    my $account = $server->{account};

    my $account = $server->{account};

    my $ils     = $server->{ils};

    my $ils     = $server->{ils};

    my ($current_loc, $inst_id, $item_id, $terminal_pwd, $item_props, $cancel);

    my ($current_loc, $inst_id, $item_id, $terminal_pwd, $item_props, $cancel);

    my ($patron, $item, $status);

    my ($patron, $item, $status);

    my $resp = CHECKIN_RESP;

    my $resp = CHECKIN_RESP;

	$item_id     = $fields->{(FID_ITEM_ID)};

	$item_id     = $fields->{(FID_ITEM_ID)};

	$item_props  = $fields->{(FID_ITEM_PROPS)};

	$item_props  = $fields->{(FID_ITEM_PROPS)};

	$cancel      = $fields->{(FID_CANCEL)};

	$cancel      = $fields->{(FID_CANCEL)};

    $ils->check_inst_id($inst_id, "handle_checkin");

    $ils->check_inst_id($inst_id, "handle_checkin");

        syslog("LOG_WARNING", "received no-block checkin from terminal '%s'", $account->{id});

        syslog("LOG_WARNING", "received no-block checkin from terminal '%s'", $account->{id});

        $status = $ils->checkin_no_block($item_id, $trans_date, $return_date, $item_props, $cancel);

        $status = $ils->checkin_no_block($item_id, $trans_date, $return_date, $item_props, $cancel);

    } else {

    } else {

    }

    }

    $patron = $status->patron;

    $patron = $status->patron;

    # apparently we can't trust the returns from Checkin yet (because C4::Circulation::AddReturn is faulty)

    # apparently we can't trust the returns from Checkin yet (because C4::Circulation::AddReturn is faulty)

    # So we reproduce the alert logic here.

    # So we reproduce the alert logic here.

    if (not $status->alert) {

    if (not $status->alert) {

            $status->alert(1);

            $status->alert(1);

            $status->alert_type('04');  # no hold, just send it

            $status->alert_type('04');  # no hold, just send it

        }

        }