projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ffzg/recall_notices.pl: added --interval and --dedup
[koha.git]
/
errors
/
402.pl
diff --git
a/errors/402.pl
b/errors/402.pl
index
c7f6641
..
b9431c4
100755
(executable)
--- a/
errors/402.pl
+++ b/
errors/402.pl
@@
-12,26
+12,29
@@
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc.,
59 Temple Place,
-#
Suite 330, Boston, MA 02111-1307
USA
+# Koha; if not, write to the Free Software Foundation, Inc.,
+#
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
USA
-use
strict
;
-use CGI;
+use
Modern::Perl
;
+use CGI
qw ( -utf8 )
;
use C4::Auth;
use C4::Output;
use C4::Context;
use C4::Auth;
use C4::Output;
use C4::Context;
-my $query =
new CGI
;
+my $query =
CGI->new
;
my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
my $admin = C4::Context->preference('KohaAdminEmailAddress');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
- template_name =>
"errors/402.tmpl"
,
+ template_name =>
'errors/errorpage.tt'
,
query => $query,
query => $query,
- type =>
"intranet"
,
+ type =>
'intranet'
,
authnotrequired => 1,
debug => 1,
}
);
authnotrequired => 1,
debug => 1,
}
);
-$template->param( admin => $admin );
-output_html_with_http_headers $query, $cookie, $template->output;
+$template->param (
+ admin => $admin,
+ errno => 402,
+);
+output_with_http_headers $query, $cookie, $template->output, 'html', '402 Payment Required';