Index: openacs-4/packages/xowiki/www/ckeditor-images/thumb-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/ckeditor-images/thumb-view.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/xowiki/www/ckeditor-images/thumb-view.tcl 13 Feb 2012 19:03:35 -0000 1.1 +++ openacs-4/packages/xowiki/www/ckeditor-images/thumb-view.tcl 14 Feb 2012 10:15:44 -0000 1.2 @@ -1,17 +1,17 @@ ad_page_contract { } { - {parent_id ""} + {parent_id ""} } -validate { - parent_id_exists -requires {parent_id} { - if {[db_0or1row object_exists "select item_id from cr_items where item_id =:parent_id"] == 0} { - #ad_complain "Das angegebene Objekt existiert nicht." - } - } + parent_id_exists -requires {parent_id} { + if {[db_0or1row object_exists "select item_id from cr_items where item_id =:parent_id"] == 0} { + #ad_complain "Das angegebene Objekt existiert nicht." + } + } } set output "" -set return_url "[ns_urlencode "[ad_conn url]?parent_id=$parent_id"]" +set return_url [ns_urlencode "[ad_conn url]?parent_id=$parent_id"] db_multirow -extend url sub_files get_children " select package_id,name,cr.item_id ,revision_id,mime_type, to_char(publish_date, 'yyyy-mm-dd, HH:MM') as date from cr_items ci inner join cr_revisions cr on (ci.item_id = cr.item_id) @@ -22,10 +22,6 @@ ::xowiki::Package initialize -package_id $package_id set item [::xowiki::File get_instance_from_db -item_id $item_id] set url "[$item pretty_link]" - } - -#append output "$revision_id $mime_type $content
" -#set server_url [ad_url] set server_url ""