Index: openacs-4/packages/acs-api-browser/www/set-default.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/set-default.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-api-browser/www/set-default.tcl	14 Jun 2015 00:04:21 -0000	1.2
+++ openacs-4/packages/acs-api-browser/www/set-default.tcl	7 Aug 2017 23:47:46 -0000	1.3
@@ -1,19 +1,16 @@
 ad_page_contract {
     Set user preferences for API browsing.
 } {
-    source_p:boolean,optional,notnull
-    return_url
+    source_p:boolean,notnull
+    return_url:localurl
 }
 
-set found_p 0
+ad_set_client_property -persistent t acs-api-browser api_doc_source_p $source_p
 
-if { [info exists source_p] } {
-    ad_set_client_property -persistent t acs-api-browser api_doc_source_p $source_p
-    set found_p 1
-}
+ad_returnredirect $return_url
 
-if { $found_p } {
-    ad_returnredirect $return_url
-} else {
-    ad_return_error "Unknown Property" "Couldn't find any property to set"
-}
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: