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 |
- |
|
|