X-Git-Url: http://erislabs.net/gitweb/?p=id3fs.git;a=blobdiff_plain;f=lib%2FID3FS%2FPath.pm;h=012cba6d19d9a60cec82c8b7d94f66b457ca26bd;hp=86f1a0037abd7e54e53b18116f0fb2e7399925f3;hb=4ed458e770bcb52bf90b05844f2a0c5a9713ee6f;hpb=a35e6751812e8e9314443a0fc9a701796d4b2ac9

diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm
index 86f1a00..012cba6 100644
--- a/lib/ID3FS/Path.pm
+++ b/lib/ID3FS/Path.pm
@@ -864,35 +864,6 @@ sub constraints_tag_list
     return(\@tags, \@tags_vals, $lasttag);
 }
 
-
-sub bare_tags
-{
-    my($self)=@_;
-    my $sql=("SELECT tags.name FROM tags\n" .
-	     "WHERE tags.parents_id=''\n" .
-	     "GROUP BY tags.name\n");
-    my @names=$self->{db}->cmd_firstcol($sql);
-    return (@names);
-}
-
-sub tags_with_values
-{
-    # FIXME: only shows one level of tag depth
-    my($self)=@_;
-    my $sql=("SELECT p.name, t.name  FROM tags t\n" .
-	     "INNER JOIN tags p ON t.parents_id=p.id\n" .
-	     "GROUP BY p.name, t.name\n");
-#    print "SQL: $sql\n";
-    my $result=$self->{db}->cmd_rows($sql);
-    my $tags={};
-    for my $pair (@$result)
-    {
-	push(@{$tags->{$pair->[0]}}, $pair->[1]);
-    }
-    return $tags;
-}
-
-
 sub filter
 {
     my($self, @dirs)=@_;