Index: openacs-4/packages/ajaxhelper/www/xmlhttp/carousel-images.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/xmlhttp/carousel-images.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ajaxhelper/www/xmlhttp/carousel-images.adp	4 May 2009 19:11:32 -0000	1.1
@@ -0,0 +1,6 @@
+<multiple name="user_images">
+<li>
+<img src="/image/@user_images.item_id@/thumbnail" onclick="document.getElementById('upload_form:elements:choose_file:@user_images.item_id@').click()"  height="100"/>
+<br><input type="radio" name="choose_file" value="@user_images.item_id@" id="upload_form:elements:choose_file:@user_images.item_id@"  > 
+</li>	
+</multiple>						
\ No newline at end of file
Index: openacs-4/packages/ajaxhelper/www/xmlhttp/carousel-images.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/xmlhttp/carousel-images.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/ajaxhelper/www/xmlhttp/carousel-images.tcl	4 May 2009 19:11:32 -0000	1.1
@@ -0,0 +1,24 @@
+ad_page_contract {
+	Return images for attach-image carousel
+} {
+	{start "0"}
+	{nb "3"}
+}
+
+set user_id [ad_conn user_id]    
+    
+db_multirow -unclobber user_images user_images \
+{
+    select ci.item_id as item_id, ci.name
+    from cr_items ci, cr_revisionsx cr, cr_child_rels ccr
+    where ci.live_revision=cr.revision_id
+    and ci.content_type='image'
+    and cr.creation_user=:user_id
+    and ccr.parent_id=ci.item_id
+    and ccr.relation_tag='image-thumbnail'
+    order by creation_date desc
+    limit :nb offset :start
+} {
+    set name [regsub "${item_id}_" $name ""] 	    
+}
+    
\ No newline at end of file