$sth->execute;
}
- my @results;
- while (my $data=$sth->fetchrow_hashref) {
- push(@results,$data);
- }
- $sth->finish;
- $dbh->disconnect;
- return (scalar(@results),\@results);
+ my @results;
+ while (my $data=$sth->fetchrow_hashref) {
+ push(@results,$data);
+ }
+ $sth->finish;
+ return (scalar(@results),\@results);
}
my $input = new CGI;
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => {parameters => 1},
+ flagsrequired => {parameters => 'parameters_remaining_permissions'},
debug => 1,
});