3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.49 2004/11/03 14:12:34 jonen |
7 |
|
# replaced print with logger->info |
8 |
|
# |
9 |
|
# Revision 1.48 2004/10/28 11:35:51 jonen |
10 |
|
# + bugfix related to select-criterias(filter) |
11 |
|
# |
12 |
# Revision 1.47 2004/08/31 14:26:08 jonen |
# Revision 1.47 2004/08/31 14:26:08 jonen |
13 |
# updated |
# updated |
14 |
# |
# |
730 |
|
|
731 |
} elsif (my $guid = $query->{options}->{GUID}) { |
} elsif (my $guid = $query->{options}->{GUID}) { |
732 |
$type = 'TRANSPARENT'; |
$type = 'TRANSPARENT'; |
733 |
$query->{criterias} = [ { key => 'guid', op => 'eq', val => $guid } ]; |
if(ref($query->{criterias}) eq 'ARRAY') { |
734 |
|
push @{$query->{criterias}}, { key => 'guid', op => 'eq', val => $guid }; |
735 |
|
} else { |
736 |
|
$query->{criterias} = [ { key => 'guid', op => 'eq', val => $guid } ]; |
737 |
|
} |
738 |
|
} |
739 |
# if operator is different (dispatcher for 'getListFiltered') |
# if operator is different (dispatcher for 'getListFiltered') |
740 |
} elsif (my $op = $query->{options}->{op}) { |
if (my $op = $query->{options}->{op}) { |
741 |
$type = 'TRANSPARENT'; |
$type = 'TRANSPARENT'; |
742 |
$query->{criterias} = [ { key => $query->{options}->{meta_label}, op => $op, val => $query->{options}->{meta_value} } ]; |
if(ref($query->{criterias}) eq 'ARRAY') { |
743 |
|
push @{$query->{criterias}}, { key => $query->{options}->{meta_label}, op => $op, val => $query->{options}->{meta_value} }; |
744 |
|
} else { |
745 |
|
$query->{criterias} = [ { key => $query->{options}->{meta_label}, op => $op, val => $query->{options}->{meta_value} } ]; |
746 |
|
} |
747 |
} |
} |
748 |
|
|
749 |
# HACK: special case: querying by id does not translate into a common tangram query |
# HACK: special case: querying by id does not translate into a common tangram query |
864 |
my $nodename = $query->{node}; |
my $nodename = $query->{node}; |
865 |
my $newnode = $self->createNode($nodename); |
my $newnode = $self->createNode($nodename); |
866 |
my $id = $self->{_COREHANDLE}->insert($newnode); |
my $id = $self->{_COREHANDLE}->insert($newnode); |
867 |
|
|
868 |
print "Saved new node $nodename with GUID $newnode->{guid}, OID '$id': " . Dumper($newnode) . "\n"; |
$logger->info( __PACKAGE__ . "->sendQuery: Saved new node $nodename with GUID $newnode->{guid}, OID '$id'."); |
869 |
|
|
870 |
return $newnode; |
return $newnode; |
871 |
|
|