Index: openacs-4/packages/photo-album/tcl/photo-album-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/tcl/photo-album-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/photo-album/tcl/photo-album-procs.tcl 1 Nov 2003 08:45:39 -0000 1.6
+++ openacs-4/packages/photo-album/tcl/photo-album-procs.tcl 18 Nov 2003 18:55:29 -0000 1.7
@@ -581,11 +581,11 @@
# append the 'prev' link
append photo_nav_html "
\n"
if { ![empty_string_p $prev_id] } {
- append photo_nav_html "\t
\n"
+ append photo_nav_html "\t
\n"
}
# append the 'next' link
if { ![empty_string_p $next_id] } {
- append photo_nav_html "\t
\n"
+ append photo_nav_html "\t
\n"
}
# append page number links for all pages except for this page
@@ -785,6 +785,7 @@
{-description {}}
{-story {}}
{-caption {}}
+ {-feedback_mode 0}
image_files
album_id
user_id
@@ -795,6 +796,7 @@
-client_name provide the name of the upload file (for individual uploads)
-strip_prefix the prefix to remove from the filename (for expanded archives)
image_files list of files to process
+ -feedback_mode to provide much info of the loading process on a bulk upload
} {
set new_ids [list]
set peeraddr [ad_conn peeraddr]
@@ -957,6 +959,38 @@
db_dml update_photo_data {}
}
+ if $feedback_mode {
+ ns_write "
+
+ - Loading image $client_filename
+
+ - General information:
+
+ - Base Name: $base_image_name
+ - Photo_id: $photo_id
+ - Width: $base_width
+ - Height: $base_height
+ - Size: $base_bytes bytes
+ - Base image name: $base_image_name
+
+ - Thumbnail information:
+
+ - Thumnail name: $th_image_name
+ - Width: $thumb_width
+ - Height: $thumb_height
+ - Size: $thumb_bytes bytes
+
+ - Photo view information:
+
+ - View name: $vw_image_name
+ - Width: $viewer_width
+ - Height: $viewer_height
+ - Size: $viewer_bytes bytes
+
+
+
"
+ }
+
pa_insert_image $base_image_name $photo_id $base_item_id $base_rev_id $user_id $peeraddr $photo_id $base_image_name "original image" $base_mime "base" "t" $base_filename_relative $base_height $base_width $base_bytes
pa_insert_image $th_image_name $photo_id $thumb_item_id $thumb_rev_id $user_id $peeraddr $photo_id $th_image_name "thumbnail" $thumb_mime "thumb" "t" $thumb_filename_relative $thumb_height $thumb_width $thumb_bytes
pa_insert_image $vw_image_name $photo_id $viewer_item_id $viewer_rev_id $user_id $peeraddr $photo_id $vw_image_name "web image" $viewer_mime "viewer" "t" $viewer_filename_relative $viewer_height $viewer_width $viewer_bytes