This Patch adds a HTML notice beside the GetAdminBar?, (see: WikiPatches/GetAdminBar) for convenience of admin, whatever.
Define a new global variable:
use vars qw($AdminNote);
Configuration of this variable:
$AdminNote = ""; # HTML notice beside the admin bar
Locate the sub GetAdminBar
sub GetAdminBar { ... $result .= " | " . &ScriptLink("action=editlock&set=1", T("Lock site")); } + $result .= $AdminNote; return $result; }--JuanmaMP