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

Merge remote-tracking branch 'origin/master'

Browse Source
This commit is contained in:
Chris 2017-01-16 15:33:40 +00:00
commit 762efbd978
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 v5.14;
use parent qw(Webperl::Block); # Features are just a specific form of Block use parent qw(Webperl::Block); # Features are just a specific form of Block
use Digest;
use CGI::Util qw(escape); use CGI::Util qw(escape);
use HTML::Entities; use HTML::Entities;
use Webperl::Utils qw(join_complex path_join hash_or_hashref); 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'"); $self -> log("error:permission", "User does not have perission 'view'");
# Logged in, but permission failed # Logged in, but permission failed
my $message = $self -> message_boc("{L_PERMISSION_FAILED_TITLE}", my $message = $self -> message_box(title => "{L_PERMISSION_FAILED_TITLE}",
"error", type => "error",
"{L_PERMISSION_FAILED_SUMMARY}", class => "alert",
"{L_PERMISSION_VIEW_DESC}", summary => "{L_PERMISSION_FAILED_SUMMARY}",
undef, message => "{L_PERMISSION_VIEW_DESC}",
"errorcore", buttons => [ {"message" => $self -> {"template"} -> replace_langvar("SITE_CONTINUE"),
[ {"message" => $self -> {"template"} -> replace_langvar("SITE_CONTINUE"), "colour" => "blue",
"colour" => "blue", "href" => "{V_[scriptpath]}"} ]);
"action" => "location.href='{V_[scriptpath]}'"} ]);
return $self -> generate_orb_page(title => "{L_PERMISSION_FAILED_TITLE}", return $self -> generate_orb_page(title => "{L_PERMISSION_FAILED_TITLE}",
content => $message); content => $message);