[ic] Error in UI with Data::Dumper

[Joachim Schubert]

Hello,

this is:
IC 4.9.5, FreeBSD, Perl 5.6.1, PostgreSQL 7.1.3

i get the following error message in the catalog-error.log
if access in UI -> Administration -> Access -> Groups ->
arbitrary group (e.g. Merchandiser) -> Show permissions.
(This is the access_permissions.html)
error.log:
217.235.35.156 hnD8SSb2:217.235.35.156 - [18/August/2003:11:31:56 +0200]
sitz_cat /cgi-bin/sitz_cat/ui.html Safe: Can't locate object method "Dump"
via package "Data::Dumper" (perhaps you forgot to load "Data::Dumper"?)
at /usr/local/lib/perl5/5.6.1/mach/Data/Dumper.pm line 445.
>
>
>
>       my @permissions = (
>         item          => 'Item editor',
>         page          => 'Page editor',
>         cat                   => 'Category editor',
>         tax                   => 'Tax editor',
>         shipping      => 'Shipping editor',
>         payment               => 'Payment editor',
>         affiliate     => 'Affiliates editor',
>         itemtype      => 'Item type editor',
>         pagetype      => 'Page type editor',
>         grouptype     => 'Group type editor',
>         matrix                => 'Matrix editor',
>         knar          => 'Knar editor',
>         access                => 'Administrator Permissions',
>         group         => 'Access Group editor',
>         perm          => 'Permission editor',
>         layout                => 'Layout editor',
>       );
>       my %extra = qw/userdb 1 order 1/;
...
<snip>

Module Data::Dumper is installed:
--------------------------------
# /usr/local/bin/perl -MData::Dumper -e'print "D-D ist ok\n"'
D-D ist ok
#
--------------------------------
But i have read in related messages that it isn't required at all
if there is installed module Storable.
My optional module information from the UI is:

Archive::Tar found (v0.22).
SQL::Statement found (v0.1021).
Archive::Zip not found. Only needed for supplementary UserTag definitions.
Safe::Hole found (v0.08).
Bundle::LWP found (v1.09).
Spreadsheet::ParseExcel found (v0.2602).
Business::UPS found (v1.13).
Spreadsheet::WriteExcel found (v0.39).
Compress::Zlib found (v1.19).
Storable found (v2.06).
Crypt::SSLeay not found. Payment interface links via HTTPS/SSL.
Term::ReadKey found (v2.21).
DBI found (v1.32).
Term::ReadLine::Perl found (v0.99).
Digest::MD5 found (v2.20).
Tie::ShadowHash found (v2.00).
Image::Size not found. Optional but recommended for tag.
Tie::Watch found (v1.0).
LWP::Simple found (v1.35).
URI::URL found (v5.03).
MIME::Base64 found (v2.12).

Furthermore this error occurs in Merchandising ->
Generate "others who..." (build_related.html):

217.235.35.84 - [24/July/2003:09:29:18 +0200]
sitz_cat /cgi-bin/sitz_cat/admin/build_related.html
Safe: Can't locate object method "Dump" via package "Data::Dumper"
(perhaps you forgot to load "Data::Dumper"?) at
/usr/local/lib/perl5/5.6.1/mach/Data/Dumper.pm line 445.
>
>
>       my $db = $Db{orderline};
>       return "NO ORDERLINE table???!" if ! $db;
>       my $start = tag_data( qw/mv_metadata lookup_exclude orderline/ );
>
>       my $query = "select code,order_number,sku,username from orderline ";
>       if($start) {
>               $query .= " where order_number > '$start'";
>       }
>       else {
>               %sku = ();
...
<snip>

The other pages and the order process work properly (i think).
I don't know what was wrong installed and where to look for.
In both cases the error-messages come after a [perl tables=...] call.
In the pages are lots of properly working [perl] tags - so i'm lost...

Does somebody have a hint? I'm grateful to each reference.

Thank you
Joachim Schubert
--