|
Lines 20-25
package C4::Serials;
Link Here
|
| 20 |
|
20 |
|
| 21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
| 22 |
|
22 |
|
|
|
23 |
use C4::Context; |
| 23 |
use C4::Dates qw(format_date format_date_in_iso); |
24 |
use C4::Dates qw(format_date format_date_in_iso); |
| 24 |
use Date::Calc qw(:all); |
25 |
use Date::Calc qw(:all); |
| 25 |
use POSIX qw(strftime setlocale LC_TIME); |
26 |
use POSIX qw(strftime setlocale LC_TIME); |
|
Lines 228-242
sub GetSerialInformation {
Link Here
|
| 228 |
my ($serialid) = @_; |
229 |
my ($serialid) = @_; |
| 229 |
my $dbh = C4::Context->dbh; |
230 |
my $dbh = C4::Context->dbh; |
| 230 |
my $query = qq| |
231 |
my $query = qq| |
| 231 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |; |
232 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |
| 232 |
if ( C4::Context->preference('IndependentBranches') |
|
|
| 233 |
&& C4::Context->userenv |
| 234 |
&& C4::Context->userenv->{'flags'} != 1 |
| 235 |
&& C4::Context->userenv->{'branch'} ) { |
| 236 |
$query .= " |
| 237 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
| 238 |
} |
| 239 |
$query .= qq| |
| 240 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
233 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
| 241 |
WHERE serialid = ? |
234 |
WHERE serialid = ? |
| 242 |
|; |
235 |
|; |
|
Lines 275-280
sub GetSerialInformation {
Link Here
|
| 275 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
268 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
| 276 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
269 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
| 277 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
270 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
|
|
271 |
$data->{cannotedit} = not can_edit_subscription( $data ); |
| 278 |
return $data; |
272 |
return $data; |
| 279 |
} |
273 |
} |
| 280 |
|
274 |
|
|
Lines 339-353
sub GetSubscription {
Link Here
|
| 339 |
subscriptionhistory.*, |
333 |
subscriptionhistory.*, |
| 340 |
aqbooksellers.name AS aqbooksellername, |
334 |
aqbooksellers.name AS aqbooksellername, |
| 341 |
biblio.title AS bibliotitle, |
335 |
biblio.title AS bibliotitle, |
| 342 |
subscription.biblionumber as bibnum); |
336 |
subscription.biblionumber as bibnum |
| 343 |
if ( C4::Context->preference('IndependentBranches') |
|
|
| 344 |
&& C4::Context->userenv |
| 345 |
&& C4::Context->userenv->{'flags'} != 1 |
| 346 |
&& C4::Context->userenv->{'branch'} ) { |
| 347 |
$query .= " |
| 348 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
| 349 |
} |
| 350 |
$query .= qq( |
| 351 |
FROM subscription |
337 |
FROM subscription |
| 352 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
338 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
| 353 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
339 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
|
Lines 355-370
sub GetSubscription {
Link Here
|
| 355 |
WHERE subscription.subscriptionid = ? |
341 |
WHERE subscription.subscriptionid = ? |
| 356 |
); |
342 |
); |
| 357 |
|
343 |
|
| 358 |
# if (C4::Context->preference('IndependentBranches') && |
|
|
| 359 |
# C4::Context->userenv && |
| 360 |
# C4::Context->userenv->{'flags'} != 1){ |
| 361 |
# # $debug and warn "flags: ".C4::Context->userenv->{'flags'}; |
| 362 |
# $query.=" AND subscription.branchcode IN ('".C4::Context->userenv->{'branch'}."',\"\")"; |
| 363 |
# } |
| 364 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
344 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
| 365 |
my $sth = $dbh->prepare($query); |
345 |
my $sth = $dbh->prepare($query); |
| 366 |
$sth->execute($subscriptionid); |
346 |
$sth->execute($subscriptionid); |
| 367 |
return $sth->fetchrow_hashref; |
347 |
my $subscription = $sth->fetchrow_hashref; |
|
|
348 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 349 |
return $subscription; |
| 368 |
} |
350 |
} |
| 369 |
|
351 |
|
| 370 |
=head2 GetFullSubscription |
352 |
=head2 GetFullSubscription |
|
Lines 391-405
sub GetFullSubscription {
Link Here
|
| 391 |
aqbooksellers.name as aqbooksellername, |
373 |
aqbooksellers.name as aqbooksellername, |
| 392 |
biblio.title as bibliotitle, |
374 |
biblio.title as bibliotitle, |
| 393 |
subscription.branchcode AS branchcode, |
375 |
subscription.branchcode AS branchcode, |
| 394 |
subscription.subscriptionid AS subscriptionid |; |
376 |
subscription.subscriptionid AS subscriptionid |
| 395 |
if ( C4::Context->preference('IndependentBranches') |
|
|
| 396 |
&& C4::Context->userenv |
| 397 |
&& C4::Context->userenv->{'flags'} != 1 |
| 398 |
&& C4::Context->userenv->{'branch'} ) { |
| 399 |
$query .= " |
| 400 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
| 401 |
} |
| 402 |
$query .= qq| |
| 403 |
FROM serial |
377 |
FROM serial |
| 404 |
LEFT JOIN subscription ON |
378 |
LEFT JOIN subscription ON |
| 405 |
(serial.subscriptionid=subscription.subscriptionid ) |
379 |
(serial.subscriptionid=subscription.subscriptionid ) |
|
Lines 413-419
sub GetFullSubscription {
Link Here
|
| 413 |
$debug and warn "GetFullSubscription query: $query"; |
387 |
$debug and warn "GetFullSubscription query: $query"; |
| 414 |
my $sth = $dbh->prepare($query); |
388 |
my $sth = $dbh->prepare($query); |
| 415 |
$sth->execute($subscriptionid); |
389 |
$sth->execute($subscriptionid); |
| 416 |
return $sth->fetchall_arrayref( {} ); |
390 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
391 |
for my $subscription ( @$subscriptions ) { |
| 392 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 393 |
} |
| 394 |
return $subscriptions; |
| 417 |
} |
395 |
} |
| 418 |
|
396 |
|
| 419 |
=head2 PrepareSerialsData |
397 |
=head2 PrepareSerialsData |
|
Lines 514-526
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 514 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
492 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
| 515 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
493 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
| 516 |
$subs->{ "status" . $subs->{'status'} } = 1; |
494 |
$subs->{ "status" . $subs->{'status'} } = 1; |
| 517 |
$subs->{'cannotedit'} = |
|
|
| 518 |
( C4::Context->preference('IndependentBranches') |
| 519 |
&& C4::Context->userenv |
| 520 |
&& C4::Context->userenv->{flags} % 2 != 1 |
| 521 |
&& C4::Context->userenv->{branch} |
| 522 |
&& $subs->{branchcode} |
| 523 |
&& ( C4::Context->userenv->{branch} ne $subs->{branchcode} ) ); |
| 524 |
|
495 |
|
| 525 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
496 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
| 526 |
$subs->{enddate} = ''; |
497 |
$subs->{enddate} = ''; |
|
Lines 529-534
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 529 |
} |
500 |
} |
| 530 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
501 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
| 531 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
502 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
|
|
503 |
$subs->{cannotedit} = not can_edit_subscription( $subs ); |
| 532 |
push @res, $subs; |
504 |
push @res, $subs; |
| 533 |
} |
505 |
} |
| 534 |
return \@res; |
506 |
return \@res; |
|
Lines 554-569
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
| 554 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
526 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
| 555 |
biblio.title as bibliotitle, |
527 |
biblio.title as bibliotitle, |
| 556 |
subscription.branchcode AS branchcode, |
528 |
subscription.branchcode AS branchcode, |
| 557 |
subscription.subscriptionid AS subscriptionid|; |
529 |
subscription.subscriptionid AS subscriptionid |
| 558 |
if ( C4::Context->preference('IndependentBranches') |
|
|
| 559 |
&& C4::Context->userenv |
| 560 |
&& C4::Context->userenv->{'flags'} != 1 |
| 561 |
&& C4::Context->userenv->{'branch'} ) { |
| 562 |
$query .= " |
| 563 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
| 564 |
} |
| 565 |
|
| 566 |
$query .= qq| |
| 567 |
FROM serial |
530 |
FROM serial |
| 568 |
LEFT JOIN subscription ON |
531 |
LEFT JOIN subscription ON |
| 569 |
(serial.subscriptionid=subscription.subscriptionid) |
532 |
(serial.subscriptionid=subscription.subscriptionid) |
|
Lines 576-582
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
| 576 |
|; |
539 |
|; |
| 577 |
my $sth = $dbh->prepare($query); |
540 |
my $sth = $dbh->prepare($query); |
| 578 |
$sth->execute($biblionumber); |
541 |
$sth->execute($biblionumber); |
| 579 |
return $sth->fetchall_arrayref( {} ); |
542 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
543 |
for my $subscription ( @$subscriptions ) { |
| 544 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 545 |
} |
| 546 |
return $subscriptions; |
| 580 |
} |
547 |
} |
| 581 |
|
548 |
|
| 582 |
=head2 GetSubscriptions |
549 |
=head2 GetSubscriptions |
|
Lines 651-669
sub GetSubscriptions {
Link Here
|
| 651 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
618 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
| 652 |
$sth = $dbh->prepare($sql); |
619 |
$sth = $dbh->prepare($sql); |
| 653 |
$sth->execute(@bind_params); |
620 |
$sth->execute(@bind_params); |
| 654 |
my @results; |
621 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
| 655 |
|
622 |
for my $subscription ( @$subscriptions ) { |
| 656 |
while ( my $line = $sth->fetchrow_hashref ) { |
623 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 657 |
$line->{'cannotedit'} = |
624 |
} |
| 658 |
( C4::Context->preference('IndependentBranches') |
625 |
return @$subscriptions; |
| 659 |
&& C4::Context->userenv |
|
|
| 660 |
&& C4::Context->userenv->{flags} % 2 != 1 |
| 661 |
&& C4::Context->userenv->{branch} |
| 662 |
&& $line->{branchcode} |
| 663 |
&& ( C4::Context->userenv->{branch} ne $line->{branchcode} ) ); |
| 664 |
push @results, $line; |
| 665 |
} |
| 666 |
return @results; |
| 667 |
} |
626 |
} |
| 668 |
|
627 |
|
| 669 |
=head2 SearchSubscriptions |
628 |
=head2 SearchSubscriptions |
|
Lines 748-753
sub SearchSubscriptions {
Link Here
|
| 748 |
my $results = $sth->fetchall_arrayref( {} ); |
707 |
my $results = $sth->fetchall_arrayref( {} ); |
| 749 |
$sth->finish; |
708 |
$sth->finish; |
| 750 |
|
709 |
|
|
|
710 |
for my $subscription ( @$results ) { |
| 711 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 712 |
$subscription->{cannotdisplay} = |
| 713 |
( C4::Context->preference("IndependentBranches") |
| 714 |
and $subscription->{branchcode} ne C4::Context->userenv->{'branch'} ) ? 1 : 0; |
| 715 |
} |
| 716 |
|
| 751 |
return @$results; |
717 |
return @$results; |
| 752 |
} |
718 |
} |
| 753 |
|
719 |
|
|
Lines 2828-2833
sub subscriptionCurrentlyOnOrder {
Link Here
|
| 2828 |
return $sth->fetchrow_array; |
2794 |
return $sth->fetchrow_array; |
| 2829 |
} |
2795 |
} |
| 2830 |
|
2796 |
|
|
|
2797 |
sub can_edit_subscription { |
| 2798 |
my ( $subscription, $userid ) = @_; |
| 2799 |
my $flags = C4::Context->userenv->{flags}; |
| 2800 |
$userid ||= C4::Context->userenv->{'id'}; |
| 2801 |
my $independent_branches = C4::Context->preference('IndependentBranches'); |
| 2802 |
return 1 unless $independent_branches; |
| 2803 |
if( $flags % 2 == 1 # superlibrarian |
| 2804 |
or C4::Auth::haspermission( $userid, {serials => 'superserials'}), |
| 2805 |
or C4::Auth::haspermission( $userid, {serials => 'edit_subscription'}), |
| 2806 |
or not defined $subscription->{branchcode} |
| 2807 |
or $subscription->{branchcode} eq '' |
| 2808 |
or $subscription->{branchcode} eq C4::Context->userenv->{'branch'} |
| 2809 |
) { |
| 2810 |
return 1; |
| 2811 |
} |
| 2812 |
return 0; |
| 2813 |
} |
| 2814 |
|
| 2831 |
1; |
2815 |
1; |
| 2832 |
__END__ |
2816 |
__END__ |
| 2833 |
|
2817 |
|