diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-08-06 16:21:33 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-08-06 16:21:33 +0200 |
commit | 57e8bb56a3710a6d9253615e8998f737f9ac038f (patch) | |
tree | afc4ac16469ce05ec0b5c558b4e0eb45408ec548 | |
parent | 6763a61721db7d00b3c5024d91dfb063ad8b63d0 (diff) | |
download | perl-app-clerk-57e8bb56a3710a6d9253615e8998f737f9ac038f.tar.gz perl-app-clerk-57e8bb56a3710a6d9253615e8998f737f9ac038f.tar.xz |
implement setting for random number of songs
-rwxr-xr-x | clerk | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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(); } } |