diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 645dc83a3..76f84260a 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,4 +1,6 @@ 7.5.20 + - fixed: shortcut overrides new value column doesn't show macros as unparsed + - fixed: shortcut select by alternate criteria wizard doesn't show lists properly - fixed: The indent loop of the Navigation wobject has an incorrect number of iterations in some cases. (Martin Kamerbeek / Oqapi) - fixed: Thingy: Setting the size of a field has no effect diff --git a/lib/WebGUI/Asset/Shortcut.pm b/lib/WebGUI/Asset/Shortcut.pm index 839eed230..1c70af8d8 100644 --- a/lib/WebGUI/Asset/Shortcut.pm +++ b/lib/WebGUI/Asset/Shortcut.pm @@ -19,6 +19,7 @@ use WebGUI::Operation::Profile; use WebGUI::ProfileField; use WebGUI::ProfileCategory; use WebGUI::Macro; +use HTML::Entities qw(encode_entities); our @ISA = qw(WebGUI::Asset); @@ -26,7 +27,7 @@ our @ISA = qw(WebGUI::Asset); sub _drawQueryBuilder { my $self = shift; # Initialize operators - my @textFields = qw|text yesNo selectList radioList|; + my @textFields = qw|text yesNo selectBox radioList|; my $i18n = WebGUI::International->new($self->session,"Asset_Shortcut"); my %operator; foreach (@textFields) { @@ -93,7 +94,7 @@ sub _drawQueryBuilder { name=>$valFieldName, uiLevel=>5, extras=>qq/title="$fields->{$field}{description}" class="qbselect"/, - possibleValues=>$fields->{$field}{possibleValues}, + options=>$fields->{$field}{possibleValues}, ); # An empty row $output .= qq|