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