[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
[mv] Interchange UI problem
****** message to minivend-users from Stefan Hornburg <racke@linuxia.de> ******
I'm in the process setting up UI for a customer. The problem is
that UI displays no database entries. The log file says:
192.109.225.59 kDrcXUgn:192.109.225.59 - [26/Juli/2000:12:05:48 +0200] indepensis /track/indepensis/admin/flex_editor Safe: Can't locate object method "Dumpxs" via package "Data::Dumper" at /usr/lib/perl5/5.005/Data/Dumper.pm line 429.
>
> ; my $html = <<'_MV_ASP_EOF964605652';
>
>
> _MV_ASP_EOF964605652
> chop($html);
> HTML( $html );
>
> my $table = $Values->{mv_data_table};
> my $db = $Db{$table};
> my %break;
> if($CGI->{ui_break_before}) {
> my @tmp = grep /\S/, split /[\s,\0]+/, $CGI->{ui_break_before};
> @break{@tmp} = @tmp;
> }
> if(!$db) {
> return "<TR><TD>Broken table '$table'</TD></TR>";
> }
> my $key = $Scratch->{arg};
> my $keycol = $db->config('KEY');
> my (@cols) = split /\s+/, $Tag->db_columns( {
> name => $table,
> columns => $Values->{ui_data_fields},
> passed_order => 1,
> });
> Log("COLS: " . join('+',@cols, "\n"));
> my $super = $Tag->if_mm('super');
>
> if($db->record_exists($key)) {
> Log("Should work. key=$key table=$table");
> }
> else {
> $CGI->{$Values->{ui_data_key_name}} = $key;
> undef $key;
> Log("key is undeffed.");
> }
>
After commenting out all lines from Util.pm whose draw DumperX in,
the code works. Fiddling with the UI page tells me that the
problem starts if ->record_exists is included.
Ciao
Racke
--
LinuXia Systems && Cobolt NetServices, eCommerce and more
Shop- und Datenbanklösungen mit MiniVend, Firewalls auf Debian-Basis
http://www.linuxia.de - http://www.cobolt.net
--> Coding from hell and back <---
-
To unsubscribe from the list, DO NOT REPLY to this message. Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list
