diff -r 258af84e2e56 -r 1f7015b33a0c app/soc/views/models/program.py
--- a/app/soc/views/models/program.py	Fri Jan 30 22:01:52 2009 +0000
+++ b/app/soc/views/models/program.py	Fri Jan 30 22:02:20 2009 +0000
@@ -152,10 +152,18 @@
       except out_of_band.Error:
         continue
 
+      items = document_view.view.getMenusForScope(entity, params)
+
+      try:
+        rights.doCachedCheck('checkIsHost', {}, [])
+        items += [(redirects.getEditRedirect(entity, params),'Edit','any_access')]
+        items += [(redirects.getCreateDocumentRedirect(entity, 'program'),
+          "Create new document", 'any_access')]
+      except out_of_band.Error:
+        pass
+
       menu = {}
       menu['heading'] = entity.short_name
-      items = document_view.view.getMenusForScope(entity, params)
-      items += [(redirects.getEditRedirect(entity, params),'Edit','edit')]
       menu['items'] = sidebar.getSidebarMenu(id, user, items, params=params)
       menu['group'] = 'Programs'
       menus.append(menu)