From d37f9e03d8acde3100e40874535f860eaa15582b Mon Sep 17 00:00:00 2001
From: Ian Beckwith <ianb@erislabs.net>
Date: Sun, 17 Oct 2010 05:10:26 +0100
Subject: [PATCH] remove dead code

---
 lib/ID3FS/Path.pm | 104 ------------------------------------------------------
 1 file changed, 104 deletions(-)

diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm
index 9020f44..60ea5de 100644
--- a/lib/ID3FS/Path.pm
+++ b/lib/ID3FS/Path.pm
@@ -836,110 +836,6 @@ sub bare_not_subselect
     return($sql);
 }
 
-sub tags_subselect_and_not
-{
-    my($self,@constraints)=@_;
-    my ($tags, $tags_vals, $parent)=$self->constraints_tag_list(@constraints);
-    my @tags=@$tags;
-    my @tags_vals=@$tags_vals;;
-    my $cnt=1;
-    my @andclauses=();
-    my $sql='';
-    for my $tag (@tags)
-    {
-	if($cnt == 1)
-	{
-	    $sql="\tSELECT fxt" . scalar(@tags) . ".files_id FROM files_x_tags fxt1\n";
-	    push(@andclauses, "\t\tfxt${cnt}.tags_id=$tag");
-	}
-	else
-	{
-	    $sql .= ("\tLEFT JOIN files_x_tags fxt$cnt ON fxt" .
-		 ($cnt-1) . ".files_id=fxt${cnt}.files_id\n");
-	    push(@andclauses, "\t\tfxt${cnt}.tags_id IS NULL");
-	}
-	print "AND: @andclauses\n";
-	$cnt++;
-    }
-    if(@andclauses)
-    {
-	$sql .= "\tWHERE\n\t\t";
-	$sql .= join(" AND\n\t\t", @andclauses) . "\n";
-    }
-    $sql .= "\tGROUP BY fxt". scalar(@tags).".files_id\n";
-    return $sql;
-}
-
-
-sub tags_subselect_and
-{
-    my($self,@constraints)=@_;
-    my ($tags, $tags_vals, $parent)=$self->constraints_tag_list(@constraints);
-    my @tags=@$tags;
-    my @tags_vals=@$tags_vals;;
-    my $cnt=1;
-    my @andclauses=();
-    my $sql='';
-    for my $tag (@tags)
-    {
-	if($cnt == 1)
-	{
-	    $sql="\tSELECT fxt" . scalar(@tags) . ".files_id FROM files_x_tags fxt1\n";
-	}
-	else
-	{
-	    $sql .= ("\tINNER JOIN files_x_tags fxt$cnt ON fxt" .
-		 ($cnt-1) . ".files_id=fxt${cnt}.files_id\n");
-	}
-	push(@andclauses, "\t\tfxt${cnt}.tags_id = $tag");
-	print "AND: @andclauses\n";
-	$cnt++;
-    }
-    if(@andclauses)
-    {
-	$sql .= "\tWHERE\n\t\t";
-	$sql .= join(" AND\n\t\t", @andclauses) . "\n";
-    }
-    $sql .= "\tGROUP BY fxt". scalar(@tags).".files_id\n";
-    return $sql;
-}
-
-sub tags_subselect_or
-{
-    my($self,@constraints)=@_;
-    my ($tags, $tags_vals, $parent)=$self->constraints_tag_list(@constraints);
-    my @tags=@$tags;
-    my @tags_vals=@$tags_vals;;
-
-    my $sql=("\tSELECT files_x_tags.files_id FROM tags t1\n" .
-	     "\tINNER JOIN files_x_tags ON t1.id=files_x_tags.tags_id\n");
-    my @orclauses=();
-    my @andclauses=();
-    # FIXME: and / or?
-    if(@tags)
-    {
-	push(@andclauses, "( t1.parents_id=" . (defined($parent) ? $parent : "''") . " )");
-	push(@andclauses, "( t1.id IN ( " . join(', ', @tags) ." ) )");
-    }
-    for my $pair (@tags_vals)
-    {
-	my($tag, $val)=@$pair;
-	push(@orclauses, "( t1.parents_id=$tag AND t1.id=$val )");
-    }
-#    push(@andclauses, "( t1.parents_id=" . (defined($parent) ? $parent : "''") . " )");
-    if(@orclauses)
-    {
-	push(@andclauses, join("\n\t\tOR ", @orclauses));
-    }
-    if(@andclauses)
-    {
-	$sql .= "\tWHERE\n\t\t";
-	$sql .= join("\n\t\tAND ", @andclauses) . "\n";
-    }
-    $sql .= "\tGROUP BY files_x_tags.files_id\n";
-    return $sql;
-}
-
 sub constraints_tag_list
 {
     my($self, @constraints)=@_;
-- 
2.11.0