Index: openacs-4/packages/wp-slim/www/serve-slide-revision.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-slide-revision.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/wp-slim/www/serve-slide-revision.tcl 28 Aug 2003 09:42:00 -0000 1.4 +++ openacs-4/packages/wp-slim/www/serve-slide-revision.tcl 22 Sep 2003 18:41:27 -0000 1.5 @@ -28,7 +28,7 @@ if {![regexp {slide_revision/([0-9]+)/([0-9]+)/([0-9]+)\.wimpy} $url match pres_item_id slide_item_id slide_revision_id]} { ns_log notice "Could not get a pres_item_id, slide_item_id and slide_revision_id out of url=$url" - ad_return_error "Wimpy Point" "Could not get a pres_item_id, slide_item_id and slide_revision_id out of url=$url" + ad_return_error "[_ wp-slim.Wimpy_Point]" "[_ wp-slim.lt_Could_not_get_a_pres__3]" } #added permission checking roc@ @@ -45,7 +45,7 @@ wp_slide.get_preamble_revision(:slide_revision_id) as preamble, wp_slide.get_postamble_revision(:slide_revision_id) as postamble, wp_slide.get_bullet_items_revision(:slide_revision_id) as bullet_items, - to_char(ao.creation_date, 'HH24:MI, Mon DD, YYYY') as modified_date + ao.creation_date as modified_date from cr_wp_slides s, cr_items i, acs_objects ao @@ -54,8 +54,10 @@ and ao.object_id = s.slide_id } -set context [list [list "$subsite_name/display/$pres_item_id" "one presentation"] "one slide"] +set modified_date [lc_time_fmt $modified_date "%X %Q"] +set context [list [list "$subsite_name/display/$pres_item_id" "one presentation"] "[_ wp-slim.one_slide]"] + db_1row get_presentation_page_signature { select p.page_signature, p.show_modified_p