Lines 390-397
sub GetFullSubscription {
Link Here
|
390 |
my $sth = $dbh->prepare($query); |
390 |
my $sth = $dbh->prepare($query); |
391 |
$sth->execute($subscriptionid); |
391 |
$sth->execute($subscriptionid); |
392 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
392 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
393 |
my $cannotedit = not can_edit_subscription( $subscriptions->[0] ) if ref($subscriptions) eq 'ARRAY'; |
393 |
for my $subscription ( @$subscriptions ) { |
394 |
for my $subscription ( @$subscriptions ) { |
394 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
395 |
$subscription->{cannotedit} = $cannotedit; |
395 |
} |
396 |
} |
396 |
return $subscriptions; |
397 |
return $subscriptions; |
397 |
} |
398 |
} |
Lines 544-551
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
544 |
my $sth = $dbh->prepare($query); |
545 |
my $sth = $dbh->prepare($query); |
545 |
$sth->execute($biblionumber); |
546 |
$sth->execute($biblionumber); |
546 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
547 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
548 |
my $cannotedit = not can_edit_subscription( $subscriptions->[0] ) if ref($subscriptions) eq 'ARRAY'; |
547 |
for my $subscription ( @$subscriptions ) { |
549 |
for my $subscription ( @$subscriptions ) { |
548 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
550 |
$subscription->{cannotedit} = $cannotedit; |
549 |
} |
551 |
} |
550 |
return $subscriptions; |
552 |
return $subscriptions; |
551 |
} |
553 |
} |
552 |
- |
|
|