From aca8de1834d9f74d28bf0d04aa98db767bbca7f6 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Mon, 16 Jan 2017 14:11:41 +0000
Subject: [PATCH] Fix errors noticed during cadence EUA migration

---
 modules/ORB.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/modules/ORB.pm b/modules/ORB.pm
index b3832d6..0e83add 100755
--- a/modules/ORB.pm
+++ b/modules/ORB.pm
@@ -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);