|
Lines 18-23
use URI::Escape;
Link Here
|
| 18 |
use List::Util qw( shuffle ); |
18 |
use List::Util qw( shuffle ); |
| 19 |
|
19 |
|
| 20 |
use C4::Context; |
20 |
use C4::Context; |
|
|
21 |
use C4::Search::History; |
| 21 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
22 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
| 22 |
|
23 |
|
| 23 |
my $schema = Koha::Database->new->schema; |
24 |
my $schema = Koha::Database->new->schema; |
|
Lines 29-35
my $dbh = C4::Context->dbh;
Link Here
|
| 29 |
t::lib::Mocks::mock_preference( 'SessionStorage', 'tmp' ); |
30 |
t::lib::Mocks::mock_preference( 'SessionStorage', 'tmp' ); |
| 30 |
|
31 |
|
| 31 |
use_ok('Koha::DateUtils'); |
32 |
use_ok('Koha::DateUtils'); |
| 32 |
use_ok( 'C4::Search::History', qw( add get delete get_from_session ) ); |
33 |
use_ok('C4::Search::History'); |
| 33 |
|
34 |
|
| 34 |
my $userid = 123; |
35 |
my $userid = 123; |
| 35 |
my $previous_sessionid = "PREVIOUS_SESSIONID"; |
36 |
my $previous_sessionid = "PREVIOUS_SESSIONID"; |