$sth_ideas->bind_param_inout(":l_proj",\$projects,0,{ora_type=>ORA_RSET});
	$sth_ideas->execute;
	
	while ($row = $projects->fetchrow_arrayref){
		
		$id=$row->[0];
		$name=$row->[1];
		$perm=$row->[2];
		
	push @proj, $id,$name,$perm;
				
	}
	return \@proj;