|
Lines 27-32
use Koha::ProblemReport;
Link Here
|
| 27 |
use Koha::DateUtils; |
27 |
use Koha::DateUtils; |
| 28 |
use Koha::Libraries; |
28 |
use Koha::Libraries; |
| 29 |
use Koha::Patrons; |
29 |
use Koha::Patrons; |
|
|
30 |
use Koha::Util::Navigation; |
| 30 |
|
31 |
|
| 31 |
my $input = new CGI; |
32 |
my $input = new CGI; |
| 32 |
|
33 |
|
|
Lines 43-49
if ( !C4::Context->preference('OPACReportProblem') ){
Link Here
|
| 43 |
print $input->redirect("/cgi-bin/koha/errors/404.pl"); |
44 |
print $input->redirect("/cgi-bin/koha/errors/404.pl"); |
| 44 |
} |
45 |
} |
| 45 |
|
46 |
|
| 46 |
my $problempage = $ENV{HTTP_REFERER}; |
47 |
my $problempage = C4::Context->preference('OPACBaseURL') . Koha::Util::Navigation::local_referer($input ); |
|
|
48 |
|
| 47 |
my $member = Koha::Patrons->find($borrowernumber); |
49 |
my $member = Koha::Patrons->find($borrowernumber); |
| 48 |
my $username = $member->userid; |
50 |
my $username = $member->userid; |
| 49 |
my $branchcode = $member->branchcode; |
51 |
my $branchcode = $member->branchcode; |
| 50 |
- |
|
|