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 204-218
sub GetSerialInformation {
Link Here
|
204 |
my ($serialid) = @_; |
205 |
my ($serialid) = @_; |
205 |
my $dbh = C4::Context->dbh; |
206 |
my $dbh = C4::Context->dbh; |
206 |
my $query = qq| |
207 |
my $query = qq| |
207 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |; |
208 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |
208 |
if ( C4::Context->preference('IndependantBranches') |
|
|
209 |
&& C4::Context->userenv |
210 |
&& C4::Context->userenv->{'flags'} != 1 |
211 |
&& C4::Context->userenv->{'branch'} ) { |
212 |
$query .= " |
213 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
214 |
} |
215 |
$query .= qq| |
216 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
209 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
217 |
WHERE serialid = ? |
210 |
WHERE serialid = ? |
218 |
|; |
211 |
|; |
Lines 251-256
sub GetSerialInformation {
Link Here
|
251 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
244 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
252 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
245 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
253 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
246 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
|
|
247 |
$data->{cannotedit} = not can_edit_subscription( $data ); |
254 |
return $data; |
248 |
return $data; |
255 |
} |
249 |
} |
256 |
|
250 |
|
Lines 309-323
sub GetSubscription {
Link Here
|
309 |
subscriptionhistory.*, |
303 |
subscriptionhistory.*, |
310 |
aqbooksellers.name AS aqbooksellername, |
304 |
aqbooksellers.name AS aqbooksellername, |
311 |
biblio.title AS bibliotitle, |
305 |
biblio.title AS bibliotitle, |
312 |
subscription.biblionumber as bibnum); |
306 |
subscription.biblionumber as bibnum |
313 |
if ( C4::Context->preference('IndependantBranches') |
|
|
314 |
&& C4::Context->userenv |
315 |
&& C4::Context->userenv->{'flags'} != 1 |
316 |
&& C4::Context->userenv->{'branch'} ) { |
317 |
$query .= " |
318 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
319 |
} |
320 |
$query .= qq( |
321 |
FROM subscription |
307 |
FROM subscription |
322 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
308 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
323 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
309 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
Lines 325-340
sub GetSubscription {
Link Here
|
325 |
WHERE subscription.subscriptionid = ? |
311 |
WHERE subscription.subscriptionid = ? |
326 |
); |
312 |
); |
327 |
|
313 |
|
328 |
# if (C4::Context->preference('IndependantBranches') && |
|
|
329 |
# C4::Context->userenv && |
330 |
# C4::Context->userenv->{'flags'} != 1){ |
331 |
# # $debug and warn "flags: ".C4::Context->userenv->{'flags'}; |
332 |
# $query.=" AND subscription.branchcode IN ('".C4::Context->userenv->{'branch'}."',\"\")"; |
333 |
# } |
334 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
314 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
335 |
my $sth = $dbh->prepare($query); |
315 |
my $sth = $dbh->prepare($query); |
336 |
$sth->execute($subscriptionid); |
316 |
$sth->execute($subscriptionid); |
337 |
return $sth->fetchrow_hashref; |
317 |
my $subscription = $sth->fetchrow_hashref; |
|
|
318 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
319 |
return $subscription; |
338 |
} |
320 |
} |
339 |
|
321 |
|
340 |
=head2 GetFullSubscription |
322 |
=head2 GetFullSubscription |
Lines 358-372
sub GetFullSubscription {
Link Here
|
358 |
aqbooksellers.name as aqbooksellername, |
340 |
aqbooksellers.name as aqbooksellername, |
359 |
biblio.title as bibliotitle, |
341 |
biblio.title as bibliotitle, |
360 |
subscription.branchcode AS branchcode, |
342 |
subscription.branchcode AS branchcode, |
361 |
subscription.subscriptionid AS subscriptionid |; |
343 |
subscription.subscriptionid AS subscriptionid |
362 |
if ( C4::Context->preference('IndependantBranches') |
|
|
363 |
&& C4::Context->userenv |
364 |
&& C4::Context->userenv->{'flags'} != 1 |
365 |
&& C4::Context->userenv->{'branch'} ) { |
366 |
$query .= " |
367 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
368 |
} |
369 |
$query .= qq| |
370 |
FROM serial |
344 |
FROM serial |
371 |
LEFT JOIN subscription ON |
345 |
LEFT JOIN subscription ON |
372 |
(serial.subscriptionid=subscription.subscriptionid ) |
346 |
(serial.subscriptionid=subscription.subscriptionid ) |
Lines 380-386
sub GetFullSubscription {
Link Here
|
380 |
$debug and warn "GetFullSubscription query: $query"; |
354 |
$debug and warn "GetFullSubscription query: $query"; |
381 |
my $sth = $dbh->prepare($query); |
355 |
my $sth = $dbh->prepare($query); |
382 |
$sth->execute($subscriptionid); |
356 |
$sth->execute($subscriptionid); |
383 |
return $sth->fetchall_arrayref( {} ); |
357 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
358 |
for my $subscription ( @$subscriptions ) { |
359 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
360 |
} |
361 |
return $subscriptions; |
384 |
} |
362 |
} |
385 |
|
363 |
|
386 |
=head2 PrepareSerialsData |
364 |
=head2 PrepareSerialsData |
Lines 478-490
sub GetSubscriptionsFromBiblionumber {
Link Here
|
478 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
456 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
479 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
457 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
480 |
$subs->{ "status" . $subs->{'status'} } = 1; |
458 |
$subs->{ "status" . $subs->{'status'} } = 1; |
481 |
$subs->{'cannotedit'} = |
|
|
482 |
( C4::Context->preference('IndependantBranches') |
483 |
&& C4::Context->userenv |
484 |
&& C4::Context->userenv->{flags} % 2 != 1 |
485 |
&& C4::Context->userenv->{branch} |
486 |
&& $subs->{branchcode} |
487 |
&& ( C4::Context->userenv->{branch} ne $subs->{branchcode} ) ); |
488 |
|
459 |
|
489 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
460 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
490 |
$subs->{enddate} = ''; |
461 |
$subs->{enddate} = ''; |
Lines 493-498
sub GetSubscriptionsFromBiblionumber {
Link Here
|
493 |
} |
464 |
} |
494 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
465 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
495 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
466 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
|
|
467 |
$subs->{cannotedit} = not can_edit_subscription( $subs ); |
496 |
push @res, $subs; |
468 |
push @res, $subs; |
497 |
} |
469 |
} |
498 |
return \@res; |
470 |
return \@res; |
Lines 518-533
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
518 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
490 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
519 |
biblio.title as bibliotitle, |
491 |
biblio.title as bibliotitle, |
520 |
subscription.branchcode AS branchcode, |
492 |
subscription.branchcode AS branchcode, |
521 |
subscription.subscriptionid AS subscriptionid|; |
493 |
subscription.subscriptionid AS subscriptionid |
522 |
if ( C4::Context->preference('IndependantBranches') |
|
|
523 |
&& C4::Context->userenv |
524 |
&& C4::Context->userenv->{'flags'} != 1 |
525 |
&& C4::Context->userenv->{'branch'} ) { |
526 |
$query .= " |
527 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
528 |
} |
529 |
|
530 |
$query .= qq| |
531 |
FROM serial |
494 |
FROM serial |
532 |
LEFT JOIN subscription ON |
495 |
LEFT JOIN subscription ON |
533 |
(serial.subscriptionid=subscription.subscriptionid) |
496 |
(serial.subscriptionid=subscription.subscriptionid) |
Lines 540-546
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
540 |
|; |
503 |
|; |
541 |
my $sth = $dbh->prepare($query); |
504 |
my $sth = $dbh->prepare($query); |
542 |
$sth->execute($biblionumber); |
505 |
$sth->execute($biblionumber); |
543 |
return $sth->fetchall_arrayref( {} ); |
506 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
507 |
for my $subscription ( @$subscriptions ) { |
508 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
509 |
} |
510 |
return $subscriptions; |
544 |
} |
511 |
} |
545 |
|
512 |
|
546 |
=head2 GetSubscriptions |
513 |
=head2 GetSubscriptions |
Lines 615-633
sub GetSubscriptions {
Link Here
|
615 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
582 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
616 |
$sth = $dbh->prepare($sql); |
583 |
$sth = $dbh->prepare($sql); |
617 |
$sth->execute(@bind_params); |
584 |
$sth->execute(@bind_params); |
618 |
my @results; |
585 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
619 |
|
586 |
for my $subscription ( @$subscriptions ) { |
620 |
while ( my $line = $sth->fetchrow_hashref ) { |
587 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
621 |
$line->{'cannotedit'} = |
|
|
622 |
( C4::Context->preference('IndependantBranches') |
623 |
&& C4::Context->userenv |
624 |
&& C4::Context->userenv->{flags} % 2 != 1 |
625 |
&& C4::Context->userenv->{branch} |
626 |
&& $line->{branchcode} |
627 |
&& ( C4::Context->userenv->{branch} ne $line->{branchcode} ) ); |
628 |
push @results, $line; |
629 |
} |
588 |
} |
630 |
return @results; |
589 |
return @$subscriptions; |
631 |
} |
590 |
} |
632 |
|
591 |
|
633 |
=head2 GetSerials |
592 |
=head2 GetSerials |
Lines 2361-2366
sub is_barcode_in_use {
Link Here
|
2361 |
return @{$occurences}; |
2320 |
return @{$occurences}; |
2362 |
} |
2321 |
} |
2363 |
|
2322 |
|
|
|
2323 |
sub can_edit_subscription { |
2324 |
my ( $subscription, $userid ) = @_; |
2325 |
my $flags = C4::Context->userenv->{flags}; |
2326 |
$userid ||= C4::Context->userenv->{'id'}; |
2327 |
if( C4::Context->preference('IndependantBranches') |
2328 |
and ( |
2329 |
$flags % 2 == 1 |
2330 |
or C4::Auth::haspermission( $userid, {serials => 'superserials'}), |
2331 |
or not defined $subscription->{branchcode} |
2332 |
or $subscription->{branchcode} eq '' |
2333 |
or $subscription->{branchcode} eq C4::Context->userenv->{'branch'} |
2334 |
) |
2335 |
) { |
2336 |
return 1; |
2337 |
} |
2338 |
return 0; |
2339 |
} |
2340 |
|
2364 |
1; |
2341 |
1; |
2365 |
__END__ |
2342 |
__END__ |
2366 |
|
2343 |
|