Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/revision-procs.xql,v diff -u -r1.6.2.3 -r1.6.2.4 --- openacs-4/packages/acs-content-repository/tcl/revision-procs.xql 1 Jul 2005 15:15:22 -0000 1.6.2.3 +++ openacs-4/packages/acs-content-repository/tcl/revision-procs.xql 4 Jul 2005 13:15:49 -0000 1.6.2.4 @@ -35,4 +35,21 @@ + + + select content_type + from cr_content_mime_type_map + where mime_type = :mime_type + + + + + + select 1 + from cr_content_mime_type_map + where mime_type = :mime_type + and contetnt_type = 'content_revision' + + +