- Inclusion of UsersOnline macro into the core (#766)
This commit is contained in:
parent
79635c0c2d
commit
b41c1639a1
13 changed files with 840 additions and 1 deletions
|
|
@ -7,6 +7,7 @@
|
|||
- Made Classname from control a subclass of ReadOnly.
|
||||
- Added query keys to WebGUI::Crud.
|
||||
- EMS Saved Address (#8864)
|
||||
- Inclusion of UsersOnline macro into the core (#766)
|
||||
- WebGUI::Crud can now automatically resolve differences between its
|
||||
definition and the table schema.
|
||||
- Fixed a limit bug in the asset discovery service.
|
||||
|
|
|
|||
BIN
docs/upgrades/packages-7.6.2/users-online-macro-templates.wgpkg
Normal file
BIN
docs/upgrades/packages-7.6.2/users-online-macro-templates.wgpkg
Normal file
Binary file not shown.
|
|
@ -32,13 +32,22 @@ my $session = start(); # this line required
|
|||
repairManageWorkflows($session);
|
||||
addPreTextToThingyFields($session);
|
||||
updateAddressBook($session);
|
||||
addUsersOnlineMacro($session);
|
||||
finish($session); # this line required
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub addUsersOnlineMacro {
|
||||
my $session = shift;
|
||||
print "\tMaking the UsersOnline macro available." unless $quiet;
|
||||
$session->config->addToHash("macros","UsersOnline","UsersOnline");
|
||||
print "DONE!\n" unless $quiet;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub updateAddressBook {
|
||||
my $session = shift;
|
||||
print "\tAdd Organization and Email Address to address book." unless $quiet;
|
||||
print "\tAdding organization and email to address book." unless $quiet;
|
||||
my $db = $session->db;
|
||||
$db->write("alter table address add column organization char(255)");
|
||||
$db->write("alter table address add column email char(255)");
|
||||
|
|
@ -58,6 +67,7 @@ sub repairManageWorkflows {
|
|||
print "DONE!\n" unless $quiet;
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
sub addPreTextToThingyFields {
|
||||
my $session = shift;
|
||||
print "\tAdding a pre-text property to Thingy fields... " unless $quiet;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue