fix invalid invocation of GetBranches in test case
authorGalen Charlton <gmcharlt@gmail.com>
Wed, 6 Oct 2010 16:54:05 +0000 (12:54 -0400)
committerGalen Charlton <gmcharlt@gmail.com>
Wed, 6 Oct 2010 16:54:21 +0000 (12:54 -0400)
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
t/db_dependent/SQLHelper.t

index 6be0192..cb26ed1 100755 (executable)
@@ -19,7 +19,7 @@ use C4::Branch;
 my @categories=C4::Category->all;
 my $insert;
 ok(($insert=InsertInTable("branches",{branchcode=>"ZZZZ",branchname=>"Brancheinconnue",city=>" ",zipcode=>" "},1))==0,"AddBranch (Insert In Table with primary key defined)");
-my $branches=C4::Branch->GetBranches;
+my $branches=C4::Branch::GetBranches;
 my @branchcodes=keys %$branches;
 my ($borrid, $borrtmp);
 ok($borrid=InsertInTable("borrowers",{firstname=>"Jean",surname=>"Valjean",city=>" ",zipcode=>" ",email=>"email",categorycode=>$categories[0]->{categorycode}, branchcode=>$branchcodes[0]}),"Insert In Table");