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.22 -r1.23
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Nov 2006 20:03:13 -0000	1.22
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	1 Dec 2006 08:37:16 -0000	1.23
@@ -360,13 +360,12 @@
     }
     eval $cmd
   }
-  Package instproc gsm {} {
+  Package instproc google-sitemap {} {
     my instvar id
-    ::xowiki::Page gsm -package_id $id
+    ::xowiki::Page [self proc] -package_id $id
   }
-  Package instproc sitemapindex {} {
-    my log "--HERE"
-    ::xowiki::Page sitemapindex
+  Package instproc google-sitemapindex {} {
+    ::xowiki::Page [self proc]
   }
 
   Package instproc edit-new {} {
@@ -509,12 +508,12 @@
   Policy policy1 -contains {
   
     Class Package -array set require_permission {
-      reindex            swa
-      rss                none
-      gsm                none
-      sitemapindex       none
-      delete             {{id admin}}
-      edit-new           {{{has_class ::xowiki::Object} id admin} {id create}}
+      reindex             swa
+      rss                 none
+      google-sitemap      none
+      google-sitemapindex none
+      delete              {{id admin}}
+      edit-new            {{{has_class ::xowiki::Object} id admin} {id create}}
     }
     
     Class Page -array set require_permission {
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.56 -r1.57
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	14 Nov 2006 12:25:23 -0000	1.56
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Dec 2006 08:37:16 -0000	1.57
@@ -302,7 +302,7 @@
   }
 
   
-  Page ad_proc sitemapindex {
+  Page ad_proc google-sitemapindex {
     {-changefreq "daily"}
     {-priority "priority"}
   } {
@@ -322,7 +322,6 @@
     db_foreach get_xowiki_packages {select package_id  
       from apm_packages p, site_nodes s  
       where package_key = 'xowiki' and s.object_id = p.package_id} {
-      my log "--package_id = $package_id"
       set last_modified [db_string get_newest_modification_date \
                              "select last_modified from acs_objects where package_id = $package_id \
 		order by last_modified desc limit 1"]
@@ -344,11 +343,11 @@
     ns_return 200 $t $content
   }
 
-  Page ad_proc gsm {
+  Page ad_proc google-sitemap {
     -maxentries
     -package_id:required
     {-changefreq "daily"}
-    {-priority "priority"}
+    {-priority "0.5"}
   } {
     Report content of xowiki folder in google site map format
     https://www.google.com/webmasters/sitemaps/docs/en/protocol.html