#!/usr/bin/perl -Tw -I. -I/usr/local/positive/Perl 

use strict;
use Pos::Policy::LayeredBurrito ();
use Pos::Webtop::Toolbox ();

my $tb = Pos::Webtop::Toolbox->new();
my $db = $tb->getPolicyDb();

my $burrito = Pos::Policy::LayeredBurrito->new( db=> $db );

#my $ret = $burrito->assignValuesAtLayer(
#	layer=> 'USER_PREF',
#	id=> 192,
#	typeId=> 40,
#	userId=> 192,
#	action=> "portal",
#	values=> [
#		{
#			type=> "REQUIRED",
#			value=> "1"
#		}
#	]
#);
#
#if ( $ret ) 
#{
#	$db->commit();
#}
#else
#{	
#	$db->rollback();
#}
#

my $values = $burrito->getPolicyValues( layer=> "USER", id=> 192, policyTypeId=>160 );

foreach my $val ( @{ $values } )
{
	print $val->{'policyType'} . ": " . $val->{'policyValue'} . "\n";
}