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

(-)a/C4/Serials.pm (-3 / +2 lines)
Lines 343-349 sub GetFullSubscription { Link Here
343
    my $sth = $dbh->prepare($query);
343
    my $sth = $dbh->prepare($query);
344
    $sth->execute($subscriptionid);
344
    $sth->execute($subscriptionid);
345
    my $subscriptions = $sth->fetchall_arrayref( {} );
345
    my $subscriptions = $sth->fetchall_arrayref( {} );
346
    my $cannotedit = not can_edit_subscription( $subscriptions->[0] ) if ref($subscriptions) eq 'ARRAY';
346
    my $cannotedit = not can_edit_subscription( $subscriptions->[0] ) if scalar @$subscriptions;
347
    for my $subscription ( @$subscriptions ) {
347
    for my $subscription ( @$subscriptions ) {
348
        $subscription->{cannotedit} = $cannotedit;
348
        $subscription->{cannotedit} = $cannotedit;
349
    }
349
    }
Lines 503-509 sub GetFullSubscriptionsFromBiblionumber { Link Here
503
    my $sth = $dbh->prepare($query);
503
    my $sth = $dbh->prepare($query);
504
    $sth->execute($biblionumber);
504
    $sth->execute($biblionumber);
505
    my $subscriptions = $sth->fetchall_arrayref( {} );
505
    my $subscriptions = $sth->fetchall_arrayref( {} );
506
    my $cannotedit = not can_edit_subscription( $subscriptions->[0] ) if ref($subscriptions) eq 'ARRAY';
506
    my $cannotedit = not can_edit_subscription( $subscriptions->[0] ) if scalar @$subscriptions;
507
    for my $subscription ( @$subscriptions ) {
507
    for my $subscription ( @$subscriptions ) {
508
        $subscription->{cannotedit} = $cannotedit;
508
        $subscription->{cannotedit} = $cannotedit;
509
    }
509
    }
510
- 

Return to bug 14932