[ic] sql queries inside perl tag

[Brian Kosick]

Forgive me for sounding ignorant, plus I'm coming up on 13 hour work day 
here so there are mis-firing synapses in my head, but where would I place 
perl -W?

I tried switching the line in /usr/local/interchange/bin/interchange
to read #!/usr/local/bin/perl -W

But I still get the exact same error message in the error.log

I'd like to clarify something.  Your suggesting that I try
"5,6,7,8"SELECT sun FROM products WHERE code = '[item-code]'"/5,6,7,8"  ???


I think that I've spent more time searching the archives today than coding  ;-)

Tchuss



At 06:09 PM 8/1/01 -0700, you wrote:
>At 05:47 PM 8/1/2001 -0400, you wrote:
>>Hello all,
>>         I'm having problems with some code inside of a perl 
>> tag.  Unfortunatley, I have a products table with a column (sun) that 
>> has a list of comma seperated numbers  (ex  5,6,7,8)
>>
>>and a sun table that has the correspondings values
>>
>>1       NO Shade
>>2       Some Shade
>>3       Half shade
>>4       Some sun
>>etc etc
>>
>>I realize that this is a poor db design, but it was written years ago by 
>>a predecessor  ;-)
>>
>>Any ways this is what I'm trying to do...
>>I need to look up the value in products->sun  (5,6,7,8)
>>split the results into an array, then do a lookup for each number in the 
>>array and display the results
>>
>>Here's my code:
>>[perl]
>>  my $suninfo = [sql]SELECT sun FROM products WHERE code = 
>> '[item-code]'[/sql];
>>  my $sunarray = split(/,/, $suninfo);
>>  my $i = 0;
>>  my $numelements = scalar(@sunarray);
>>  while ( $i < $numelements)
>>  {
>>    $textvalue = [sql]SELECT val FROM sun WHERE code = $sunarray[$i][/sql];
>>    print($textvalue);
>>    $i++;
>>  }
>>
>>[/perl]
>>
>>
>>Here's the error log message:
>>
>>207.166.192.127 v8iccWcx:207.166.192.127 - [01/August/2001:17:50:01 
>>-0400] bluestone /cgi-bin/bluestone.cgi/ABDIP.html Safe: syntax error at 
>>(eval 377) line 2, near "]SELECT sun "
>> > Missing right curly or square bracket at (eval 377) line 3, within pattern
>> >
>> >
>> >                               my $suninfo = [sql]SELECT sun FROM 
>> products WHERE code = 'ABDIP'[/sql];
>> >                               my $sunarray = split(/,/, $suninfo);
>> >                               my $i = 0;
>> >                               my $numelements = scalar(@sunarray);
>> >                               while ( $i < $numelements)
>> >                               {
>> >                                       $textvalue = [sql]SELECT val 
>> FROM sun WHERE code = $sunarray[$i][/sql];
>> >                                       print($textvalue);
>> >                                       $i++;
>> >                               }
>>
>>What am I missing???!!!?!?!?!?!?!
>>Brian Kosick
>>Web Programmer
>>New Age Consulting Service, Inc.
>>216-619-2000
>>briank@nacs.net
>
>And it runs OK in '$perl -W'? Just change [sql]... to "5,6,7,8".
>
>Dan Browning, Cyclone Computer Systems, danb@cyclonecomputers.com
>
>_______________________________________________
>interchange-users mailing list
>interchange-users@lists.akopia.com
>http://lists.akopia.com/mailman/listinfo/interchange-users

Brian Kosick
Web Programmer
New Age Consulting Service, Inc.
216-619-2000
briank@nacs.net