Index: openacs-4/packages/attachments/www/admin/new-root-folder-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/admin/new-root-folder-map.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/attachments/www/admin/new-root-folder-map.tcl	20 Apr 2005 11:48:57 -0000	1.6
+++ openacs-4/packages/attachments/www/admin/new-root-folder-map.tcl	7 Aug 2017 23:48:04 -0000	1.7
@@ -20,7 +20,7 @@
     @cvs-id $Id$
 
 } -query {
-    {package_id:notnull}
+    {package_id:naturalnum,notnull,notnull}
     {referer:notnull}
 }
 
@@ -66,3 +66,9 @@
         }
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: