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 -N -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/xowiki/www/ckeditor-images/thumb-view.tcl	5 Aug 2014 13:10:50 -0000	1.4.2.2
+++ openacs-4/packages/xowiki/www/ckeditor-images/thumb-view.tcl	11 Feb 2015 12:31:41 -0000	1.4.2.3
@@ -1,27 +1,27 @@
 ad_page_contract {
 	
 } {
-  {parent_id:naturalnum ""}
+    {parent_id:naturalnum ""}
 } -validate {
-  parent_id_exists -requires {parent_id} {
-    if {[xo::dc 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 {[xo::dc 0or1row object_exists "select item_id from cr_items where item_id = :parent_id"] == 0} {
+	    ad_complain "Specified item does not exist"
+	}
     }
-  }	 
 }
 
 set output ""
 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 
+select package_id,name,cr.title,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)
 join acs_objects o on o.object_id=cr.item_id
 	where parent_id = :parent_id and revision_id = ci.live_revision 
-	AND cr.mime_type LIKE 'image/%'
+        AND cr.mime_type LIKE 'image/%'
 	ORDER BY publish_date DESC" {
-		::xowiki::Package initialize -package_id $package_id
-		set item [::xowiki::File get_instance_from_db -item_id $item_id]
-		set url "[$item pretty_link]"
+          ::xowiki::Package initialize -package_id $package_id
+          set item [::xowiki::File get_instance_from_db -item_id $item_id]
+	  set url [$item pretty_link]
 	}
 
 set server_url ""