[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
Re: [mv] Interchange UI problem
****** message to minivend-users from Michael Hall <mhall@riverside.org> ******
On Sun, Jul 30, 2000 at 09:39:13AM -0400, Mike Heins wrote:
<snip>
Also having problems with the Interchange UI and Safe (see previous
message) although my problem seems to be a bit different. I tried
the patch you posted but still get the same error. Playing with it
some more it seems to be localized to products (items), when trying
to edit an item no data is displayed, but customers, orders, etc.
seem to work fine.
Don't know what info may be helpful, but its Interchange 4.5.3,
Bundle::Minivend installed, storable is being used. System is
Linux (2.2.16), perl 5.6.0 (-DUSE_THREADS).
> Ahh, then there must be a situation where DumperX is included even if
> Storable is in there. The easy solution is to invalidate the use of
> DumperX if Storable is in use; there is no need for both.
>
> *** /rt/Util.pm Sun Jul 30 09:36:48 2000
> --- /r/Util.pm Thu Jul 20 03:15:47 2000
> ***************
<snip>
Heres the full error message:
209.102.66.11 sGnU7Tbt:209.102.66.11 - [30/July/2000:11:50:13 -0700] simple /cgi-bin/simple/process.html Safe: Global symbol "%char2entity" requires explicit package name at (eval 252) line 1.
>
> ; my $html = <<'_MV_ASP_EOF964982848';
>
>
> _MV_ASP_EOF964982848
> 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,
> });
> 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.");
> }
> foreach my $col (@cols) {
> if($CGI->{ui_hide_key} and $col eq $keycol) {
> $Document->write(<<EOF);
> <INPUT TYPE=hidden NAME="$col" VALUE="$Scratch->{arg}">
> EOF
> next;
> }
> my $currval;
> if($CGI->{$col} and !tag_data($table, $col, $key) ) {
> $currval = $CGI->{$col};
> }
> my $label = $Tag->field_label($table, $col);
> my $meta = '';
> if($super) {
> $meta .= '<FONT SIZE=1><BR>';
> # Get global variables
> my $base = $Tag->var('UI_BASE', 1);
> my $page = $Tag->var('MV_PAGE', 1);
> $meta .= $Tag->page(
> { href => "$base/flex_editor",
> form => qq{
> item_id=${table}::$col
> mv_data_table=mv_metadata
> ui_return_to=$page
> ui_return_to=item_id=$Scratch->{arg}
> ui_return_to=mv_data_table=$table
> }
> });
> $meta .= 'meta</A></FONT>';
> }
> my $display = $Tag->display({
> table => $table,
> column => $col,
> key => $key,
> default => $default,
> });
> $Document->write(<<EOF) if $break{$col};
> <tr>
> <td colspan=2 bgcolor=#999966><img src="admin/cleardot.gif" width=600 height=1></td>
> </tr>
> EOF
> $Document->write(<<EOF);
> <tr>
> <td bgcolor=#CCCC99 align=right width=150>
> $label$meta
> </td>
> <td bgcolor=#CCCC99 width=450>
> $display
> </td>
> </tr>
> EOF
> }
> ;
> ; my $html = <<'_MV_ASP_EOF964982848';
>
>
> _MV_ASP_EOF964982848
> chop($html);
> HTML( $html );
>
>
--
She's dead Jim...for God's sake, get off !
Mike Hall,
Unix Admin - Rock Island Communications <mikeh@rockisland.com>
System Admin - riverside.org <mhall@riverside.org>
-
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
