X-Git-Url: https://git.distorted.org.uk/~mdw/chopwood/blobdiff_plain/d6b72d90e658140961b040e53c009d82fa0f11c9..4e7866aba8adeec7d5613387d106fb1519108a25:/list.fhtml

diff --git a/list.fhtml b/list.fhtml
index 3753313..735f63c 100644
--- a/list.fhtml
+++ b/list.fhtml
@@ -48,13 +48,16 @@
         FORMS.acct = {
           elts: ['list'],
           check: function () { return null; }
-        }
+        }~={allowop.set}:[
+
+        // Password setting is forbidden, so here's a stub function.
+        function check_partial_passwd() { return null; }~;~]
 --></script>
 </div>
 
 <div class=expand-reference>
 
-<h2>Set a new password</h2>
+~={allowop.set}:[~;<h2>Set a new password</h2>
 <table>
 <tr>
   <td class=label>
@@ -92,9 +95,9 @@
             return null;
           }
         }
---></script>
+--></script>~2%~]~
 
-<h2>Generate a new password</h2>
+~={allowop.reset}:[~;<h2>Generate a new password</h2>
 <button type=submit id=reset-submit accesskey=g
         name=%act value=reset><u>G</u>enerate</button>
 <span class=whinge id=reset-whinge>OK</span>
@@ -104,9 +107,9 @@
             return check_accounts() || check_partial_passwd();
           }
         }
---></script>
+--></script>~2%~]~
 
-<h2>Clear the existing passwords</h2>
+~={allowop.clear}:[~;<h2>Clear the existing passwords</h2>
 <button type=submit id=clear-submit accesskey=c
         name=%act value=clear><u>C</u>lear</button>
 <span class=whinge id=clear-whinge>OK</span>
@@ -116,7 +119,7 @@
             return check_accounts() || check_partial_passwd();
           }
         }
---></script>
+--></script>~2%~]~
 
 </div>
 </div>