[enhance] CChat: default credentials changed to allow users to edit t…

…heir own posts
MLstate · Jun 30, 2011 · c0e0963 · c0e0963
1 parent 76a7ade
commit c0e0963
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/stdlib/components/chat/chat.opa b/stdlib/components/chat/chat.opa
@@ -494,7 +494,11 @@ CChat = {{
     "[%<:[%D:[#=1:yesterday :ago ]]]"
 
   @private @server
-  default_credentials(_username, _msg): CChat.credentials = read_only
+  default_credentials(username, msg): CChat.credentials =
+    if not(username == "anonymous") && username == msg.author then
+      read_edit
+    else
+      read_only
 
   @private @server
   default_admin_credentials(_username, _msg): CChat.credentials =