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.12 -r1.13
--- openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql 1 Nov 2001 19:17:16 -0000 1.12
+++ openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql 3 Dec 2001 16:58:46 -0000 1.13
@@ -41,20 +41,30 @@
-
update cr_revisions set content = :sp_filename
where revision_id = content_item__get_live_revisions(:static_page_id)
+
+end;
-
+
+
+
+ select static_page_id, mtime as mtime_from_db from static_pages
+ where filename = :sp_filename
+
+
+
+
select static_page__new(
:parent_folder_id, -- folder_id
:sp_filename, -- filename
- :page_title -- title
+ :page_title, -- title
+ :mtime_from_fs -- mtime
);
@@ -155,4 +165,5 @@
+