|
Lines 744-750
sub SearchSubscriptions {
Link Here
|
| 744 |
!C4::Context->IsSuperLibrarian() && |
744 |
!C4::Context->IsSuperLibrarian() && |
| 745 |
!C4::Auth::haspermission( $userid, {serials => 'superserials'}); |
745 |
!C4::Auth::haspermission( $userid, {serials => 'superserials'}); |
| 746 |
} |
746 |
} |
| 747 |
my $user_branch = C4::Context->userenv->{'branch'}; |
747 |
my $user_branch = C4::Context->userenv ? C4::Context->userenv->{'branch'} : q{}; |
| 748 |
for my $subscription ( @$results ) { |
748 |
for my $subscription ( @$results ) { |
| 749 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
749 |
$subscription->{cannotedit} = not can_edit_subscription( $subscription ); |
| 750 |
$subscription->{cannotdisplay} = |
750 |
$subscription->{cannotdisplay} = |
|
Lines 1540-1553
sub NewSubscription {
Link Here
|
| 1540 |
my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern}); |
1540 |
my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern}); |
| 1541 |
|
1541 |
|
| 1542 |
# calculate issue number |
1542 |
# calculate issue number |
| 1543 |
my $serialseq = GetSeq($subscription, $pattern); |
1543 |
my $serialseq = GetSeq($subscription, $pattern) || q{}; |
| 1544 |
$query = qq| |
1544 |
$query = qq| |
| 1545 |
INSERT INTO serial |
1545 |
INSERT INTO serial |
| 1546 |
(serialseq,subscriptionid,biblionumber,status, planneddate, publisheddate) |
1546 |
(serialseq,subscriptionid,biblionumber,status, planneddate, publisheddate) |
| 1547 |
VALUES (?,?,?,?,?,?) |
1547 |
VALUES (?,?,?,?,?,?) |
| 1548 |
|; |
1548 |
|; |
| 1549 |
$sth = $dbh->prepare($query); |
1549 |
$sth = $dbh->prepare($query); |
| 1550 |
$sth->execute( "$serialseq", $subscriptionid, $biblionumber, 1, $firstacquidate, $firstacquidate ); |
1550 |
$sth->execute( $serialseq, $subscriptionid, $biblionumber, 1, $firstacquidate, $firstacquidate ); |
| 1551 |
|
1551 |
|
| 1552 |
logaction( "SERIAL", "ADD", $subscriptionid, "" ) if C4::Context->preference("SubscriptionLog"); |
1552 |
logaction( "SERIAL", "ADD", $subscriptionid, "" ) if C4::Context->preference("SubscriptionLog"); |
| 1553 |
|
1553 |
|
| 1554 |
- |
|
|