id3fs-tag: set genre

[id3fs.git] / bin / id3fs-tag

diff --git a/bin/id3fs-tag b/bin/id3fs-tag
index 42650c3..c79a5b3 100755 (executable)
--- a/bin/id3fs-tag
+++ b/bin/id3fs-tag
@@ -151,18 +151,16 @@ sub do_display
     my $v1genre=$file->v1genre();
     my @tags=$file->tags();
     @tags = map { (ref($_) eq "ARRAY") ? join('/', grep {defined;} @{$_}) : $_; } @tags;
-    use Data::Dumper;
-    print Dumper \@tags;
     if($verbose)
     {
        print $file->path(), ":\n";
-       print "tracknum: $tracknum\n" if($tracknum);
-       print "artist: $artist\n"     if($artist);
-       print "album: $album\n"       if($album);
-       print "song: $track\n"        if($track);
-       print "year: $year\n"         if($year);
-       print "v1genre: $v1genre\n"   if($v1genre);
-       print "comment: $comment\n"   if($comment);
+       print "  tracknum: $tracknum\n" if($tracknum);
+       print "  artist: $artist\n"     if($artist);
+       print "  album: $album\n"       if($album);
+       print "  song: $track\n"        if($track);
+       print "  year: $year\n"         if($year);
+       print "  v1genre: $v1genre\n"   if($v1genre);
+       print "  comment: $comment\n"   if($comment);
     }
     else
     {
@@ -170,10 +168,12 @@ sub do_display
                    $year, $v1genre, $comment);
        @fields=map { defined($_) ? $_ : ""; } @fields;
        print join(':', @fields), "\n";
-       if(@tags)
-       {
-           print "tags:", join(", ", @tags), "\n";
-       }
+    }
+    if(@tags)
+    {
+       if($verbose) { print "  tags: "; }
+       else         { print $file->path() . ":tags:"; }
+       print join(", ", @tags), "\n";
     }
 }