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