summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-06 16:21:33 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-06 16:21:33 +0200
commit57e8bb56a3710a6d9253615e8998f737f9ac038f (patch)
treeafc4ac16469ce05ec0b5c558b4e0eb45408ec548
parent6763a61721db7d00b3c5024d91dfb063ad8b63d0 (diff)
downloadperl-app-clerk-57e8bb56a3710a6d9253615e8998f737f9ac038f.tar.gz
perl-app-clerk-57e8bb56a3710a6d9253615e8998f737f9ac038f.tar.xz
implement setting for random number of songs
-rwxr-xr-xclerk5
1 files changed, 2 insertions, 3 deletions
diff --git a/clerk b/clerk
index 2face8f..535daad 100755
--- a/clerk
+++ b/clerk
@@ -219,9 +219,8 @@ sub random {
if ($action eq "Settings\n") {
my @action_items = ("5\n", "10\n", "15\n", "20\n", "25\n", "30\n");
my $action = backend_call(\@action_items);
- chomp $songs;
- $cfg->param(-block=>'General');
- $general_cfg->{songs} = $action;
+ chomp $action;
+ $cfg->param("General.songs", $action);
$cfg->save();
}
}