Attachment #72582 for bug #18606

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




use C4::Debug;
use C4::Log; # logaction
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units);
use C4::RotatingCollections;
use Algorithm::CheckDigits;

use Data::Dumper;

use Koha::RefundLostItemFeeRules;
use Koha::Account::Lines;
use Koha::Account::Offsets;
use Koha::RotatingCollection::Trackings;
use Carp;
use List::MoreUtils qw( uniq );
use Scalar::Util qw( looks_like_number );

    my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} );

    # if we have a transfer to do, we update the line of transfers with the datearrived
    my $is_in_rotating_collection = Koha::RotatingCollection::Trackings->search( { itemnumber => $item->{'itemnumber'} } )->count;
    if ($datesent) {
        if ( $tobranch eq $branch ) {
            my $sth = C4::Context->dbh->prepare(




    );
}

=head2 isItemInAnyCollection

$inCollection = isItemInAnyCollection( $itemnumber );

=cut

sub isItemInAnyCollection {
    my ($itemnumber) = @_;

    my $dbh = C4::Context->dbh;

    my $sth = $dbh->prepare(
        "SELECT itemnumber FROM collections_tracking WHERE itemnumber = ?");
    $sth->execute($itemnumber) or return (0);

    my $row = $sth->fetchrow_hashref;

    $itemnumber = $row->{itemnumber};
    if ($itemnumber) {
        return 1;
    }
    else {
        return 0;
    }
}

1;

__END__

=head1 AUTHOR
- 

Return to bug 18606

Lines 35-41 use C4::Message; Link Here

(-)a/C4/Circulation.pm (-2 / +2 lines)
35	use C4::Debug;	35	use C4::Debug;
36	use C4::Log; # logaction	36	use C4::Log; # logaction
37	use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units);	37	use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units);
38	use C4::RotatingCollections;
39	use Algorithm::CheckDigits;	38	use Algorithm::CheckDigits;
40		39
41	use Data::Dumper;	40	use Data::Dumper;
Lines 56-61 use Koha::RefundLostItemFeeRule; Link Here
56	use Koha::RefundLostItemFeeRules;	55	use Koha::RefundLostItemFeeRules;
57	use Koha::Account::Lines;	56	use Koha::Account::Lines;
58	use Koha::Account::Offsets;	57	use Koha::Account::Offsets;
		58	use Koha::RotatingCollection::Trackings;
59	use Carp;	59	use Carp;
60	use List::MoreUtils qw( uniq );	60	use List::MoreUtils qw( uniq );
61	use Scalar::Util qw( looks_like_number );	61	use Scalar::Util qw( looks_like_number );
Lines 1938-1944 sub AddReturn { Link Here
1938	my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} );	1938	my ($datesent,$frombranch,$tobranch) = GetTransfers( $item->{'itemnumber'} );
1939		1939
1940	# if we have a transfer to do, we update the line of transfers with the datearrived	1940	# if we have a transfer to do, we update the line of transfers with the datearrived
1941	my $is_in_rotating_collection = C4::RotatingCollections::isItemInAnyCollection( $item->{'itemnumber'} );	1941	my $is_in_rotating_collection = Koha::RotatingCollection::Trackings->search( { itemnumber => $item->{'itemnumber'} } )->count;
1942	if ($datesent) {	1942	if ($datesent) {
1943	if ( $tobranch eq $branch ) {	1943	if ( $tobranch eq $branch ) {
1944	my $sth = C4::Context->dbh->prepare(	1944	my $sth = C4::Context->dbh->prepare(

Lines 51-84 BEGIN { Link Here

(-)a/C4/RotatingCollections.pm (-29 lines)
51	);	51	);
52	}	52	}
53		53
54	=head2 isItemInAnyCollection
55
56	$inCollection = isItemInAnyCollection( $itemnumber );
57
58	=cut
59
60	sub isItemInAnyCollection {
61	my ($itemnumber) = @_;
62
63	my $dbh = C4::Context->dbh;
64
65	my $sth = $dbh->prepare(
66	"SELECT itemnumber FROM collections_tracking WHERE itemnumber = ?");
67	$sth->execute($itemnumber) or return (0);
68
69	my $row = $sth->fetchrow_hashref;
70
71	$itemnumber = $row->{itemnumber};
72	if ($itemnumber) {
73	return 1;
74	}
75	else {
76	return 0;
77	}
78	}
79
80	1;
81
82	__END__	54	__END__
83		55
84	=head1 AUTHOR	56	=head1 AUTHOR
85	-