diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-09-30 13:42:54 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-09-30 13:42:54 +0200 |
commit | 64925211c6b2d3453abb5ba02ae13b6037e7cf97 (patch) | |
tree | 08a820c3965aff292f2e8d66e5d080ca547c5755 /clerk | |
parent | 18fa104cd547395a5ae137d298c30dbbfe5d7331 (diff) | |
download | perl-app-clerk-64925211c6b2d3453abb5ba02ae13b6037e7cf97.tar.gz perl-app-clerk-64925211c6b2d3453abb5ba02ae13b6037e7cf97.tar.xz |
Add ability to remove ratings
Diffstat (limited to 'clerk')
-rwxr-xr-x | clerk | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -450,7 +450,7 @@ sub ask_to_pick_settings { } sub ask_to_pick_ratings { - return backend_call([map { $_ . "\n" } qw/1 2 3 4 5 6 7 8 9 10/]); + return backend_call([map { $_ . "\n" } (qw/1 2 3 4 5 6 7 8 9 10 ---/), "Delete Rating"]); } sub action_db_entries { @@ -519,7 +519,12 @@ sub mpd_add_items { sub mpd_rate_items { my $rating = @_[1]; chomp $rating; - $mpd->sticker_value("song", "$_", "rating", "$rating") for @{$_[0]}; + if ($rating eq "Delete Rating") { + print "$rating\n"; + $mpd->sticker_value("song", "$_", "rating", undef) for @{$_[0]}; + } else { + $mpd->sticker_value("song", "$_", "rating", "$rating") for @{$_[0]}; + } } sub mpd_replace_with_items { @@ -559,7 +564,7 @@ sub mpd_reachable { $mpd->ping; } catch { $mpd->_connect; - }; + } } main; |