|
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 |
- |
|
|