node_to_sql

[id3fs.git] / lib / ID3FS / Path.pm

diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm
index 8e7c791..a27cd7e 100644 (file)
--- a/lib/ID3FS/Path.pm
+++ b/lib/ID3FS/Path.pm
@@ -301,7 +301,13 @@ sub parse
     @{$self->{elements}}=$self->sort_elements(@{$self->{elements}});
     my $thing=$self->elements_to_tree([ @{$self->{elements}} ]);
     $self->{tagtree}=$self->elements_to_tree([ @{$self->{elements}} ]);
-#    print($self->{tagtree}->print(), "\n") if $self->{tagtree};
+    if($self->{tagtree})
+    {
+       ($self->{sqlconditions},
+        $self->{andsneeded}) = $self->{tagtree}->to_sql();
+       print("SQL CONDITION(", $self->{andsneeded}, "): ",
+             $self->{sqlconditions}, "\n");
+    }
 }
 
 sub state