|
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 |
- |
|
|