diff --git a/errors/400.pl b/errors/400.pl
index 994c2db8a0..9edc056413 100755
--- a/errors/400.pl
+++ b/errors/400.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => 'errors/errorpage.tt',
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 400,
);
my $status = '400 Bad Request';
diff --git a/errors/401.pl b/errors/401.pl
index 411c5d4b3a..cdabefc1d7 100755
--- a/errors/401.pl
+++ b/errors/401.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => 'errors/errorpage.tt',
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 401,
);
my $status = '401 Unauthorized';
diff --git a/errors/402.pl b/errors/402.pl
index ca31e0c828..30ad2f6916 100755
--- a/errors/402.pl
+++ b/errors/402.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => 'errors/errorpage.tt',
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 402,
);
my $status = '402 Payment Required';
diff --git a/errors/403.pl b/errors/403.pl
index 7833f35d4c..811f741387 100755
--- a/errors/403.pl
+++ b/errors/403.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => 'errors/errorpage.tt',
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 403,
csrf_error => $ENV{'plack.middleware.Koha.CSRF'},
);
diff --git a/errors/404.pl b/errors/404.pl
index 8447d44208..13953dcc03 100755
--- a/errors/404.pl
+++ b/errors/404.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => 'errors/errorpage.tt',
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 404,
);
my $status = '404 Not Found';
diff --git a/errors/500.pl b/errors/500.pl
index 68618a8c4b..a585f484bb 100755
--- a/errors/500.pl
+++ b/errors/500.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => 'errors/errorpage.tt',
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 500,
);
my $status = '500 Internal Server Error';
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/errors/errorpage.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/errors/errorpage.tt
index 1eea9364e6..87596b6594 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/errors/errorpage.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/errors/errorpage.tt
@@ -1,5 +1,6 @@
[% USE raw %]
[% USE Koha %]
+[% SET admin = Koha.Preference('ReplytoDefault') || Koha.Preference('KohaAdminEmailAddress') %]
[% PROCESS 'i18n.inc' %]
[% INCLUDE 'doc-head-open.inc' %]
"OpacNav", lang => lang, library => logged_in_user.branchcode || default_branch, blocktitle => 0 ) %]
[% SET OpacNavBottom = AdditionalContents.get( location => "OpacNavBottom", lang => lang, library => logged_in_user.branchcode || default_branch, blocktitle => 0 ) %]
+[% SET admin = Koha.Preference('ReplytoDefault') || Koha.Preference('KohaAdminEmailAddress') %]
[% INCLUDE 'doc-head-open.inc' %]
[% FILTER collapse %]
diff --git a/opac/errors/400.pl b/opac/errors/400.pl
index b4558f67ab..ce9fae7810 100755
--- a/opac/errors/400.pl
+++ b/opac/errors/400.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "errors/errorpage.tt",
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 400,
);
my $status = '400 Bad Request';
diff --git a/opac/errors/401.pl b/opac/errors/401.pl
index 4a61256ab8..0c8287684f 100755
--- a/opac/errors/401.pl
+++ b/opac/errors/401.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "errors/errorpage.tt",
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 401,
);
my $status = '401 Unauthorized';
diff --git a/opac/errors/402.pl b/opac/errors/402.pl
index 94abca5033..5431750f93 100755
--- a/opac/errors/402.pl
+++ b/opac/errors/402.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "errors/errorpage.tt",
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 402,
);
my $status = '402 Payment Required';
diff --git a/opac/errors/403.pl b/opac/errors/403.pl
index 2dddd876d7..a89a73d7b2 100755
--- a/opac/errors/403.pl
+++ b/opac/errors/403.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "errors/errorpage.tt",
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 403,
csrf_error => $ENV{'plack.middleware.Koha.CSRF'},
);
diff --git a/opac/errors/404.pl b/opac/errors/404.pl
index 25b81bc497..06924487c0 100755
--- a/opac/errors/404.pl
+++ b/opac/errors/404.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "errors/errorpage.tt",
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 404,
);
my $status = '404 Not Found';
diff --git a/opac/errors/500.pl b/opac/errors/500.pl
index c874c567d0..1c95b677b6 100755
--- a/opac/errors/500.pl
+++ b/opac/errors/500.pl
@@ -23,7 +23,6 @@ use C4::Context;
use List::MoreUtils qw( any );
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "errors/errorpage.tt",
@@ -33,7 +32,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
$template->param(
- admin => $admin,
errno => 500,
);
my $status = '500 Internal Server Error';