return $new_obj;
}
-# deprecated!
-sub connect_kvs {
- my $self = shift;
- my $r = Redis->new(server => $self->{options}->{KeyValueStore}->{host});
- $r->connect;
- return $r;
-}
-
sub logger {
my $self = shift;
sub info { shift->logger->info(@_); }
-sub filter_item {
- my ($self, $security_level, $faculties, $item) = @_;
- for my $lv (keys %$faculties) {
- if ($security_level < $lv) {
- for my $k (@{$faculties->{$lv}}) {
- delete $item->{$k} if defined $item->{$k};
- }
- }
- }
- return $item;
-}
-
1;
return $unique ? undef : [];
}
-
# get tags
my $tags_model = $self->new_instance_of("Tags");
my $tags = $tags_model->select_for_items("submission", "subid", $items) || {};
my $subid = $item->{subid};
$item->{tags} = $tags->{$subid} if $tags->{$subid};
$self->_generalize($item);
- $self->filter_item($sec_lv, FACULTIES, $item);
}
return $unique ? $items->[0] : $items;
}