* Fix some problems at user rights with guest account

2 files changed, 15 insertions, 3 deletions

diff --git a/html/mlist.tmpl b/html/mlist.tmpl
index 5b7847d..cf6b389 100644
--- a/html/mlist.tmpl
+++ b/html/mlist.tmpl
@@ -36,17 +36,24 @@
 
 
 <b>
+<?% IF allow('mplay') %?>
 <a href="#" onClick="Play('<?% gettext("Nothing selected!") %?>',document.musicform,'<?% param.proxy %?>')">
 [<?% gettext("Play selected songs") %?>]
 </a>
+<?% END %?>
+<?% IF allow('mrefresh') %?>
 <a href="?cmd=mrefresh">[<?% gettext("Update Music Database") %?>]</a>
+<?% END %?>
+<?% IF allow('mcovers') %?>
 <a href="?cmd=mcovers&data=force">[<?% gettext("Get new Covers") %?>]</a>
+<?% END %?>
 </b>
+<?% IF allow('mplay') %?>
 <br>
 <a href="#" onClick="selAll(document.musicform, 1)">[<?% gettext("Select all") %?>]</a>
 <a href="#" onClick="selAll(document.musicform, 0)">[<?% gettext("Unselect all") %?>]</a>
 <a href="#" onClick="reverse(document.musicform)">[<?% gettext("Reverse select") %?>]</a>
-
+<?% END %?>
 <p>
 <table border="0" width="95%">
 <?% IF data.size %?>
@@ -85,7 +92,9 @@
                 <?% NEXT IF fields.$c.match('^__') %?>
                 <?% IF c == 0; # Id Field %?>
                 <td>
+<?% IF allow('mplay') %?>
                     <input name='<?% albummark %?>' type="checkbox" value="<?% url(field) %?>">
+<?% END %?>
                 </td>
                 <?% ELSIF c == 1 || c == 2; # Artist/Album Field %?>
                     <?% typ = (c == 1 ? 'artist' : 'album') %?>
diff --git a/lib/XXV/MODULES/CONFIG.pm b/lib/XXV/MODULES/CONFIG.pm
index 3a59e4f..c2289dc 100644
--- a/lib/XXV/MODULES/CONFIG.pm
+++ b/lib/XXV/MODULES/CONFIG.pm
@@ -20,27 +20,30 @@ sub module {
         Date => (split(/ /, '$Date$'))[1],
         Author => 'xpix',
         LastAuthor => (split(/ /, '$Author$'))[1],
-        Level       => 'admin',
         Commands => {
             configedit => {
                 description => gettext("Edit configuration 'section'"),
                 short       => 'ce',
                 callback    => sub{ $obj->edit(@_) },
+                Level       => 'admin',
             },
             configwrite => {
                 description => gettext('Saves the configuration.'),
                 short       => 'cw',
                 callback    => sub{ $obj->write(@_) },
+                Level       => 'admin',
             },
             configget => {
                 description => gettext("Get configuration from 'modname'"),
                 short       => 'cg',
                 callback    => sub{ $obj->get(@_) },
+                Level       => 'admin',
             },
             reconfigure => {
                 description => gettext('Edit all processes'),
                 short       => 'cr',
                 callback    => sub{ $obj->reconfigure(@_) },
+                Level       => 'admin',
             },
             help => {
                 description => gettext("This will display all commands or description of module 'name'."),
@@ -58,7 +61,7 @@ sub module {
                     Module::Reload->check;
                     $c->message(gettext("Modules loaded."));
                 },
-              Level   => 'admin'
+                Level   => 'admin'
             },
         },
     };