View | Details | Raw Unified | Return to bug 12080
Collapse All | Expand All

(-)a/C4/Serials.pm (-4 / +3 lines)
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
- 

Return to bug 12080