[ic] Delete row + Column does not exist
tamas.kohegyi@unforgettable.com
tamas.kohegyi@unforgettable.com
Thu, 15 Mar 2001 12:28:48 +0200
Hi all,
Thanks for the delete_column idea (from Ed), now it works for me as:
[tag flag write]current_table[/tag]
[perl tables="current_table"]
$ref = $Db{current_table}; #set reference
$cart_sku = $Values->{'current_key'};
$ref->delete_record($cart_sku); #delete the record from the database
[/perl]
----
New problem:
I created this to check something is the row:
[tag flag write]current_table[/tag]
[perl tables="current_table"]
$ref = $Db{current_table}; #set reference
$cart_sku = $Values->{'filename'}; #this is the row we have to check
#if record does not exist, we have to do something
$ref->record_exists($cart_sku) or do { I_have_to_do_something; return; };
#record exists.
do some other checks in the row...
[/perl]
It works well if the row exists.
But when the row does not exist, I got this error message:
a.b.c.d cMyY6HKo:a.b.c.d - [15/March/2001:12:07:28 +0200] ctlg /cgi-bin/ctlg/process Safe: There is no column named
'x' at /local/mvend/lib/Vend/Table/Common.pm line 217.
How can I handle this problem? (Exeption handling? Other setting in [perl] tag?)
Thanks,
Tamas