ossp-web/SHARE/ossp_pbar.wml
##
## ossp_pbar.wml -- Process Bar
## Copyright (c) 2000-2001 Ralf S. Engelschall <rse@engelschall.com>
##
<define-tag pbar>
<preserve width pdone cdone ctext ctodo/>
<set-var %attributes/>
<set-var ptodo=<substract 100 <get-var pdone/>/>/>
<set-var wdone=<divide <multiply <get-var width/> <get-var pdone/>/> 100/>/>
<set-var wtodo=<divide <multiply <get-var width/> <get-var ptodo/>/> 100/>/>
<table cellspacing=0 cellpadding=0 border=0>
<tr>
<ifeq <get-var wdone/> 0 "" <group
<td width="<get-var wdone/>" bgcolor="<get-var cdone/>" align=right>
<imgdot width=<get-var wdone>><br>
<font color="<get-var ctext/>" face="arial,helvetica"><b>
<get-var pdone/>%
</b></font>
</td>/>/>
<ifeq <get-var wtodo/> 0 "" <group
<td width="<get-var wtodo/>" bgcolor="<get-var ctodo/>">
<imgdot width=<get-var wtodo>>
</td>/>/>
</tr>
</table>
<restore width pdone cdone ctext ctodo/>
</define-tag>
