add some missing methods
1 files changed, 28 insertions(+), 0 deletions(-)

M classes/application.pike
M classes/application.pike +28 -0
@@ 192,6 192,34 @@ int trigger_event(string event, mixed ..
   return retval;
 }
 
+public void set_default_data(Fins.Request id, object|mapping t)
+{
+  if(t->data && t->data->set_request)
+    t->data->set_request(id);
+  else if(t->set_request)
+    t->set_request(id);
+
+  object user = get_current_user(id);
+  if(!user) return 0;
+
+     if(mappingp(t))
+     {
+       t["user_object"] = user;
+       t["is_admin"] = user["is_admin"];
+     }
+     else
+     {
+       t->add("user_object", user);
+       t->add("is_admin", user["is_admin"]);
+     }
+
+}
+
+object get_current_user(object id)
+{
+  return id->misc->session_variables->user;
+}
+
 object get_sys_pref(string pref)
 {
   object p;