X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=html%2Fccbs.pm;fp=html%2Fccbs.pm;h=d3f07210ebec20c9a7432d99b4d5e2d953a2e29e;hp=4431da40f249022c76d91d69f1a0f3aa0687399f;hb=721adff0d70d1f13dee093b7a0620a2a9c088d02;hpb=f0e8278b0d9d92d49601e236e11c80a89695d682 diff --git a/html/ccbs.pm b/html/ccbs.pm index 4431da4..d3f0721 100755 --- a/html/ccbs.pm +++ b/html/ccbs.pm @@ -20,7 +20,12 @@ our $ccbs_dbdebug = 0; # Set this flag to disable any admin tasks -- it's quite crude, but hey :-) our $ccbs_noadmin = 0; - + +# Hack to get the non-templatized gettext stuff working +*_ = sub { + return Locale::gettext::gettext(@_); +}; + sub print_header { print CGI::header(-type=>'text/html; charset=utf-8'); } @@ -101,13 +106,13 @@ sub user_error { my $msg = shift; ccbs::print_header(); - ccbs::process_template('user-error.tmpl', 'Feil', + ccbs::process_template('user-error.tmpl', _('Error'), { message => $msg }); exit; } sub admin_only { - user_error("Beklager, databasen står i no-admin-mode.") if ($ccbs_noadmin); + user_error(_("Sorry, the database is in no-admin-mode.")) if ($ccbs_noadmin); } $SIG{__DIE__} = sub { @@ -116,7 +121,7 @@ $SIG{__DIE__} = sub { return if $msg =~ m#Win32/Registry.pm#; ccbs::print_header(); - ccbs::process_template('error.tmpl', 'Internal Server Error', + ccbs::process_template('error.tmpl', _('Internal Server Error'), { message => HTML::Entities::encode_entities($msg) }); };