oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Readded macro help. Added 5 user definable fields to wobject table.

Browse source
This commit is contained in:
JT Smith 2002-08-27 01:34:12 +00:00
parent fdc249cf59
commit c5fc879565
5 changed files with 30 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Wobject.pm
View file

@ -226,6 +226,11 @@ sub duplicate {
});
$w->set({
pageId => $pageId,
userDefined1 => $_[0]->get("userDefined1"),
userDefined2 => $_[0]->get("userDefined2"),
userDefined3 => $_[0]->get("userDefined3"),
userDefined4 => $_[0]->get("userDefined4"),
userDefined5 => $_[0]->get("userDefined5"),
title => $_[0]->get("title"),
description => $_[0]->get("description"),
displayTitle => $_[0]->get("displayTitle"),
@ -512,7 +517,7 @@ sub set {
$sql = "update wobject set";
foreach $key (keys %{$_[1]}) {
$_[0]->{_property}{$key} = ${$_[1]}{$key};
if (isIn($key, qw(moderationType groupToModerate groupToPost karmaPerPost editTimeout title displayTitle description processMacros pageId templatePosition startDate endDate sequenceNumber))) {
if (isIn($key, qw(userDefined1 userDefined2 userDefined3 userDefined4 userDefined5 moderationType groupToModerate groupToPost karmaPerPost editTimeout title displayTitle description processMacros pageId templatePosition startDate endDate sequenceNumber))) {
$sql .= " ".$key."=".quote(${$_[1]}{$key}).",";
}
if (isIn($key, @{$_[2]})) {