Index: openacs-4/packages/photo-album/tcl/photo-album-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/tcl/photo-album-procs.xql,v diff -u -r1.6 -r1.7 --- openacs-4/packages/photo-album/tcl/photo-album-procs.xql 15 Jun 2005 18:07:41 -0000 1.6 +++ openacs-4/packages/photo-album/tcl/photo-album-procs.xql 8 Aug 2006 21:27:08 -0000 1.7 @@ -46,8 +46,40 @@ and image_items.item_id = ccr.child_id and image_items.live_revision = i.image_id and image_revs.revision_id = image_items.live_revision - and photo.item_id = :photo_id; + and photo.item_id = :photo_id + + + + UPDATE pa_photos + SET camera_model = :tmp_exif_Cameramodel, + user_filename = :upload_name, + date_taken = to_timestamp(:tmp_exif_DateTime,'YYYY-MM-DD HH24:MI:SS'), + flash = :tmp_exif_Flashused, + aperture = :tmp_exif_Aperture, + metering = :tmp_exif_MeteringMode, + focal_length = :tmp_exif_Focallength, + exposure_time = :tmp_exif_Exposuretime, + focus_distance = :tmp_exif_FocusDist, + sha256 = :base_sha256 + WHERE pa_photo_id = :photo_rev_id + + + + + + + + select i.image_id, crr.content as filename, i.width, i.height + from cr_items cri, cr_revisions crr, images i + where cri.parent_id = :id + and crr.revision_id = cri.latest_revision + and i.image_id = cri.latest_revision + order by crr.content_length desc + + + +