Hi WK,

Thanks for the reply. Line 577 is the print statement  print $key $input_hash->{ $key } . "\n"; In the foreach. I know I shouldn't be printing here however, I just want to see what value comes across for for example $input_hash->{ '13' } before I create a DB record based on that value.So I guess I just need help figuring out how to see or get the value out of $input_hash->{ID NUMBER}.



2015-08-27 10:07 GMT-05:00 WK <wanradt@gmail.com>:
2015-08-27 17:28 GMT+03:00 Richard Reina <gatorreina@gmail.com>:

> After figuring out how to accommodate my placeholder in selectall_hashref I
> did this:
>
>  my $Accomps = $dbh->selectall_hashref( $q, 'ID', \%attr, $Sid );

If you need placeholder here, but you don't have need for any
attributes, you may use `undef` here

my $Accomps = $dbh->selectall_hashref( $q, 'ID', undef, $Sid );

> Then as you suggested I do:
>
>  # get parameter for accomp type keys
>       foreach my $key ( keys %$Accomps ) {
>       print "Checking: " . $key . " for value.\n";
>       if ( param( $key ) ) {
>           $input_hash->{ $key } = $Accomps->{ $key };
>           print $key $input_hash->{ $key } . "\n";
>       }
>       }
>
> (just printing temporarily to see if it trapped the values)

Here we actually don't need values of $Accomps-hashref, we just using
it as list to check out form values, so depending of your futher
needs, you may assign your specific value here, like, for example:

           $input_hash->{ $key } = 1;

> However, I get this error:
>
>  Route exception: Can't use string ("1") as a symbol ref while "strict refs"
> in use at /home/richard/Dancer2/MyApp/bin/../lib/MyApp.pm line 557.
>
> Any idea what I am doing wrong?

What is on line 577 of your MyApp.pm?

Wbr,
--
Kõike hääd,

Gunnar
_______________________________________________
dancer-users mailing list
dancer-users@dancer.pm
http://lists.preshweb.co.uk/mailman/listinfo/dancer-users