Strap menu issue

kerry <[email protected]>
Newsgroups gmane.comp.web.interchange.users
Message-ID <[email protected]>
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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.