Index: openacs-4/packages/acs-tcl/lib/progress-bar.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/progress-bar.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-tcl/lib/progress-bar.adp 24 Sep 2003 23:55:02 -0000 1.1 @@ -0,0 +1,73 @@ + + + + + + + +
+
+ +

@title@

+ +
+
+
+ + + + + + + + + + + + + + + + +
+

@message_1@

+
+
+      +      +      +      +      +
+
+

@message_2@

+
+ +
+
+
+
+ + + + Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v diff -u -N -r1.31 -r1.32 --- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 23 Sep 2003 19:50:11 -0000 1.31 +++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl 24 Sep 2003 23:55:02 -0000 1.32 @@ -854,3 +854,41 @@ return $url } } + +ad_proc -public ad_progress_bar_begin { + {-title:required} + {-message_1 ""} + {-message_2 ""} + {-template "/packages/acs-tcl/lib/progress-bar"} +} { + Return a proress bar. + + @param title The title of the page + @param message_1 Message to display above the progress bar. + @param message_2 Message to display below the progress bar. + @param template Name of template to use. Default value is recommended. + + Example: + + ad_progress_bar_begin -title "Installing..." -message_1 "Please wait..." -message_2 "Will continue automatically" + +

...

+ + ad_progress_bar_end -url $next_page + + @see ad_progress_bar_end +} { + ReturnHeaders + ns_write [ad_parse_template -params [list [list title $title] [list message_1 $message_1] [list message_2 $message_2]] $template] +} + +ad_proc -public ad_progress_bar_end { + {-url:required} +} { + Ends the progress bar by causing the browser to redirect to a new URL. + + @see ad_progress_bar_begin +} { + ns_write "" + ns_conn close +}