head	1.2;
access;
symbols;
locks; strict;
comment	@# @;


1.2
date	2002.02.14.17.02.49;	author rse;	state dead;
branches;
next	1.1;

1.1
date	2002.02.14.16.10.07;	author rse;	state Exp;
branches;
next	;


desc
@@


1.2
log
@use new pkg_status
@
text
@##
##  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>

@


1.1
log
@add process bar support
@
text
@@