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

Adding override saving. Now to tackle the user prefs.

Browse source
This commit is contained in:
Matthew Wilson 2005-12-03 03:38:32 +00:00
parent 667da0dfae
commit ee1fa052af
1 changed files with 22 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Asset/Shortcut.pm
View file

@ -760,7 +760,7 @@ sub www_editOverride {
$output .= '</table>';
my $f = WebGUI::HTMLForm->new(-action=>$self->getUrl);
$f->hidden(-name=>"func",-value=>"saveOverride");
$f->hidden(-name=>"fieldName",-value=>$session{form}{fieldName});
$f->hidden(-name=>"overrideFieldName",-value=>$session{form}{fieldName});
$f->readOnly(-label=>"Field Name",-value=>$session{form}{fieldName});
$f->readOnly(-label=>"Original Value",-value=>$overrides{overrides}{$fieldName}{origValue});
my %params;
@ -774,7 +774,7 @@ sub www_editOverride {
# use Data::Dumper;WebGUI::ErrorHandler::warn('<pre>'.Dumper(\%params).'</pre>');
$f->dynamicField(%params);
$f->textarea(
-name=>"newValueText",
-name=>"newOverrideValueText",
-label=>"New Override Value",
-value=>$overrides{overrides}{$fieldName}{newValue},
-hoverHelp=>"Place something in this box if you don't want to use the automatically generated field."
@ -785,6 +785,26 @@ sub www_editOverride {
return $self->_submenu($output,'Edit Override');
}
#-------------------------------------------------------------------
sub www_saveOverride {
my $self = shift;
return WebGUI::Privilege::insufficient() unless $self->canEdit;
my $fieldName = $session{form}{overrideFieldName};
my %overrides = $self->getOverrides;
my $output = '';
my %props;
foreach my $def (@{$self->getShortcutOriginal->definition}) {
%props = (%props,%{$def->{properties}});
}
my $fieldType = $props{$fieldName}{fieldType};
my $value = WebGUI::FormProcessor::process($fieldName,$fieldType);
$value = $session{form}{newOverrideValueText} || $value;
WebGUI::SQL->write("delete from Shortcut_overrides where assetId=".quote($self->getId)." and fieldName=".quote($fieldName));
WebGUI::SQL->write("insert into Shortcut_overrides values (".quote($self->getId).",".quote($fieldName).",".quote($value).")");
$self->uncacheOverrides;
return $self->www_manageOverrides;
}
#-------------------------------------------------------------------
sub www_view {
my $self = shift;