Index: openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql	6 May 2001 15:07:41 -0000	1.1
+++ openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql	6 May 2001 19:54:35 -0000	1.2
@@ -3,21 +3,36 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="sp_sync_cr_with_filesystem.create_new_folder">      
+<fullquery name="sp_sync_cr_with_filesystem.get_db_page">
       <querytext>
-      FIX ME PLSQL 
-			    begin
-				    :1 := static_page.new_folder (
-					    name	=> :directory,
-					    label	=> :directory,
-					    parent_id	=> :parent_folder_id,
-					    description	=> 'Static pages folder'
-				    );
-			    end;
-			
+
+		    select content as file_from_db from cr_revisions
+		    where revision_id = content_item__get_live_revision(:static_page_id)
+
       </querytext>
 </fullquery>
 
+
+<fullquery name="sp_sync_cr_with_filesystem.get_folder_id">
+      <querytext>
+
+        select coalesce(content_item__get_id(:cumulative_path,:root_folder_id),0)
+
+      </querytext>
+</fullquery>
+
+
+<fullquery name="sp_sync_cr_with_filesystem.create_new_folder">
+      <querytext>
+                select static_page__new_folder (
+                        :directory,             -- name
+                        :directory,             -- label
+                        :parent_folder_id,      -- parent_id
+                        'Static pages folder'   -- description
+                );
+      </querytext>
+</fullquery>
+
  
 <fullquery name="sp_sync_cr_with_filesystem.update_db_file">      
       <querytext>
@@ -32,77 +47,73 @@
  
 <fullquery name="sp_sync_cr_with_filesystem.do_sp_new">      
       <querytext>
-      FIX ME PLSQL 
-		    begin
-			:1 := static_page.new(
-				  filename => :file,
-				  title => :page_title,
-				  folder_id => :parent_folder_id
-			      );
-		    end;
-		
+                select static_page.new(
+                        :file,                  -- filename
+                        :page_title,            -- title
+                        :parent_folder_id       -- folder_id
+                );
       </querytext>
 </fullquery>
 
- 
-<fullquery name="sp_sync_cr_with_filesystem.insert_file_contents">      
+
+<fullquery name="sp_sync_cr_with_filesystem.insert_file_contents">
       <querytext>
-      FIX ME LOB 
+      FIX ME LOB
 		    update cr_revisions set content = empty_blob()
 		    where revision_id = content_item.get_live_revision(:static_page_id)
 		    returning content into :1
-		
+
       </querytext>
 </fullquery>
 
- 
-<fullquery name="sp_sync_cr_with_filesystem.delete_old_files">      
+
+<fullquery name="sp_sync_cr_with_filesystem.delete_old_files">
       <querytext>
-      FIX ME PLSQL 
-	begin
-	    static_page.delete_stale_items(:sync_session_id,:package_id);
+	    static_page__delete_stale_items(:sync_session_id,:package_id);
 
 	    delete from sp_extant_folders where session_id = :sync_session_id;
 	    delete from sp_extant_files where session_id = :sync_session_id;
-	end;
-    
       </querytext>
 </fullquery>
 
- 
-<fullquery name="sp_root_folder_id.get_root_folder_id">      
+
+<fullquery name="sp_root_folder_id.get_root_folder_id">
       <querytext>
-      FIX ME PLSQL 
-	begin
-	    :1 := static_page.get_root_folder(:package_id);
-	end;
-    
+                select static_page__get_root_folder(:package_id);
       </querytext>
 </fullquery>
 
- 
-<fullquery name="sp_change_matching_permissions.grant_or_revoke_matching_permissions">      
+
+<fullquery name="sp_change_matching_permissions.grant_or_revoke_matching_permissions">
       <querytext>
-      FIX ME PLSQL 
-	    begin
-	    for file_row in (
+FIX ME  provisional thought
+create function inline__0()
+returns integer as '
+        declare
+                v_file_row    static_pages.static_page_id%TYPE;
+        begin
+	    for v_file_row in (
 		    select static_page_id from static_pages
 		    where folder_id in (
 			    select folder_id from sp_folders
 			    start with folder_id = :root_folder_id
 			    connect by parent_id = prior folder_id)
 		    and filename like '%${contained_string}%'
 	    ) loop
-		    acs_permission.${grant_or_revoke}_permission(
-			    object_id => file_row.static_page_id,
-			    grantee_id => acs.magic_object_id('the_public'),
-			    privilege => 'general_comments_create'
+		    acs_permission__${grant_or_revoke}_permission(
+			    file_row.static_page_id,                    -- object_id
+			    acs__magic_object_id(''the_public''),       -- grantee_id
+			    ''general_comments_create''                 -- privilege
 		    );
 	    end loop;
-	    end;
-    
+            return 0;
+end;' language 'plpgsql';
+
+select inline__0();
+
+drop function inline__0();
       </querytext>
 </fullquery>
 
- 
+
 </queryset>