Initial revision
[OpenSRF.git] / src / perlmods / OpenSRF / DOM / Element / searchCriteria.pm
1 package OpenSRF::DOM::Element::searchCriteria;
2 use base 'OpenSRF::DOM::Element';
3 use OpenSRF::DOM;
4 use OpenSRF::DOM::Element::searchCriterium;
5
6 sub new {
7         my $self = shift;
8         my $class = ref($self) || $self;
9
10         if (@_ == 3 and !ref($_[1])) {
11                 my @crit = @_;
12                 @_ = ('AND', \@crit);
13         }
14
15         my ($joiner,@crits) = @_;
16
17         unless (@crits) {
18                 push @crits, $joiner;
19                 $joiner = 'AND';
20         }
21
22         my $collection = $class->SUPER::new(joiner => $joiner);
23
24         for my $crit (@crits) {
25                 if (ref($crit) and ref($crit) =~ /ARRAY/) {
26                         if (ref($$crit[1])) {
27                                 $collection->appendChild( $class->new(@$crit) );
28                         } else {
29                                 $collection->appendChild( OpenSRF::DOM::Element::searchCriterium->new( @$crit ) );
30                         }
31                 } else {
32                         $collection->appendChild($crit);
33                 }
34         }
35         return $collection;
36 }
37
38 sub toSQL {
39         my $self = shift;
40
41         my @parts = ();
42         for my $kid ($self->childNodes) {
43                 push @parts, $kid->toSQL;
44         }
45         return '(' . join(' '.$self->getAttribute('joiner').' ', @parts) . ')';
46 }
47
48 1;