[ic] Strap menu issue
kerry
kerry at basicq.com
Tue Jun 13 09:38:54 UTC 2017
After some time off, I am revisiting the Strap issues I had with the
menu. From the demo, it appears that the menu should populate as the old
standard catalog. This is not happening on my test version. The menu
names are in the drop down, but do no appear when clicked. I checked my
error log and am finding this error followed by a lot of code on the menu.
192.168.1.100 KP2ZQ3fH:192.168.1.100 - [13/June/2017:04:56:24 -0400]
strap /cgi-bin/strap/admin/menu_editor Safe: 'require' trapped by
operation mask at /usr/lib64/perl5/Encode.pm line 5.
> Compilation failed in require at /usr/lib64/perl5/Encode/Alias.pm line 22.
End sample of code following the error message.
#Debug("menufields=" . join(",", @menufields));
> }
> else {
> $filedata = join("\t", @menufields);
> }
> $Scratch->{qmenu_data} = $filedata;
> $Scratch->{qmenu_name} = $mn;
> my $mbase;
> for $mbase ( $CGI->{ui_meta_view}, "menu_editor::$mn") {
> $menumeta = $Tag->meta_record($mbase)
> and $metabase = $mbase
> and last;
> }
> }
>
> my %illegal;
> my @illegal = qw/check msg code/;
> my %suggested = qw/
> extended 1
> inactive 1
> /;
> my @required = qw/
> description
> form
> mgroup
> msort
> name
> page
> /;
> @required{@required} = @required;
> @illegal{@illegal} = @illegal;
> my $illegal = 0;
> for(my $i = 1; $i < @menufields; $i++) {
> my $f = lc $menufields[$i];
> $menu_fh{$f} = $i;
> delete $required{$f};
> delete $suggested{$f};
> if($illegal{$f}) {
> $Tag->error({
> name => 'Illegal field name',
> set => errmsg( "Name reserved: %s.", $f),
> });
> $illegal++;
> }
> }
> @suggested = keys %suggested;
> for(keys %required) {
> $Tag->error({
> set => errmsg( "Required field '%s' missing.", $_),
> });
> $illegal++;
> }
> delete $Scratch->{qmenu_data} if $illegal;
> @required{@required} = @required;
> return;
--
BasicQ Inc. Order
More information about the interchange-users
mailing list