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

(-)a/C4/Biblio.pm (-21 lines)
Lines 54-60 BEGIN { Link Here
54
        TransformKohaToMarc
54
        TransformKohaToMarc
55
        PrepHostMarcField
55
        PrepHostMarcField
56
        CountItemsIssued
56
        CountItemsIssued
57
        CountBiblioInOrders
58
        ModBiblio
57
        ModBiblio
59
        ModZebra
58
        ModZebra
60
        UpdateTotalIssues
59
        UpdateTotalIssues
Lines 3180-3205 sub ModBiblioMarc { Link Here
3180
    return $biblionumber;
3179
    return $biblionumber;
3181
}
3180
}
3182
3181
3183
=head2 CountBiblioInOrders
3184
3185
    $count = &CountBiblioInOrders( $biblionumber);
3186
3187
This function return count of biblios in orders with $biblionumber 
3188
3189
=cut
3190
3191
sub CountBiblioInOrders {
3192
 my ($biblionumber) = @_;
3193
    my $dbh            = C4::Context->dbh;
3194
    my $query          = "SELECT count(*)
3195
          FROM  aqorders 
3196
          WHERE biblionumber=? AND datecancellationprinted IS NULL";
3197
    my $sth = $dbh->prepare($query);
3198
    $sth->execute($biblionumber);
3199
    my $count = $sth->fetchrow;
3200
    return ($count);
3201
}
3202
3203
=head2 prepare_host_field
3182
=head2 prepare_host_field
3204
3183
3205
$marcfield = prepare_host_field( $hostbiblioitem, $marcflavour );
3184
$marcfield = prepare_host_field( $hostbiblioitem, $marcflavour );
(-)a/acqui/basket.pl (-2 / +3 lines)
Lines 136-142 if ( $op eq 'delete_confirm' ) { Link Here
136
        foreach my $myorder (@orders){
136
        foreach my $myorder (@orders){
137
            my $biblionumber = $myorder->{'biblionumber'};
137
            my $biblionumber = $myorder->{'biblionumber'};
138
            my $biblio = Koha::Biblios->find( $biblionumber );
138
            my $biblio = Koha::Biblios->find( $biblionumber );
139
            my $countbiblio = CountBiblioInOrders($biblionumber);
139
            my $countbiblio = $biblio->active_orders_count;
140
            my $ordernumber = $myorder->{'ordernumber'};
140
            my $ordernumber = $myorder->{'ordernumber'};
141
            my $cnt_subscriptions = $biblio->subscriptions->count;
141
            my $cnt_subscriptions = $biblio->subscriptions->count;
142
            my $itemcount = $biblio->items->count;
142
            my $itemcount = $biblio->items->count;
Lines 477-483 sub get_order_infos { Link Here
477
    my $biblionumber = $order->{'biblionumber'};
477
    my $biblionumber = $order->{'biblionumber'};
478
    if ( $biblionumber ) { # The biblio still exists
478
    if ( $biblionumber ) { # The biblio still exists
479
        my $biblio = Koha::Biblios->find( $biblionumber );
479
        my $biblio = Koha::Biblios->find( $biblionumber );
480
        my $countbiblio = CountBiblioInOrders($biblionumber);
480
        my $countbiblio = $biblio->active_orders_count;
481
481
        my $ordernumber = $order->{'ordernumber'};
482
        my $ordernumber = $order->{'ordernumber'};
482
        my $cnt_subscriptions = $biblio->subscriptions->count;
483
        my $cnt_subscriptions = $biblio->subscriptions->count;
483
        my $itemcount   = $biblio->items->count;
484
        my $itemcount   = $biblio->items->count;
(-)a/acqui/parcel.pl (-2 / +1 lines)
Lines 241-247 unless( defined $invoice->{closedate} ) { Link Here
241
241
242
        my $biblionumber = $line{'biblionumber'};
242
        my $biblionumber = $line{'biblionumber'};
243
        my $biblio = Koha::Biblios->find( $biblionumber );
243
        my $biblio = Koha::Biblios->find( $biblionumber );
244
        my $countbiblio = CountBiblioInOrders($biblionumber);
244
        my $countbiblio = $biblio->active_orders_count;
245
        my $ordernumber = $line{'ordernumber'};
245
        my $ordernumber = $line{'ordernumber'};
246
        my $order_object = Koha::Acquisition::Orders->find($ordernumber);
246
        my $order_object = Koha::Acquisition::Orders->find($ordernumber);
247
        my $cnt_subscriptions = $biblio ? $biblio->subscriptions->count: 0;
247
        my $cnt_subscriptions = $biblio ? $biblio->subscriptions->count: 0;
248
- 

Return to bug 24430