|
Lines 18-23
Link Here
|
| 18 |
# Suite 330, Boston, MA 02111-1307 USA |
18 |
# Suite 330, Boston, MA 02111-1307 USA |
| 19 |
|
19 |
|
| 20 |
use strict; |
20 |
use strict; |
|
|
21 |
use warnings; |
| 22 |
|
| 21 |
use C4::Auth qw(:DEFAULT get_session); |
23 |
use C4::Auth qw(:DEFAULT get_session); |
| 22 |
use CGI; |
24 |
use CGI; |
| 23 |
use Storable qw(freeze thaw); |
25 |
use Storable qw(freeze thaw); |
|
Lines 46-52
my ($template, $loggedinuser, $cookie)
Link Here
|
| 46 |
$template->param(dateformat => C4::Context->preference("dateformat")); |
48 |
$template->param(dateformat => C4::Context->preference("dateformat")); |
| 47 |
|
49 |
|
| 48 |
# If the user is not logged in, we deal with the cookie |
50 |
# If the user is not logged in, we deal with the cookie |
| 49 |
if ($loggedinuser == '') { |
51 |
if (!$loggedinuser) { |
| 50 |
|
52 |
|
| 51 |
# Deleting search history |
53 |
# Deleting search history |
| 52 |
if ($cgi->param('action') && $cgi->param('action') eq 'delete') { |
54 |
if ($cgi->param('action') && $cgi->param('action') eq 'delete') { |
| 53 |
- |
|
|