- OpenACS 5.9

oacs-dav.info

@@ -8,14 +8,16 @@
     <singleton-p>t</singleton-p>
     <auto-mount>webdav-support</auto-mount>
 
-    <version name="1.2.0" url="http://openacs.org/repository/download/apm/oacs-dav-1.2.0.apm">
+    <version name="1.2.0d3" url="http://openacs.org/repository/download/apm/oacs-dav-1.2.0d3.apm">
         <owner url="mailto:dave@thedesignexperience.org">Dave Bauer</owner>
         <summary>Provides services to enable webDAV access to content repository items.</summary>
-        <release-date>2004-09-27</release-date>
+        <release-date>2013-09-08</release-date>
         <vendor>OpenACS</vendor>
+        <maturity>1</maturity>
         <description format="text/html">An interface to the tDAV webDAV package. oacs-dav provides services to offer webDAV access to content repository data.</description>
 
-        <provides url="oacs-dav" version="1.2.0"/>
+        <provides url="oacs-dav" version="1.2.0d3"/>
+	<requires url="acs-kernel" version="5.8.1"/>
 
         <callbacks>
             <callback type="after-install"  proc="oacs_dav::install::package_install"/>

tcl/test/oacs-dav-procs.tcl

@@ -21,7 +21,7 @@ aa_register_case oacs_dav_sc_create {
 	    set sc_ops [db_list get_dav_ops ""]
 	    set valid_ops [list get put mkcol copy propfind proppatch move delete]
 	    foreach op_name $valid_ops {
-		aa_true "$op_name operation created" [expr [lsearch $sc_ops $op_name] > -1]
+		aa_true "$op_name operation created" [expr {[lsearch $sc_ops $op_name] > -1}]
 	    }
 
     	    aa_true "DAV put_type Service contract created" [expr [db_0or1row get_dav_pt_sc ""]]
@@ -61,9 +61,9 @@ aa_register_case oacs_dav_put {
 	    aa_log "Response was $response"
 	    set new_item_id [db_string item_exists "" -default ""]
 	    aa_log "Item_id=$new_item_id"
-	    aa_true "Content Item Created" [expr ![empty_string_p $new_item_id]]
+	    aa_true "Content Item Created" [expr {$new_item_id ne ""}] 
 	    set revision_id [db_string revision_exists "" -default ""]	    
-	    aa_true "Content Revision Created"  [expr ![empty_string_p $revision_id]]
+	    aa_true "Content Revision Created"  [expr {$revision_id ne ""}] 
 	    set cr_filename "[cr_fs_path]/[db_string get_content_filename ""]"
 	    aa_true "Content Attribute Set" [string equal [file size [oacs_dav::conn tmpfile]] [file size $cr_filename]]
 	    
@@ -98,7 +98,7 @@ aa_register_case oacs_dav_mkcol {
 		aa_log "name $fname uri $uri"
 		set response [oacs_dav::impl::content_folder::mkcol]
 		set new_folder_id [db_string folder_exists "" -default ""]
-		aa_true "Content Folder $fname created" [expr ![empty_string_p $new_folder_id]]
+		aa_true "Content Folder $fname created" [expr {$new_folder_id ne ""}] 
 	    }
 	
 	}

www/admin/disable.tcl

@@ -8,7 +8,7 @@ ad_page_contract {
     @creation-date 2004-02-15
     @cvs-id $Id$
 } {
-    folder_id:integer,multiple
+    folder_id:naturalnum,multiple
 } -properties {
 } -validate {
 } -errors {

www/admin/enable.tcl

@@ -8,7 +8,7 @@ ad_page_contract {
     @creation-date 2004-02-15
     @cvs-id $Id$
 } {
-    folder_id:integer,multiple
+    folder_id:naturalnum,multiple
 } -properties {
 } -validate {
 } -errors {

www/admin/index.adp

 <master>
-  <property name="title">@title@</property>
-  <property name="context">@context@</property>
+  <property name="doc(title)">@title;literal@</property>
+  <property name="context">@context;literal@</property>
   
 <listtemplate name="folders"></listtemplate>
\ No newline at end of file