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