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 206-220
sub GetSerialInformation {
Link Here
|
206 |
my ($serialid) = @_; |
207 |
my ($serialid) = @_; |
207 |
my $dbh = C4::Context->dbh; |
208 |
my $dbh = C4::Context->dbh; |
208 |
my $query = qq| |
209 |
my $query = qq| |
209 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |; |
210 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |
210 |
if ( C4::Context->preference('IndependantBranches') |
|
|
211 |
&& C4::Context->userenv |
212 |
&& C4::Context->userenv->{'flags'} != 1 |
213 |
&& C4::Context->userenv->{'branch'} ) { |
214 |
$query .= " |
215 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
216 |
} |
217 |
$query .= qq| |
218 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
211 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
219 |
WHERE serialid = ? |
212 |
WHERE serialid = ? |
220 |
|; |
213 |
|; |
Lines 253-258
sub GetSerialInformation {
Link Here
|
253 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
246 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
254 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
247 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
255 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
248 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
|
|
249 |
$data->{cannotedit} = not can_edit_subscription( $data ); |
256 |
return $data; |
250 |
return $data; |
257 |
} |
251 |
} |
258 |
|
252 |
|
Lines 311-325
sub GetSubscription {
Link Here
|
311 |
subscriptionhistory.*, |
305 |
subscriptionhistory.*, |
312 |
aqbooksellers.name AS aqbooksellername, |
306 |
aqbooksellers.name AS aqbooksellername, |
313 |
biblio.title AS bibliotitle, |
307 |
biblio.title AS bibliotitle, |
314 |
subscription.biblionumber as bibnum); |
308 |
subscription.biblionumber as bibnum |
315 |
if ( C4::Context->preference('IndependantBranches') |
|
|
316 |
&& C4::Context->userenv |
317 |
&& C4::Context->userenv->{'flags'} != 1 |
318 |
&& C4::Context->userenv->{'branch'} ) { |
319 |
$query .= " |
320 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
321 |
} |
322 |
$query .= qq( |
323 |
FROM subscription |
309 |
FROM subscription |
324 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
310 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
325 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
311 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
Lines 327-342
sub GetSubscription {
Link Here
|
327 |
WHERE subscription.subscriptionid = ? |
313 |
WHERE subscription.subscriptionid = ? |
328 |
); |
314 |
); |
329 |
|
315 |
|
330 |
# if (C4::Context->preference('IndependantBranches') && |
|
|
331 |
# C4::Context->userenv && |
332 |
# C4::Context->userenv->{'flags'} != 1){ |
333 |
# # $debug and warn "flags: ".C4::Context->userenv->{'flags'}; |
334 |
# $query.=" AND subscription.branchcode IN ('".C4::Context->userenv->{'branch'}."',\"\")"; |
335 |
# } |
336 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
316 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
337 |
my $sth = $dbh->prepare($query); |
317 |
my $sth = $dbh->prepare($query); |
338 |
$sth->execute($subscriptionid); |
318 |
$sth->execute($subscriptionid); |
339 |
return $sth->fetchrow_hashref; |
319 |
my $subscription = $sth->fetchrow_hashref; |
|
|
320 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
321 |
return $subscription; |
340 |
} |
322 |
} |
341 |
|
323 |
|
342 |
=head2 GetFullSubscription |
324 |
=head2 GetFullSubscription |
Lines 360-374
sub GetFullSubscription {
Link Here
|
360 |
aqbooksellers.name as aqbooksellername, |
342 |
aqbooksellers.name as aqbooksellername, |
361 |
biblio.title as bibliotitle, |
343 |
biblio.title as bibliotitle, |
362 |
subscription.branchcode AS branchcode, |
344 |
subscription.branchcode AS branchcode, |
363 |
subscription.subscriptionid AS subscriptionid |; |
345 |
subscription.subscriptionid AS subscriptionid |
364 |
if ( C4::Context->preference('IndependantBranches') |
|
|
365 |
&& C4::Context->userenv |
366 |
&& C4::Context->userenv->{'flags'} != 1 |
367 |
&& C4::Context->userenv->{'branch'} ) { |
368 |
$query .= " |
369 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
370 |
} |
371 |
$query .= qq| |
372 |
FROM serial |
346 |
FROM serial |
373 |
LEFT JOIN subscription ON |
347 |
LEFT JOIN subscription ON |
374 |
(serial.subscriptionid=subscription.subscriptionid ) |
348 |
(serial.subscriptionid=subscription.subscriptionid ) |
Lines 382-388
sub GetFullSubscription {
Link Here
|
382 |
$debug and warn "GetFullSubscription query: $query"; |
356 |
$debug and warn "GetFullSubscription query: $query"; |
383 |
my $sth = $dbh->prepare($query); |
357 |
my $sth = $dbh->prepare($query); |
384 |
$sth->execute($subscriptionid); |
358 |
$sth->execute($subscriptionid); |
385 |
return $sth->fetchall_arrayref( {} ); |
359 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
360 |
for my $subscription ( @$subscriptions ) { |
361 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
362 |
} |
363 |
return $subscriptions; |
386 |
} |
364 |
} |
387 |
|
365 |
|
388 |
=head2 PrepareSerialsData |
366 |
=head2 PrepareSerialsData |
Lines 480-492
sub GetSubscriptionsFromBiblionumber {
Link Here
|
480 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
458 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
481 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
459 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
482 |
$subs->{ "status" . $subs->{'status'} } = 1; |
460 |
$subs->{ "status" . $subs->{'status'} } = 1; |
483 |
$subs->{'cannotedit'} = |
|
|
484 |
( C4::Context->preference('IndependantBranches') |
485 |
&& C4::Context->userenv |
486 |
&& C4::Context->userenv->{flags} % 2 != 1 |
487 |
&& C4::Context->userenv->{branch} |
488 |
&& $subs->{branchcode} |
489 |
&& ( C4::Context->userenv->{branch} ne $subs->{branchcode} ) ); |
490 |
|
461 |
|
491 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
462 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
492 |
$subs->{enddate} = ''; |
463 |
$subs->{enddate} = ''; |
Lines 495-500
sub GetSubscriptionsFromBiblionumber {
Link Here
|
495 |
} |
466 |
} |
496 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
467 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
497 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
468 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
|
|
469 |
$subs->{cannotedit} = not can_edit_subscription( $subs ); |
498 |
push @res, $subs; |
470 |
push @res, $subs; |
499 |
} |
471 |
} |
500 |
return \@res; |
472 |
return \@res; |
Lines 520-535
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
520 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
492 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
521 |
biblio.title as bibliotitle, |
493 |
biblio.title as bibliotitle, |
522 |
subscription.branchcode AS branchcode, |
494 |
subscription.branchcode AS branchcode, |
523 |
subscription.subscriptionid AS subscriptionid|; |
495 |
subscription.subscriptionid AS subscriptionid |
524 |
if ( C4::Context->preference('IndependantBranches') |
|
|
525 |
&& C4::Context->userenv |
526 |
&& C4::Context->userenv->{'flags'} != 1 |
527 |
&& C4::Context->userenv->{'branch'} ) { |
528 |
$query .= " |
529 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
530 |
} |
531 |
|
532 |
$query .= qq| |
533 |
FROM serial |
496 |
FROM serial |
534 |
LEFT JOIN subscription ON |
497 |
LEFT JOIN subscription ON |
535 |
(serial.subscriptionid=subscription.subscriptionid) |
498 |
(serial.subscriptionid=subscription.subscriptionid) |
Lines 542-548
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
542 |
|; |
505 |
|; |
543 |
my $sth = $dbh->prepare($query); |
506 |
my $sth = $dbh->prepare($query); |
544 |
$sth->execute($biblionumber); |
507 |
$sth->execute($biblionumber); |
545 |
return $sth->fetchall_arrayref( {} ); |
508 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
509 |
for my $subscription ( @$subscriptions ) { |
510 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
511 |
} |
512 |
return $subscriptions; |
546 |
} |
513 |
} |
547 |
|
514 |
|
548 |
=head2 GetSubscriptions |
515 |
=head2 GetSubscriptions |
Lines 617-635
sub GetSubscriptions {
Link Here
|
617 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
584 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
618 |
$sth = $dbh->prepare($sql); |
585 |
$sth = $dbh->prepare($sql); |
619 |
$sth->execute(@bind_params); |
586 |
$sth->execute(@bind_params); |
620 |
my @results; |
587 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
621 |
|
588 |
for my $subscription ( @$subscriptions ) { |
622 |
while ( my $line = $sth->fetchrow_hashref ) { |
589 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
623 |
$line->{'cannotedit'} = |
590 |
} |
624 |
( C4::Context->preference('IndependantBranches') |
591 |
return @$subscriptions; |
625 |
&& C4::Context->userenv |
|
|
626 |
&& C4::Context->userenv->{flags} % 2 != 1 |
627 |
&& C4::Context->userenv->{branch} |
628 |
&& $line->{branchcode} |
629 |
&& ( C4::Context->userenv->{branch} ne $line->{branchcode} ) ); |
630 |
push @results, $line; |
631 |
} |
632 |
return @results; |
633 |
} |
592 |
} |
634 |
|
593 |
|
635 |
=head2 SearchSubscriptions |
594 |
=head2 SearchSubscriptions |
Lines 696-701
sub SearchSubscriptions {
Link Here
|
696 |
my $results = $sth->fetchall_arrayref( {} ); |
655 |
my $results = $sth->fetchall_arrayref( {} ); |
697 |
$sth->finish; |
656 |
$sth->finish; |
698 |
|
657 |
|
|
|
658 |
for my $subscription ( @$results ) { |
659 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
660 |
} |
661 |
|
699 |
return @$results; |
662 |
return @$results; |
700 |
} |
663 |
} |
701 |
|
664 |
|
Lines 2465-2470
sub is_barcode_in_use {
Link Here
|
2465 |
return @{$occurences}; |
2428 |
return @{$occurences}; |
2466 |
} |
2429 |
} |
2467 |
|
2430 |
|
|
|
2431 |
sub can_edit_subscription { |
2432 |
my ( $subscription, $userid ) = @_; |
2433 |
my $flags = C4::Context->userenv->{flags}; |
2434 |
$userid ||= C4::Context->userenv->{'id'}; |
2435 |
my $independant_branches = C4::Context->preference('IndependantBranches'); |
2436 |
return 1 unless $independant_branches; |
2437 |
if( $flags % 2 == 1 |
2438 |
or C4::Auth::haspermission( $userid, {serials => 'superserials'}), |
2439 |
or not defined $subscription->{branchcode} |
2440 |
or $subscription->{branchcode} eq '' |
2441 |
or $subscription->{branchcode} eq C4::Context->userenv->{'branch'} |
2442 |
) { |
2443 |
return 1; |
2444 |
} |
2445 |
return 0; |
2446 |
} |
2447 |
|
2468 |
1; |
2448 |
1; |
2469 |
__END__ |
2449 |
__END__ |
2470 |
|
2450 |
|