|
Lines 215-227
sub GetSerialInformation {
Link Here
|
| 215 |
my ($serialid) = @_; |
215 |
my ($serialid) = @_; |
| 216 |
my $dbh = C4::Context->dbh; |
216 |
my $dbh = C4::Context->dbh; |
| 217 |
my $query = qq| |
217 |
my $query = qq| |
| 218 |
SELECT serial.*, serial.notes as sernotes, serial.status as serstatus,subscription.*,subscription.subscriptionid as subsid |; |
218 |
SELECT serial.*, |
|
|
219 |
serial.notes as sernotes, |
| 220 |
serial.status as serstatus, |
| 221 |
subscription.*, |
| 222 |
subscription.subscriptionid as subsid |
| 223 |
|; |
| 219 |
if ( C4::Context->preference('IndependentBranches') |
224 |
if ( C4::Context->preference('IndependentBranches') |
| 220 |
&& C4::Context->userenv |
225 |
&& C4::Context->userenv |
| 221 |
&& C4::Context->userenv->{'flags'} != 1 |
226 |
&& C4::Context->userenv->{'flags'} % 2 != 1 |
| 222 |
&& C4::Context->userenv->{'branch'} ) { |
227 |
&& C4::Context->userenv->{'branch'} ) { |
| 223 |
$query .= " |
228 |
my $branches = GetIndependentGroupModificationRights( { stringify => 1 } ); |
| 224 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
229 |
$query .= qq| |
|
|
230 |
, ( ( subscription.branchcode NOT IN ( $branches ) ) AND subscription.branchcode <> '' AND subscription.branchcode IS NOT NULL ) AS cannotedit |
| 231 |
|; |
| 225 |
} |
232 |
} |
| 226 |
$query .= qq| |
233 |
$query .= qq| |
| 227 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
234 |
FROM serial LEFT JOIN subscription ON subscription.subscriptionid=serial.subscriptionid |
|
Lines 315-347
subscription, subscriptionhistory, aqbooksellers.name, biblio.title
Link Here
|
| 315 |
sub GetSubscription { |
322 |
sub GetSubscription { |
| 316 |
my ($subscriptionid) = @_; |
323 |
my ($subscriptionid) = @_; |
| 317 |
my $dbh = C4::Context->dbh; |
324 |
my $dbh = C4::Context->dbh; |
| 318 |
my $query = qq( |
325 |
|
|
|
326 |
my $query = qq| |
| 319 |
SELECT subscription.*, |
327 |
SELECT subscription.*, |
| 320 |
subscriptionhistory.*, |
328 |
subscriptionhistory.*, |
| 321 |
aqbooksellers.name AS aqbooksellername, |
329 |
aqbooksellers.name AS aqbooksellername, |
| 322 |
biblio.title AS bibliotitle, |
330 |
biblio.title AS bibliotitle, |
| 323 |
subscription.biblionumber as bibnum); |
331 |
subscription.biblionumber as bibnum |
|
|
332 |
|; |
| 333 |
|
| 324 |
if ( C4::Context->preference('IndependentBranches') |
334 |
if ( C4::Context->preference('IndependentBranches') |
| 325 |
&& C4::Context->userenv |
335 |
&& C4::Context->userenv |
| 326 |
&& C4::Context->userenv->{'flags'} != 1 |
336 |
&& C4::Context->userenv->{'flags'} % 2 != 1 |
| 327 |
&& C4::Context->userenv->{'branch'} ) { |
337 |
&& C4::Context->userenv->{'branch'} ) |
| 328 |
$query .= " |
338 |
{ |
| 329 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
339 |
my $branches = |
|
|
340 |
GetIndependentGroupModificationRights( { stringify => 1 } ); |
| 341 |
|
| 342 |
$query .= qq| |
| 343 |
, ( ( subscription.branchcode NOT IN ( $branches ) ) AND subscription.branchcode <> '' AND subscription.branchcode IS NOT NULL ) AS cannotedit |
| 344 |
|; |
| 330 |
} |
345 |
} |
| 331 |
$query .= qq( |
346 |
|
|
|
347 |
$query .= qq| |
| 332 |
FROM subscription |
348 |
FROM subscription |
| 333 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
349 |
LEFT JOIN subscriptionhistory ON subscription.subscriptionid=subscriptionhistory.subscriptionid |
| 334 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
350 |
LEFT JOIN aqbooksellers ON subscription.aqbooksellerid=aqbooksellers.id |
| 335 |
LEFT JOIN biblio ON biblio.biblionumber=subscription.biblionumber |
351 |
LEFT JOIN biblio ON biblio.biblionumber=subscription.biblionumber |
| 336 |
WHERE subscription.subscriptionid = ? |
352 |
WHERE subscription.subscriptionid = ? |
| 337 |
); |
353 |
|; |
| 338 |
|
354 |
|
| 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"; |
355 |
$debug and warn "query : $query\nsubsid :$subscriptionid"; |
| 346 |
my $sth = $dbh->prepare($query); |
356 |
my $sth = $dbh->prepare($query); |
| 347 |
$sth->execute($subscriptionid); |
357 |
$sth->execute($subscriptionid); |
|
Lines 358-365
sub GetSubscription {
Link Here
|
| 358 |
sub GetFullSubscription { |
368 |
sub GetFullSubscription { |
| 359 |
my ($subscriptionid) = @_; |
369 |
my ($subscriptionid) = @_; |
| 360 |
my $dbh = C4::Context->dbh; |
370 |
my $dbh = C4::Context->dbh; |
| 361 |
my $query = qq| |
371 |
|
| 362 |
SELECT serial.serialid, |
372 |
my $query = qq| |
|
|
373 |
SELECT |
| 374 |
serial.serialid, |
| 363 |
serial.serialseq, |
375 |
serial.serialseq, |
| 364 |
serial.planneddate, |
376 |
serial.planneddate, |
| 365 |
serial.publisheddate, |
377 |
serial.publisheddate, |
|
Lines 369-382
sub GetFullSubscription {
Link Here
|
| 369 |
aqbooksellers.name as aqbooksellername, |
381 |
aqbooksellers.name as aqbooksellername, |
| 370 |
biblio.title as bibliotitle, |
382 |
biblio.title as bibliotitle, |
| 371 |
subscription.branchcode AS branchcode, |
383 |
subscription.branchcode AS branchcode, |
| 372 |
subscription.subscriptionid AS subscriptionid |; |
384 |
subscription.subscriptionid AS subscriptionid |
|
|
385 |
|; |
| 386 |
|
| 373 |
if ( C4::Context->preference('IndependentBranches') |
387 |
if ( C4::Context->preference('IndependentBranches') |
| 374 |
&& C4::Context->userenv |
388 |
&& C4::Context->userenv |
| 375 |
&& C4::Context->userenv->{'flags'} != 1 |
389 |
&& C4::Context->userenv->{'flags'} % 2 != 1 |
| 376 |
&& C4::Context->userenv->{'branch'} ) { |
390 |
&& C4::Context->userenv->{'branch'} ) |
| 377 |
$query .= " |
391 |
{ |
| 378 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
392 |
my $branches = |
|
|
393 |
GetIndependentGroupModificationRights( { stringify => 1 } ); |
| 394 |
|
| 395 |
$query .= qq| |
| 396 |
, ( ( subscription.branchcode NOT IN ( $branches ) ) AND subscription.branchcode <> '' AND subscription.branchcode IS NOT NULL ) AS cannotedit |
| 397 |
|; |
| 379 |
} |
398 |
} |
|
|
399 |
|
| 380 |
$query .= qq| |
400 |
$query .= qq| |
| 381 |
FROM serial |
401 |
FROM serial |
| 382 |
LEFT JOIN subscription ON |
402 |
LEFT JOIN subscription ON |
|
Lines 489-501
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 489 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
509 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
| 490 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
510 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
| 491 |
$subs->{ "status" . $subs->{'status'} } = 1; |
511 |
$subs->{ "status" . $subs->{'status'} } = 1; |
| 492 |
$subs->{'cannotedit'} = |
512 |
$subs->{'cannotedit'} = ( |
| 493 |
( C4::Context->preference('IndependentBranches') |
513 |
C4::Context->preference('IndependentBranches') |
| 494 |
&& C4::Context->userenv |
514 |
&& C4::Context->userenv |
| 495 |
&& !C4::Context->IsSuperLibrarian() |
515 |
&& !C4::Context->IsSuperLibrarian() |
| 496 |
&& C4::Context->userenv->{branch} |
516 |
&& C4::Context->userenv->{branch} |
| 497 |
&& $subs->{branchcode} |
517 |
&& $subs->{branchcode} |
| 498 |
&& ( C4::Context->userenv->{branch} ne $subs->{branchcode} ) ); |
518 |
&& GetIndependentGroupModificationRights( |
|
|
519 |
{ for => $subs->{branchcode} } |
| 520 |
) |
| 521 |
); |
| 499 |
|
522 |
|
| 500 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
523 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
| 501 |
$subs->{enddate} = ''; |
524 |
$subs->{enddate} = ''; |
|
Lines 519-526
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 519 |
sub GetFullSubscriptionsFromBiblionumber { |
542 |
sub GetFullSubscriptionsFromBiblionumber { |
| 520 |
my ($biblionumber) = @_; |
543 |
my ($biblionumber) = @_; |
| 521 |
my $dbh = C4::Context->dbh; |
544 |
my $dbh = C4::Context->dbh; |
| 522 |
my $query = qq| |
545 |
|
| 523 |
SELECT serial.serialid, |
546 |
my $query = qq| |
|
|
547 |
SELECT |
| 548 |
serial.serialid, |
| 524 |
serial.serialseq, |
549 |
serial.serialseq, |
| 525 |
serial.planneddate, |
550 |
serial.planneddate, |
| 526 |
serial.publisheddate, |
551 |
serial.publisheddate, |
|
Lines 529-541
sub GetFullSubscriptionsFromBiblionumber {
Link Here
|
| 529 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
554 |
year(IF(serial.publisheddate="00-00-0000",serial.planneddate,serial.publisheddate)) as year, |
| 530 |
biblio.title as bibliotitle, |
555 |
biblio.title as bibliotitle, |
| 531 |
subscription.branchcode AS branchcode, |
556 |
subscription.branchcode AS branchcode, |
| 532 |
subscription.subscriptionid AS subscriptionid|; |
557 |
subscription.subscriptionid AS subscriptionid |
|
|
558 |
|; |
| 559 |
|
| 533 |
if ( C4::Context->preference('IndependentBranches') |
560 |
if ( C4::Context->preference('IndependentBranches') |
| 534 |
&& C4::Context->userenv |
561 |
&& C4::Context->userenv |
| 535 |
&& C4::Context->userenv->{'flags'} != 1 |
562 |
&& C4::Context->userenv->{'flags'} != 1 |
| 536 |
&& C4::Context->userenv->{'branch'} ) { |
563 |
&& C4::Context->userenv->{'branch'} ) |
| 537 |
$query .= " |
564 |
{ |
| 538 |
, ((subscription.branchcode <>\"" . C4::Context->userenv->{'branch'} . "\") and subscription.branchcode <>\"\" and subscription.branchcode IS NOT NULL) as cannotedit "; |
565 |
my $branches = |
|
|
566 |
GetIndependentGroupModificationRights( { stringify => 1 } ); |
| 567 |
|
| 568 |
$query .= qq| |
| 569 |
, ( ( subscription.branchcode NOT IN ( $branches ) ) AND subscription.branchcode <> '' AND subscription.branchcode IS NOT NULL ) AS cannotedit |
| 570 |
|; |
| 539 |
} |
571 |
} |
| 540 |
|
572 |
|
| 541 |
$query .= qq| |
573 |
$query .= qq| |
|
Lines 629-641
sub GetSubscriptions {
Link Here
|
| 629 |
my @results; |
661 |
my @results; |
| 630 |
|
662 |
|
| 631 |
while ( my $line = $sth->fetchrow_hashref ) { |
663 |
while ( my $line = $sth->fetchrow_hashref ) { |
| 632 |
$line->{'cannotedit'} = |
664 |
$line->{'cannotedit'} = ( |
| 633 |
( C4::Context->preference('IndependentBranches') |
665 |
C4::Context->preference('IndependentBranches') |
| 634 |
&& C4::Context->userenv |
666 |
&& C4::Context->userenv |
| 635 |
&& !C4:Context->IsSuperLibrarian() |
667 |
&& !C4::Context->IsSuperLibrarian() |
| 636 |
&& C4::Context->userenv->{branch} |
668 |
&& C4::Context->userenv->{branch} |
| 637 |
&& $line->{branchcode} |
669 |
&& $line->{branchcode} |
| 638 |
&& ( C4::Context->userenv->{branch} ne $line->{branchcode} ) ); |
670 |
&& GetIndependentGroupModificationRights( |
|
|
671 |
{ for => $line->{branchcode} } |
| 672 |
) |
| 673 |
); |
| 639 |
push @results, $line; |
674 |
push @results, $line; |
| 640 |
} |
675 |
} |
| 641 |
return @results; |
676 |
return @results; |