|
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 214-228
sub GetSerialInformation {
Link Here
|
| 214 |
my ($serialid) = @_; |
215 |
my ($serialid) = @_; |
| 215 |
my $dbh = C4::Context->dbh; |
216 |
my $dbh = C4::Context->dbh; |
| 216 |
my $query = qq| |
217 |
my $query = qq| |
| 217 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |; |
218 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |
| 218 |
if ( C4::Context->preference('IndependantBranches') |
|
|
| 219 |
&& C4::Context->userenv |
| 220 |
&& C4::Context->userenv->{'flags'} != 1 |
| 221 |
&& C4::Context->userenv->{'branch'} ) { |
| 222 |
$query .= " |
| 223 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
| 224 |
} |
| 225 |
$query .= qq| |
| 226 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
219 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
| 227 |
WHERE serialid = ? |
220 |
WHERE serialid = ? |
| 228 |
|; |
221 |
|; |
|
Lines 261-266
sub GetSerialInformation {
Link Here
|
| 261 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
254 |
$data->{ "status" . $data->{'serstatus'} } = 1; |
| 262 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
255 |
$data->{'subscriptionexpired'} = HasSubscriptionExpired( $data->{'subscriptionid'} ) && $data->{'status'} == 1; |
| 263 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
256 |
$data->{'abouttoexpire'} = abouttoexpire( $data->{'subscriptionid'} ); |
|
|
257 |
$data->{cannotedit} = not can_edit_subscription( $data ); |
| 264 |
return $data; |
258 |
return $data; |
| 265 |
} |
259 |
} |
| 266 |
|
260 |
|
|
Lines 319-333
sub GetSubscription {
Link Here
|
| 319 |
subscriptionhistory.*, |
313 |
subscriptionhistory.*, |
| 320 |
aqbooksellers.name AS aqbooksellername, |
314 |
aqbooksellers.name AS aqbooksellername, |
| 321 |
biblio.title AS bibliotitle, |
315 |
biblio.title AS bibliotitle, |
| 322 |
subscription.biblionumber as bibnum); |
316 |
subscription.biblionumber as bibnum |
| 323 |
if ( C4::Context->preference('IndependantBranches') |
|
|
| 324 |
&& C4::Context->userenv |
| 325 |
&& C4::Context->userenv->{'flags'} != 1 |
| 326 |
&& C4::Context->userenv->{'branch'} ) { |
| 327 |
$query .= " |
| 328 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
| 329 |
} |
| 330 |
$query .= qq( |
| 331 |
FROM subscription |
317 |
FROM subscription |
| 332 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
318 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
| 333 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
319 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
|
Lines 335-350
sub GetSubscription {
Link Here
|
| 335 |
WHERE subscription.subscriptionid = ? |
321 |
WHERE subscription.subscriptionid = ? |
| 336 |
); |
322 |
); |
| 337 |
|
323 |
|
| 338 |
# if (C4::Context->preference('IndependantBranches') && |
|
|
| 339 |
# C4::Context->userenv && |
| 340 |
# C4::Context->userenv->{'flags'} != 1){ |
| 341 |
# # $debug and warn "flags: ".C4::Context->userenv->{'flags'}; |
| 342 |
# $query.=" AND subscription.branchcode IN ('".C4::Context->userenv->{'branch'}."',\"\")"; |
| 343 |
# } |
| 344 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
324 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
| 345 |
my $sth = $dbh->prepare($query); |
325 |
my $sth = $dbh->prepare($query); |
| 346 |
$sth->execute($subscriptionid); |
326 |
$sth->execute($subscriptionid); |
| 347 |
return $sth->fetchrow_hashref; |
327 |
my $subscription = $sth->fetchrow_hashref; |
|
|
328 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 329 |
return $subscription; |
| 348 |
} |
330 |
} |
| 349 |
|
331 |
|
| 350 |
=head2 GetFullSubscription |
332 |
=head2 GetFullSubscription |
|
Lines 368-382
sub GetFullSubscription {
Link Here
|
| 368 |
aqbooksellers.name as aqbooksellername, |
350 |
aqbooksellers.name as aqbooksellername, |
| 369 |
biblio.title as bibliotitle, |
351 |
biblio.title as bibliotitle, |
| 370 |
subscription.branchcode AS branchcode, |
352 |
subscription.branchcode AS branchcode, |
| 371 |
subscription.subscriptionid AS subscriptionid |; |
353 |
subscription.subscriptionid AS subscriptionid |
| 372 |
if ( C4::Context->preference('IndependantBranches') |
|
|
| 373 |
&& C4::Context->userenv |
| 374 |
&& C4::Context->userenv->{'flags'} != 1 |
| 375 |
&& C4::Context->userenv->{'branch'} ) { |
| 376 |
$query .= " |
| 377 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
| 378 |
} |
| 379 |
$query .= qq| |
| 380 |
FROM serial |
354 |
FROM serial |
| 381 |
LEFT JOIN subscription ON |
355 |
LEFT JOIN subscription ON |
| 382 |
(serial.subscriptionid=subscription.subscriptionid ) |
356 |
(serial.subscriptionid=subscription.subscriptionid ) |
|
Lines 390-396
sub GetFullSubscription {
Link Here
|
| 390 |
$debug and warn "GetFullSubscription query: $query"; |
364 |
$debug and warn "GetFullSubscription query: $query"; |
| 391 |
my $sth = $dbh->prepare($query); |
365 |
my $sth = $dbh->prepare($query); |
| 392 |
$sth->execute($subscriptionid); |
366 |
$sth->execute($subscriptionid); |
| 393 |
return $sth->fetchall_arrayref( {} ); |
367 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
368 |
for my $subscription ( @$subscriptions ) { |
| 369 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 370 |
} |
| 371 |
return $subscriptions; |
| 394 |
} |
372 |
} |
| 395 |
|
373 |
|
| 396 |
=head2 PrepareSerialsData |
374 |
=head2 PrepareSerialsData |
|
Lines 488-500
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 488 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
466 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
| 489 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
467 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
| 490 |
$subs->{ "status" . $subs->{'status'} } = 1; |
468 |
$subs->{ "status" . $subs->{'status'} } = 1; |
| 491 |
$subs->{'cannotedit'} = |
|
|
| 492 |
( C4::Context->preference('IndependantBranches') |
| 493 |
&& C4::Context->userenv |
| 494 |
&& C4::Context->userenv->{flags} % 2 != 1 |
| 495 |
&& C4::Context->userenv->{branch} |
| 496 |
&& $subs->{branchcode} |
| 497 |
&& ( C4::Context->userenv->{branch} ne $subs->{branchcode} ) ); |
| 498 |
|
469 |
|
| 499 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
470 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
| 500 |
$subs->{enddate} = ''; |
471 |
$subs->{enddate} = ''; |
|
Lines 503-508
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 503 |
} |
474 |
} |
| 504 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
475 |
$subs->{'abouttoexpire'} = abouttoexpire( $subs->{'subscriptionid'} ); |
| 505 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
476 |
$subs->{'subscriptionexpired'} = HasSubscriptionExpired( $subs->{'subscriptionid'} ); |
|
|
477 |
$subs->{cannotedit} = not can_edit_subscription( $subs ); |
| 506 |
push @res, $subs; |
478 |
push @res, $subs; |
| 507 |
} |
479 |
} |
| 508 |
return \@res; |
480 |
return \@res; |
|
Lines 528-543
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
| 528 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
500 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
| 529 |
biblio.title as bibliotitle, |
501 |
biblio.title as bibliotitle, |
| 530 |
subscription.branchcode AS branchcode, |
502 |
subscription.branchcode AS branchcode, |
| 531 |
subscription.subscriptionid AS subscriptionid|; |
503 |
subscription.subscriptionid AS subscriptionid |
| 532 |
if ( C4::Context->preference('IndependantBranches') |
|
|
| 533 |
&& C4::Context->userenv |
| 534 |
&& C4::Context->userenv->{'flags'} != 1 |
| 535 |
&& C4::Context->userenv->{'branch'} ) { |
| 536 |
$query .= " |
| 537 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
| 538 |
} |
| 539 |
|
| 540 |
$query .= qq| |
| 541 |
FROM serial |
504 |
FROM serial |
| 542 |
LEFT JOIN subscription ON |
505 |
LEFT JOIN subscription ON |
| 543 |
(serial.subscriptionid=subscription.subscriptionid) |
506 |
(serial.subscriptionid=subscription.subscriptionid) |
|
Lines 550-556
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
| 550 |
|; |
513 |
|; |
| 551 |
my $sth = $dbh->prepare($query); |
514 |
my $sth = $dbh->prepare($query); |
| 552 |
$sth->execute($biblionumber); |
515 |
$sth->execute($biblionumber); |
| 553 |
return $sth->fetchall_arrayref( {} ); |
516 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
|
|
517 |
for my $subscription ( @$subscriptions ) { |
| 518 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 519 |
} |
| 520 |
return $subscriptions; |
| 554 |
} |
521 |
} |
| 555 |
|
522 |
|
| 556 |
=head2 GetSubscriptions |
523 |
=head2 GetSubscriptions |
|
Lines 625-643
sub GetSubscriptions {
Link Here
|
| 625 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
592 |
$debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params ); |
| 626 |
$sth = $dbh->prepare($sql); |
593 |
$sth = $dbh->prepare($sql); |
| 627 |
$sth->execute(@bind_params); |
594 |
$sth->execute(@bind_params); |
| 628 |
my @results; |
595 |
my $subscriptions = $sth->fetchall_arrayref( {} ); |
| 629 |
|
596 |
for my $subscription ( @$subscriptions ) { |
| 630 |
while ( my $line = $sth->fetchrow_hashref ) { |
597 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 631 |
$line->{'cannotedit'} = |
598 |
} |
| 632 |
( C4::Context->preference('IndependantBranches') |
599 |
return @$subscriptions; |
| 633 |
&& C4::Context->userenv |
|
|
| 634 |
&& C4::Context->userenv->{flags} % 2 != 1 |
| 635 |
&& C4::Context->userenv->{branch} |
| 636 |
&& $line->{branchcode} |
| 637 |
&& ( C4::Context->userenv->{branch} ne $line->{branchcode} ) ); |
| 638 |
push @results, $line; |
| 639 |
} |
| 640 |
return @results; |
| 641 |
} |
600 |
} |
| 642 |
|
601 |
|
| 643 |
=head2 SearchSubscriptions |
602 |
=head2 SearchSubscriptions |
|
Lines 715-720
sub SearchSubscriptions {
Link Here
|
| 715 |
my $results = $sth->fetchall_arrayref( {} ); |
674 |
my $results = $sth->fetchall_arrayref( {} ); |
| 716 |
$sth->finish; |
675 |
$sth->finish; |
| 717 |
|
676 |
|
|
|
677 |
for my $subscription ( @$results ) { |
| 678 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 679 |
} |
| 680 |
|
| 718 |
return @$results; |
681 |
return @$results; |
| 719 |
} |
682 |
} |
| 720 |
|
683 |
|
|
Lines 2532-2537
sub ReopenSubscription {
Link Here
|
| 2532 |
$sth->execute( $subscriptionid ); |
2495 |
$sth->execute( $subscriptionid ); |
| 2533 |
} |
2496 |
} |
| 2534 |
|
2497 |
|
|
|
2498 |
sub can_edit_subscription { |
| 2499 |
my ( $subscription, $userid ) = @_; |
| 2500 |
my $flags = C4::Context->userenv->{flags}; |
| 2501 |
$userid ||= C4::Context->userenv->{'id'}; |
| 2502 |
my $independant_branches = C4::Context->preference('IndependantBranches'); |
| 2503 |
return 1 unless $independant_branches; |
| 2504 |
if( $flags % 2 == 1 |
| 2505 |
or C4::Auth::haspermission( $userid, {serials => 'superserials'}), |
| 2506 |
or not defined $subscription->{branchcode} |
| 2507 |
or $subscription->{branchcode} eq '' |
| 2508 |
or $subscription->{branchcode} eq C4::Context->userenv->{'branch'} |
| 2509 |
) { |
| 2510 |
return 1; |
| 2511 |
} |
| 2512 |
return 0; |
| 2513 |
} |
| 2514 |
|
| 2535 |
1; |
2515 |
1; |
| 2536 |
__END__ |
2516 |
__END__ |
| 2537 |
|
2517 |
|