Row level permissions issue

CREATE OR REPLACE FUNCTION create_view (character varying,
					character varying,
					character varying)   RETURNS boolean
	LANGUAGE plperl
	AS $_X$
	my ($table, $key, $op_key) = @_;
	my $sql;

	$sql = qq{
		select * from information_schema.tables where table_name = '$table'
	};
	my $rv = spi_exec_query($sql);
	my $drop_current_view = 0;
	foreach my $row (@{$rv->{rows}}) {
		if ($row->{table_schema} eq 'public' && $row->{table_type} eq 'BASE TABLE') {
			$sql = qq{
				alter table $table set schema master
			};
			my $srv = spi_exec_query($sql);
		}
		if ($row->{table_schema} eq 'public' && $row->{table_type} eq 'VIEW') {
			$drop_current_view = 1;
		}
		
	}

	if ($drop_current_view) {
		$sql = 	qq{
			drop view public.$table
		};
		my $srv = spi_exec_query($sql);
	}

	$sql = qq{
		drop trigger if exists permission_trigger_$key$table on master.$table cascade
	};
	my $srv = spi_exec_query($sql);

	$sql = qq{
		create trigger permission_trigger_$key$table after INSERT or DELETE or UPDATE of $key
			on master.$table 
			for each row execute procedure master.permission_trigger('$key')
	};
	$srv = spi_exec_query($sql);
	

	my $key_as_varchar = $key.'::varchar';
	$sql = qq{
		create view public.$table as 
			select master.$table.* from master.$table
			where true in (select permission_read 
					from master.permissions 
					where permission_table = '$table' and
						permission_field = '$key' and
						permission_key = $key_as_varchar and
						(permission_region_id = session_user or
						 permission_region_id = 'ALL' or
						 permission_region_id in 
							(select region_id from master.regions 
							where region_parentage_tree ilike '%'||session_user||'%')));

	};
	$srv = spi_exec_query($sql);

	$sql = qq{
		grant all on public.$table to public
	};
	$srv = spi_exec_query($sql);

	$sql = qq{
		select grant_permission('ALL', '$table', '$key', $key_as_varchar, 'true') from master.$table
	};
	$srv = spi_exec_query($sql);


	my @old_columns; my @new_columns; my @upds;
	$sql = qq{
		select * from information_schema.columns where table_name = '$table' and table_schema = 'master'
	};
	$rv = spi_exec_query($sql);
	foreach my $row (@{$rv->{rows}}) {
		push(@old_columns, $row->{column_name});
		my $new = 'new.'.$row->{column_name};
		$new = "coalesce($new, $row->{column_default})" if ($row->{column_default});
		warn "column default activated as $new" if ($row->{column_default});
		push(@new_columns, $new);
		push(@upds, "$row->{column_name} = new.$row->{column_name}");
	}
	my $insquery = "INSERT INTO master.$table (".join(',', @old_columns).") VALUES (" . join(',', @new_columns) . ')';
	my $updquery = "UPDATE master.$table SET ".join(',', @upds) . " WHERE ($table.$op_key = old.$op_key)";

	$sql = qq {
		CREATE RULE insert_$table AS ON INSERT TO $table DO INSTEAD 
			$insquery 
	};
	$srv = spi_exec_query($sql);
	$sql = qq {
		CREATE RULE update_$table AS ON UPDATE TO $table DO INSTEAD 
			$updquery and has_permission('update', '$table', '$key', OLD.$key_as_varchar);
	};

	$srv = spi_exec_query($sql);
	$sql = qq {
		CREATE RULE delete_$table AS ON DELETE TO $table DO INSTEAD 
			DELETE from master.$table where $op_key = OLD.$op_key and
				has_permission('delete', '$table', '$key', OLD.$key_as_varchar);
	};
	$srv = spi_exec_query($sql);
	return "true";

$_X$;


CREATE OR REPLACE FUNCTION create_view (character varying,
					character varying) RETURNS BOOLEAN
	as 'select create_view($1, $2, $2);'
	LANGUAGE SQL;

select create_view('tablename', 'primary key column'); 

select create_view('tablename', 'permission column', 'primary key column');