On 4/30/06 2:24 PM, Michael Lackhoff wrote:
> This script works perfectly well when run from the command line:
>  use PVonline::Therapeuten;
> 
>  sub groups_of_user {
>    return map {$_->name} PVonline::Therapeuten->new(nr=>1)->gruppen;
>  }
> 
>  print groups_of_user();
>  # prints the names of all groups, user 1 is member of
> 
> But when I do the same within a mod_perl authz handler script:
> sub groups_of_user {
>   # called from the handler
>   my @groups = 
>     map {$_->name} PVonline::Therapeuten->new(nr=>1)->load->ggruppen;
>   warn @groups;
>   # gives: use of uninitialized value in warn at ...
>   return @groups;
> }
> 
> gives "use of uninitialized value in warn at ..."

I can't think of any reason this would behave any differently under
mod_perl.  Try printing the SQL that it's running and then dumping the
relevant parts of the results:

    # Turn debugging on temporarily
    local $Rose::DB::Object::Debug = 1;
    local $Rose::DB::Object::Manager::Debug = 1;

    # Get the objects
    my @groups = PVonline::Therapeuten->new(nr=>1)->load->ggruppen;

    # Assumes "id" is the primary key of the groups table.
    foreach my $group (@groups)
    {
      no warnings;
      print STDERR "GOT: ", $group->id, ': ', $group->name, "\n";
    }

Does that show anything interesting in the error log?

-John





-------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Rose-db-object mailing list
Rose-db-object@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rose-db-object

Reply via email to