Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 12080: (follow-up) fix test failure and warnings in Bookseller.t

Browse source 
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Fixes the tests as promised.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Kyle Hall 2014-04-18 08:27:35 -04:00 committed by Galen Charlton
parent f0e574be4a
commit b772969cdd
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
C4/Serials.pm
View file

@ -744,7 +744,7 @@ sub SearchSubscriptions {
!C4::Context->IsSuperLibrarian() &&
!C4::Auth::haspermission( $userid, {serials => 'superserials'});
}
my $user_branch = C4::Context->userenv->{'branch'};
my $user_branch = C4::Context->userenv ? C4::Context->userenv->{'branch'} : q{};
for my $subscription ( @$results ) {
$subscription->{cannotedit} = not can_edit_subscription( $subscription );
$subscription->{cannotdisplay} =
@ -1540,14 +1540,14 @@ sub NewSubscription {
my $pattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subscription->{numberpattern});
# calculate issue number
my $serialseq = GetSeq($subscription, $pattern);
my $serialseq = GetSeq($subscription, $pattern) || q{};
$query = qq|
INSERT INTO serial
(serialseq,subscriptionid,biblionumber,status, planneddate, publisheddate)
VALUES (?,?,?,?,?,?)
|;
$sth = $dbh->prepare($query);
$sth->execute( "$serialseq", $subscriptionid, $biblionumber, 1, $firstacquidate, $firstacquidate );
$sth->execute( $serialseq, $subscriptionid, $biblionumber, 1, $firstacquidate, $firstacquidate );
logaction( "SERIAL", "ADD", $subscriptionid, "" ) if C4::Context->preference("SubscriptionLog");