my $retval; # Return value
my $dbh = C4::Context->dbh or return 0;
# Look up systempreferences.variable==$var
+ warn $var;
$retval = $dbh->selectrow_array(<<EOT);
SELECT value
FROM systempreferences
if ( $interface eq "intranet" ) {
@languages = split " ", C4::Context->preference("opaclanguages");
@themes = split " ", C4::Context->preference("template");
- pop @languages, $lang if $lang; # FIXME: pop takes only 1 arg. and if $lang always TRUE!
+ push @languages, $lang if $lang;
}
else {
# we are in the opac here, what im trying to do is let the individual user
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Accounts');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::AuthoritiesMarc');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Biblio');
}
};
if ($@) {
$it = $@;
- $it =~ s/ at \S+ line \d+$\.\n//s;
+ $it =~ s/ at \S+ line \d+\.\n//s;
}
return $it;
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Breeding');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Circulation');
}
use Test::More tests => 4;
BEGIN {
- use C4::Context;
- package C4::Context;
- no warnings;
- sub preference {
- my $self = shift;
- my $pref = shift;
- return 'us' if $pref eq "dateformat";
- return;
- }
- use warnings;
- package main;
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Date');
}
use Test::More tests => 92;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Dates', qw(format_date format_date_in_iso));
}
use Test::More tests => 28;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Items');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Letters');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Log');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Members');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::NewsChannels');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Overdues');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Print');
}
BEGIN {
use_ok('C4::Reserves');
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Search');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Serials');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Suggestions');
}
use Test::More tests => 1;
BEGIN {
+ use FindBin;
+ use lib $FindBin::Bin;
+ use override_context_prefs;
use_ok('C4::Z3950');
}
--- /dev/null
+use strict;
+use warnings;
+
+# This stub module is used to override
+# the C4::Context sub preference for the
+# purpose of the test suite. This allows
+# non-DB-dependent tests of most modules,
+# particularly the ones that include C4::Dates.
+
+use C4::Context;
+
+package C4::Context;
+no warnings;
+sub preference {
+ my $self = shift;
+ my $pref = shift;
+ return 'us' if $pref eq 'dateformat';
+ return 'MARC21' if $pref eq 'marcflavour';
+ return 'Test Library' if $pref eq 'LibraryName';
+ return;
+}
+
+1;