my $perm_field_value = $action_node->getAttribute('permission');
if ($perm_field_value) {
- my @perms = split '|', $action_node->getAttribute('permission');
+ my @perms = split '\|', $action_node->getAttribute('permission');
my @context_ous;
if ($action_node->getAttribute('global_required')) {
my $context_field_value = $action_node->getAttribute('context_field');
if ($context_field_value) {
- push @context_ous, $obj->$_ for ( split '|', $context_field_value );
+ push @context_ous, $obj->$_ for ( split '\|', $context_field_value );
} else {
for my $context_node ( $xpc->findnodes( "perm:context", $action_node ) ) {
my $context_field = $context_node->getAttribute('field');
push @context_ous, $remote_object->$context_field;
}
} else {
- push @context_ous, $obj->$_ for ( split '|', $context_field );
+ push @context_ous, $obj->$_ for ( split '\|', $context_field );
}
}
}
return $obj if ($self->{action} eq 'retrieve');
- return $e->session->request("open-ils.cstore.direct.$o_type.$self->{action}" => $obj )->gather(1);
+ my $val = $e->session->request("open-ils.cstore.direct.$o_type.$self->{action}" => $obj )->gather(1);
+
+ $e->commit;
}
sub search_permacrud {