Lines 20-25
package C4::Serials;
Link Here
|
20 |
|
20 |
|
21 |
use strict; |
21 |
use strict; |
22 |
use warnings; |
22 |
use warnings; |
|
|
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); |
26 |
use POSIX qw(strftime); |
Lines 215-229
sub GetSerialInformation {
Link Here
|
215 |
my ($serialid) = @_; |
216 |
my ($serialid) = @_; |
216 |
my $dbh = C4::Context->dbh; |
217 |
my $dbh = C4::Context->dbh; |
217 |
my $query = qq| |
218 |
my $query = qq| |
218 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |; |
219 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |
219 |
if ( C4::Context->preference('IndependentBranches') |
|
|
220 |
&& C4::Context->userenv |
221 |
&& C4::Context->userenv->{'flags'} != 1 |
222 |
&& C4::Context->userenv->{'branch'} ) { |
223 |
$query .= " |
224 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
225 |
} |
226 |
$query .= qq| |
227 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
220 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
228 |
WHERE serialid = ? |
221 |
WHERE serialid = ? |
229 |
|; |
222 |
|; |
Lines 262-267
sub GetSerialInformation {
Link Here
|
262 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
255 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
263 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
256 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
264 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
257 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
|
|
258 |
$data->{cannotedit} = not can_edit_subscription( $data ); |
265 |
return $data; |
259 |
return $data; |
266 |
} |
260 |
} |
267 |
|
261 |
|
Lines 320-334
sub GetSubscription {
Link Here
|
320 |
subscriptionhistory.*, |
314 |
subscriptionhistory.*, |
321 |
aqbooksellers.name AS aqbooksellername, |
315 |
aqbooksellers.name AS aqbooksellername, |
322 |
biblio.title AS bibliotitle, |
316 |
biblio.title AS bibliotitle, |
323 |
subscription.biblionumber as bibnum); |
317 |
subscription.biblionumber as bibnum |
324 |
if ( C4::Context->preference('IndependentBranches') |
|
|
325 |
&& C4::Context->userenv |
326 |
&& C4::Context->userenv->{'flags'} != 1 |
327 |
&& C4::Context->userenv->{'branch'} ) { |
328 |
$query .= " |
329 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
330 |
} |
331 |
$query .= qq( |
332 |
FROM subscription |
318 |
FROM subscription |
333 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
319 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
334 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
320 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
Lines 336-351
sub GetSubscription {
Link Here
|
336 |
WHERE subscription.subscriptionid = ? |
322 |
WHERE subscription.subscriptionid = ? |
337 |
); |
323 |
); |
338 |
|
324 |
|
339 |
# if (C4::Context->preference('IndependentBranches') && |
|
|
340 |
# C4::Context->userenv && |
341 |
# C4::Context->userenv->{'flags'} != 1){ |
342 |
# # $debug and warn "flags: ".C4::Context->userenv->{'flags'}; |
343 |
# $query.=" AND subscription.branchcode IN ('".C4::Context->userenv->{'branch'}."',\"\")"; |
344 |
# } |
345 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
325 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
346 |
my $sth = $dbh->prepare($query); |
326 |
my $sth = $dbh->prepare($query); |
347 |
$sth->execute($subscriptionid); |
327 |
$sth->execute($subscriptionid); |
348 |
return $sth->fetchrow_hashref; |
328 |
my $subscription = $sth->fetchrow_hashref; |
|
|
329 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
330 |
return $subscription; |
349 |
} |
331 |
} |
350 |
|
332 |
|
351 |
=head2 GetFullSubscription |
333 |
=head2 GetFullSubscription |
Lines 369-383
sub GetFullSubscription {
Link Here
|
369 |
aqbooksellers.name as aqbooksellername, |
351 |
aqbooksellers.name as aqbooksellername, |
370 |
biblio.title as bibliotitle, |
352 |
biblio.title as bibliotitle, |
371 |
subscription.branchcode AS branchcode, |
353 |
subscription.branchcode AS branchcode, |
372 |
subscription.subscriptionid AS subscriptionid |; |
354 |
subscription.subscriptionid AS subscriptionid |
373 |
if ( C4::Context->preference('IndependentBranches') |
|
|
374 |
&& C4::Context->userenv |
375 |
&& C4::Context->userenv->{'flags'} != 1 |
376 |
&& C4::Context->userenv->{'branch'} ) { |
377 |
$query .= " |
378 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
379 |
} |
380 |
$query .= qq| |
381 |
FROM serial |
355 |
FROM serial |
382 |
LEFT JOIN subscription ON |
356 |
LEFT JOIN subscription ON |
383 |
(serial.subscriptionid=subscription.subscriptionid ) |
357 |
(serial.subscriptionid=subscription.subscriptionid ) |
Lines 391-397
sub GetFullSubscription {
Link Here
|
391 |
$debug and warn "GetFullSubscription query: $query"; |
365 |
$debug and warn "GetFullSubscription query: $query"; |
392 |
my $sth = $dbh->prepare($query); |
366 |
my $sth = $dbh->prepare($query); |
393 |
$sth->execute($subscriptionid); |
367 |
$sth->execute($subscriptionid); |
394 |
return $sth->fetchall_arrayref( {} ); |
368 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
369 |
for my $subscription ( @$subscriptions ) { |
370 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
371 |
} |
372 |
return $subscriptions; |
395 |
} |
373 |
} |
396 |
|
374 |
|
397 |
=head2 PrepareSerialsData |
375 |
=head2 PrepareSerialsData |
Lines 486-498
sub GetSubscriptionsFromBiblionumber {
Link Here
|
486 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
464 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
487 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
465 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
488 |
$subs->{ "status" . $subs->{'status'} } = 1; |
466 |
$subs->{ "status" . $subs->{'status'} } = 1; |
489 |
$subs->{'cannotedit'} = |
|
|
490 |
( C4::Context->preference('IndependentBranches') |
491 |
&& C4::Context->userenv |
492 |
&& C4::Context->userenv->{flags} % 2 != 1 |
493 |
&& C4::Context->userenv->{branch} |
494 |
&& $subs->{branchcode} |
495 |
&& ( C4::Context->userenv->{branch} ne $subs->{branchcode} ) ); |
496 |
|
467 |
|
497 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
468 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
498 |
$subs->{enddate} = ''; |
469 |
$subs->{enddate} = ''; |
Lines 501-506
sub GetSubscriptionsFromBiblionumber {
Link Here
|
501 |
} |
472 |
} |
502 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
473 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
503 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
474 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
|
|
475 |
$subs->{cannotedit} = not can_edit_subscription( $subs ); |
504 |
push @res, $subs; |
476 |
push @res, $subs; |
505 |
} |
477 |
} |
506 |
return \@res; |
478 |
return \@res; |
Lines 526-541
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
526 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
498 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
527 |
biblio.title as bibliotitle, |
499 |
biblio.title as bibliotitle, |
528 |
subscription.branchcode AS branchcode, |
500 |
subscription.branchcode AS branchcode, |
529 |
subscription.subscriptionid AS subscriptionid|; |
501 |
subscription.subscriptionid AS subscriptionid |
530 |
if ( C4::Context->preference('IndependentBranches') |
|
|
531 |
&& C4::Context->userenv |
532 |
&& C4::Context->userenv->{'flags'} != 1 |
533 |
&& C4::Context->userenv->{'branch'} ) { |
534 |
$query .= " |
535 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
536 |
} |
537 |
|
538 |
$query .= qq| |
539 |
FROM serial |
502 |
FROM serial |
540 |
LEFT JOIN subscription ON |
503 |
LEFT JOIN subscription ON |
541 |
(serial.subscriptionid=subscription.subscriptionid) |
504 |
(serial.subscriptionid=subscription.subscriptionid) |
Lines 548-554
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
548 |
|; |
511 |
|; |
549 |
my $sth = $dbh->prepare($query); |
512 |
my $sth = $dbh->prepare($query); |
550 |
$sth->execute($biblionumber); |
513 |
$sth->execute($biblionumber); |
551 |
return $sth->fetchall_arrayref( {} ); |
514 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
515 |
for my $subscription ( @$subscriptions ) { |
516 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
517 |
} |
518 |
return $subscriptions; |
552 |
} |
519 |
} |
553 |
|
520 |
|
554 |
=head2 GetSubscriptions |
521 |
=head2 GetSubscriptions |
Lines 623-641
sub GetSubscriptions {
Link Here
|
623 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
590 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
624 |
$sth = $dbh->prepare($sql); |
591 |
$sth = $dbh->prepare($sql); |
625 |
$sth->execute(@bind_params); |
592 |
$sth->execute(@bind_params); |
626 |
my @results; |
593 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
627 |
|
594 |
for my $subscription ( @$subscriptions ) { |
628 |
while ( my $line = $sth->fetchrow_hashref ) { |
595 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
629 |
$line->{'cannotedit'} = |
596 |
} |
630 |
( C4::Context->preference('IndependentBranches') |
597 |
return @$subscriptions; |
631 |
&& C4::Context->userenv |
|
|
632 |
&& C4::Context->userenv->{flags} % 2 != 1 |
633 |
&& C4::Context->userenv->{branch} |
634 |
&& $line->{branchcode} |
635 |
&& ( C4::Context->userenv->{branch} ne $line->{branchcode} ) ); |
636 |
push @results, $line; |
637 |
} |
638 |
return @results; |
639 |
} |
598 |
} |
640 |
|
599 |
|
641 |
=head2 SearchSubscriptions |
600 |
=head2 SearchSubscriptions |
Lines 713-718
sub SearchSubscriptions {
Link Here
|
713 |
my $results = $sth->fetchall_arrayref( {} ); |
672 |
my $results = $sth->fetchall_arrayref( {} ); |
714 |
$sth->finish; |
673 |
$sth->finish; |
715 |
|
674 |
|
|
|
675 |
for my $subscription ( @$results ) { |
676 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
677 |
$subscription->{cannotdisplay} = |
678 |
( C4::Context->preference("IndependentBranches") |
679 |
and $subscription->{branchcode} ne C4::Context->userenv->{'branch'} ) ? 1 : 0; |
680 |
} |
681 |
|
716 |
return @$results; |
682 |
return @$results; |
717 |
} |
683 |
} |
718 |
|
684 |
|
Lines 2553-2558
sub subscriptionCurrentlyOnOrder {
Link Here
|
2553 |
return $sth->fetchrow_array; |
2519 |
return $sth->fetchrow_array; |
2554 |
} |
2520 |
} |
2555 |
|
2521 |
|
|
|
2522 |
sub can_edit_subscription { |
2523 |
my ( $subscription, $userid ) = @_; |
2524 |
my $flags = C4::Context->userenv->{flags}; |
2525 |
$userid ||= C4::Context->userenv->{'id'}; |
2526 |
my $independent_branches = C4::Context->preference('IndependentBranches'); |
2527 |
return 1 unless $independent_branches; |
2528 |
if( $flags % 2 == 1 # superlibrarian |
2529 |
or C4::Auth::haspermission( $userid, {serials => 'superserials'}), |
2530 |
or C4::Auth::haspermission( $userid, {serials => 'edit_subscription'}), |
2531 |
or not defined $subscription->{branchcode} |
2532 |
or $subscription->{branchcode} eq '' |
2533 |
or $subscription->{branchcode} eq C4::Context->userenv->{'branch'} |
2534 |
) { |
2535 |
return 1; |
2536 |
} |
2537 |
return 0; |
2538 |
} |
2539 |
|
2556 |
1; |
2540 |
1; |
2557 |
__END__ |
2541 |
__END__ |
2558 |
|
2542 |
|