id3fs-tag: -V: summarize tags in directories

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

diff --git a/lib/ID3FS/AudioFile.pm b/lib/ID3FS/AudioFile.pm
index 01722ce..ffd78d6 100644 (file)
--- a/lib/ID3FS/AudioFile.pm
+++ b/lib/ID3FS/AudioFile.pm
@@ -74,7 +74,6 @@ sub album     { return(shift->set("album", @_));    }
 sub track     { return(shift->set("track", @_));    }
 sub tracknum  { return(shift->set("tracknum", @_)); }
 sub v1genre   { return(shift->set("v1genre", @_));  }
-sub genre     { return(shift->set("genre", @_));    }
 sub comment   { return(shift->set("comment", @_));  }
 sub audiotype { return(shift->set("audiotype"));    }
 sub haspic    { return(shift->set("haspic"));       }
@@ -174,4 +173,27 @@ sub stripslashes
     return $text;
 }
 
+# This location for these subs is pretty much arbitrary
+sub uniq
+{
+    # class method
+    shift if(ref($_[0]) eq "ID3FS::AudioFile");
+    my (@things)=@_;
+    my %hash=();
+    @hash{@things}=();
+    return(sort keys(%hash));
+}
+
+sub list_remove
+{
+    my($remove, $list)=@_;
+    return(()) unless($list && @$list);
+    my @list=@$list;
+    for my $tag (@$remove)
+    {
+       @list=grep { $_ ne $tag; } @list;
+    }
+    return(@list);
+}
+
 1;