[ic] [perl] problem

[Götz Verdieck]

Hi list 

when I use the following code
nothing will be returned:

[set cat_wahl]LiYv[/set]
[scratch cat_wahl]
[perl]
$sql='select distinct q_leiter from products where
category='.$Scratch->{cat_wahl};
$set=$Db{products}->query($sql);

for(@$set) {
     $out .= "NAME: $_->[0]<BR>";
 }
$out .= "First value:  $set->[0][0]<BR>";
return $out;
[/perl]

The strange think is when I change the row return $out; to return $sql;
I can see the correct string:
select distinct q_leiter from products where category=LiYv.

The next code gives me back what I want( but I need the category value to be
changed depending on the cat_wahl variable) :
[perl]
$sql='select distinct q_leiter from products where category="LiYv"';
$set=$Db{products}->query($sql);

for(@$set) {
     $out .= "NAME: $_->[0]<BR>";
 }
$out .= "First value:  $set->[0][0]<BR>";
return $out;
[/perl]


Can someone help me ?


Goetz Verdieck

==============================
Goetz.Verdieck@com4office.de