Lines 30-37
use List::MoreUtils qw( any );
Link Here
|
30 |
|
30 |
|
31 |
my $cgi = CGI->new; |
31 |
my $cgi = CGI->new; |
32 |
my $uri = $cgi->param('uri') || ''; |
32 |
my $uri = $cgi->param('uri') || ''; |
33 |
my $biblionumber = $cgi->param('biblionumber') || 0; |
33 |
my $biblionumber = $cgi->param('biblionumber');; |
34 |
my $itemnumber = $cgi->param('itemnumber') || 0; |
34 |
my $itemnumber = $cgi->param('itemnumber'); |
35 |
|
35 |
|
36 |
my $tracking_method = C4::Context->preference('TrackClicks'); |
36 |
my $tracking_method = C4::Context->preference('TrackClicks'); |
37 |
unless ( $tracking_method ) { |
37 |
unless ( $tracking_method ) { |
Lines 41-47
unless ( $tracking_method ) {
Link Here
|
41 |
my $tracker = Koha::Linktracker->new( |
41 |
my $tracker = Koha::Linktracker->new( |
42 |
{ trackingmethod => $tracking_method } ); |
42 |
{ trackingmethod => $tracking_method } ); |
43 |
if ($uri && ($biblionumber || $itemnumber) ) { |
43 |
if ($uri && ($biblionumber || $itemnumber) ) { |
44 |
my $borrowernumber = 0; |
44 |
my $borrowernumber; |
45 |
|
45 |
|
46 |
# we have a uri and we want to track |
46 |
# we have a uri and we want to track |
47 |
if ( $tracker->trackingmethod() eq 'track' ) { |
47 |
if ( $tracker->trackingmethod() eq 'track' ) { |
48 |
- |
|
|