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