Hi Guys:
 
I'm trying to execute the following:
 
 # get the purchased product code
 my $prdcode = $Schema->User_t->select
           ( select => [ SUBSTRING( $Schema->User_t->products_c,0,3 ) ],
             where  => [ $Schema->User_t->username_c, '=', $username ] );
I get the following error when it executes:
 
Not an ARRAY reference at /usr/lib/perl5/site_perl/5.8.0/URI/_query.pm line 45.
context: 
... 
41:  while (my($key,$vals) = splice(@new, 0, 2)) {
42:  $key = '' unless defined $key;
43:  $key =~ s/([;\/?:@&=+,\$\[\]%])/$URI::Escape::escapes{$1}/g;
44:  $key =~ s/ /+/g;
45:  $vals = [ref($vals) ? @$vals : $vals];
46:  for my $val (@$vals) {
47:  $val = '' unless defined $val;
48:  $val =~ s/([;\/?:@&=+,\$\[\]%])/$URI::Escape::escapes{$1}/g;
49:  $val =~ s/ /+/g;
... 
code stack:  /usr/lib/perl5/site_perl/5.8.0/URI/_query.pm:45
g /usr/local/apache/htdocs/pltech/pltech/ecomm/lib/url.mas:45
g /usr/local/apache/htdocs/pltech/pltech/ecomm/lib/redirect.mas:2
g /usr/local/apache/htdocs/pltech/pltech/ecomm/users/login_submit.html:35
g /usr/local/apache/htdocs/pltech/pltech/ecomm/syshandler:38
 
I have SUBSTRING declared in my SQL function list.  I tried a bunch of combos, no luck.  I'm using 0.73 version of Alzabo. 
Any help much appreciated....
 
regards,
Dave Cook