[ic] Error when deleting items

Simon Schaumuller simon@lemurian.com.au
Sat, 7 Oct 2000 00:35:09 +1000


Dear Mike,

    When i try and delete an item it comes up the following error are you
able to shed some light on the situation as i am unable to remove items...

Kindest Regards
Simon



203.164.26.62 BgaKZ2fh:203.164.26.62 - [07/October/2000:00:28:37 +3400]
lemurian /cgi-bin/lemurian/admin/item_edit.html Safe: Can't call method
"open_table" on an undefined value at
/usr/local/interchange/lib/Vend/Data.pm line 799.
>
>
>       delete $Scratch->{ui_location};
>       if($CGI->{ui_sequence_edit}) {
>               my $doit;
>               if($CGI->{item_id_left} =~ s/^(.*?),//) {
>                       $CGI->{item_id} = $1;
>                       $doit = 1;
>               }
>               elsif ($CGI->{item_id_left}) {
>                       $CGI->{item_id} = delete $CGI->{item_id_left};
>                       delete $CGI->{ui_sequence_edit};
>                       $doit = 1;
>               }
>               else {
>                       delete $CGI->{item_id};
>                       delete $CGI->{ui_sequence_edit};
>               }
>               return unless $doit;
>               $Scratch->{ui_location}
>                               = $Tag->area( {
>                                               href => 'admin/item_edit',
>                                               form => qq{
>
item_id=$CGI->{item_id}
>
item_id_left=$CGI->{item_id_left}
>
ui_sequence_edit=$CGI->{ui_sequence_edit}
>                                               },
>                                       });
>               return;
>       }
>
>       return unless $CGI->{item_id};
>       return unless delete $CGI->{deleterecords};
>       return unless $Tag->if_mm('tables', '=d');
>
>       delete $Scratch->{ui_location};
>       $Config->{NoSearch} = '';
>       my $tab = $CGI->{mv_data_table} or return;
>       my $db = $Db{$tab};
>       if(! $db) {
>               $Scratch->{error_message} = "<FONT CLASS=error>Error: no
<B>$tab</B> database.</FONT><BR>";
>               $Scratch->{ui_location} = "admin/error";
>               return;
>       }
>
>       for(grep $_, @{$CGI_array->{item_id}}) {
>               $db->delete_record($_)
>                       or push @errors, $@;
>       }
>       if(@errors) {
>               my $plural = @errors > 1 ? 's' : '';
>               return "<FONT CLASS=error>Error$plural:<UL><LI>" .
>                               join ("<LI>", @errors)                    .
>                               "</UL></FONT><BR>";
>       }
>       return;
>
>
203.164.26.62 BgaKZ2fh:203.164.26.62 - [07/October/2000:00:28:37 +3400]
lemurian /cgi-bin/lemurian/admin/item_edit.html Runtime error: Can't call
method "open_table" on an undefined value at
/usr/local/interchange/lib/Vend/Data.pm line 799.
>