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 ""