Lines 233-242
delete_all( $userid );
Link Here
|
233 |
sub add { |
233 |
sub add { |
234 |
my ( $userid, $current_session_id, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a ) = @_; |
234 |
my ( $userid, $current_session_id, $previous_sessionid, $total, $query_cgi_b, $query_cgi_a ) = @_; |
235 |
|
235 |
|
236 |
my $days_ago_2 = dt_from_string()->add_duration( DateTime::Duration->new( days => -2 ) ); |
236 |
my $days_ago_2 = dt_from_string()->add_duration( DateTime::Duration->new( days => -2, minutes => 1 ) ); |
237 |
my $days_ago_4 = dt_from_string()->add_duration( DateTime::Duration->new( days => -4 ) ); |
237 |
my $days_ago_4 = dt_from_string()->add_duration( DateTime::Duration->new( days => -4, minutes => 1 ) ); |
238 |
my $days_ago_6 = dt_from_string()->add_duration( DateTime::Duration->new( days => -6 ) ); |
238 |
my $days_ago_6 = dt_from_string()->add_duration( DateTime::Duration->new( days => -6, minutes => 1 ) ); |
239 |
my $days_ago_8 = dt_from_string()->add_duration( DateTime::Duration->new( days => -8 ) ); |
239 |
my $days_ago_8 = dt_from_string()->add_duration( DateTime::Duration->new( days => -8, minutes => 1 ) ); |
240 |
|
240 |
|
241 |
my $query_desc_b1_p = q{first previous biblio search}; |
241 |
my $query_desc_b1_p = q{first previous biblio search}; |
242 |
my $first_previous_biblio_search = { |
242 |
my $first_previous_biblio_search = { |
243 |
- |
|
|