Chris/ORB
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix errors noticed during cadence EUA migration

Browse Source
This commit is contained in:
Chris 2017-01-16 14:11:41 +00:00
parent f3b0b270f2
commit aca8de1834
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
modules/ORB.pm
View File

@ -25,6 +25,7 @@ use experimental qw(smartmatch);
use v5.14;
use parent qw(Webperl::Block); # Features are just a specific form of Block
use Digest;
use CGI::Util qw(escape);
use HTML::Entities;
use Webperl::Utils qw(join_complex path_join hash_or_hashref);
@ -292,15 +293,14 @@ sub check_login {
$self -> log("error:permission", "User does not have perission 'view'");
# Logged in, but permission failed
my $message = $self -> message_boc("{L_PERMISSION_FAILED_TITLE}",
"error",
"{L_PERMISSION_FAILED_SUMMARY}",
"{L_PERMISSION_VIEW_DESC}",
undef,
"errorcore",
[ {"message" => $self -> {"template"} -> replace_langvar("SITE_CONTINUE"),
"colour" => "blue",
"action" => "location.href='{V_[scriptpath]}'"} ]);
my $message = $self -> message_box(title => "{L_PERMISSION_FAILED_TITLE}",
type => "error",
class => "alert",
summary => "{L_PERMISSION_FAILED_SUMMARY}",
message => "{L_PERMISSION_VIEW_DESC}",
buttons => [ {"message" => $self -> {"template"} -> replace_langvar("SITE_CONTINUE"),
"colour" => "blue",
"href" => "{V_[scriptpath]}"} ]);
return $self -> generate_orb_page(title => "{L_PERMISSION_FAILED_TITLE}",
content => $message);