Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.82 -r1.83
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	13 Aug 2007 13:52:11 -0000	1.82
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	14 Aug 2007 08:04:31 -0000	1.83
@@ -920,8 +920,10 @@
   Package instproc condition=has_class {query_context value} {
     return [expr {[$query_context query_parameter object_type ""] eq $value}]
   }
+  Package instproc condition=has_name {query_context value} {
+    return [regexp $value [$query_context query_parameter name ""]]
+  }
 
-
   Class create Policy -superclass ::xo::Policy
 
   Policy policy1 -contains {
@@ -936,6 +938,7 @@
       edit-new            {
 	{{has_class ::xowiki::Object} id admin} 
 	{{has_class ::xowiki::FormPage} nobody} 
+	{{has_name {[.](js|css)$}} id admin}
 	{id create}
       }
     }
@@ -980,6 +983,7 @@
       edit-new            {
 	{{has_class ::xowiki::Object} swa} 
 	{{has_class ::xowiki::FormPage} nobody} 
+	{{has_name {[.](js|css)$}} swa}
 	{id create}
       }
     }
@@ -1020,6 +1024,7 @@
       edit-new            {
 	{{has_class ::xowiki::Object} swa} 
 	{{has_class ::xowiki::FormPage} nobody} 
+	{{has_name {[.](js|css)$}} swa}
 	{id create}
       }
     }