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
_______________________________________________
interchange-users mailing list
interchange-users@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-users
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
_______________________________________________
interchange-users mailing list
interchange-users@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-users