<%args> $c => 'item_submit' <%shared> my %IARGS; my $current_cat; my $database ='chaliceart'; my $database_login = 'chaliceart'; my $database_pass = 'chaliceart'; my $dbh; <%init> %IARGS = %ARGS; use Data::Dumper; $dbh = DBI->connect("DBI:mysql:$database", $database_login, $database_pass) || $m->comp("error_noreturn", message => "Database name,
login, or password is incorrect."); $current_cat = $dbh->selectrow_array("Select category_id from Classified_connect where ad_id = ?",undef,$m->request_args->{id}); <& $c&> <%def item_submit> <%init> my $description_line = $m->request_args->{ad_title} . " - " . $m->request_args->{option} . " - " . $m->request_args->{comment};
testing