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

(-)a/serials/routing-preview.pl (-9 / +8 lines)
Lines 62-76 my ($template, $loggedinuser, $cookie); Link Here
62
62
63
if($ok){
63
if($ok){
64
    # get biblio information....
64
    # get biblio information....
65
    my $biblio = $subs->{'biblionumber'};
65
    my $biblionumber = $subs->{'bibnum'};
66
	my ($count2,@bibitems) = GetBiblioItemByBiblioNumber($biblio);
66
    my ($count2,@bibitems) = GetBiblioItemByBiblioNumber($biblionumber);
67
	my @itemresults = GetItemsInfo( $subs->{biblionumber} );
67
    my @itemresults = GetItemsInfo( $biblionumber );
68
	my $branch = $itemresults[0]->{'holdingbranch'};
68
    my $branch = scalar @itemresults ? $itemresults[0]->{'holdingbranch'} : $subs->{branchcode};
69
    my $branchname = Koha::Libraries->find($branch)->branchname;
69
    my $branchname = Koha::Libraries->find($branch)->branchname;
70
70
71
	if (C4::Context->preference('RoutingListAddReserves')){
71
	if (C4::Context->preference('RoutingListAddReserves')){
72
		# get existing reserves .....
72
		# get existing reserves .....
73
        my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblio });
73
        my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber });
74
        my $count = scalar( @$reserves );
74
        my $count = scalar( @$reserves );
75
        my $totalcount = $count;
75
        my $totalcount = $count;
76
		foreach my $res (@$reserves) {
76
		foreach my $res (@$reserves) {
Lines 82-99 if($ok){ Link Here
82
		my $title = $subs->{'bibliotitle'};
82
		my $title = $subs->{'bibliotitle'};
83
        for my $routing ( @routinglist ) {
83
        for my $routing ( @routinglist ) {
84
            my $sth = $dbh->prepare('SELECT * FROM reserves WHERE biblionumber = ? AND borrowernumber = ? LIMIT 1');
84
            my $sth = $dbh->prepare('SELECT * FROM reserves WHERE biblionumber = ? AND borrowernumber = ? LIMIT 1');
85
            $sth->execute($biblio,$routing->{borrowernumber});
85
            $sth->execute($biblionumber,$routing->{borrowernumber});
86
            my $reserve = $sth->fetchrow_hashref;
86
            my $reserve = $sth->fetchrow_hashref;
87
87
88
            if($routing->{borrowernumber} == $reserve->{borrowernumber}){
88
            if($routing->{borrowernumber} == $reserve->{borrowernumber}){
89
                ModReserve({
89
                ModReserve({
90
                    rank           => $routing->{ranking},
90
                    rank           => $routing->{ranking},
91
                    biblionumber   => $biblio,
91
                    biblionumber   => $biblionumber,
92
                    borrowernumber => $routing->{borrowernumber},
92
                    borrowernumber => $routing->{borrowernumber},
93
                    branchcode     => $branch
93
                    branchcode     => $branch
94
                });
94
                });
95
            } else {
95
            } else {
96
                AddReserve($branch,$routing->{borrowernumber},$biblio,\@bibitems,$routing->{ranking}, undef, undef, $notes,$title);
96
                AddReserve($branch,$routing->{borrowernumber},$biblionumber,\@bibitems,$routing->{ranking}, undef, undef, $notes,$title);
97
        }
97
        }
98
    }
98
    }
99
	}
99
	}
100
- 

Return to bug 19315