ossp-web/SHARE/ossp_pkg.wml 1.3 -> 1.4
--- ossp_pkg.wml 2002/02/15 12:07:14 1.3
+++ ossp_pkg.wml 2002/03/30 19:15:47 1.4
@@ -41,11 +41,7 @@
.files0U,.files1U,A.files0U,A.files1U { color: #ffffff; }
<<..
<define-tag pkg_files>
-<preserve url>
-<preserve directory>
-<preserve files>
-<preserve stable>
-<preserve unstable>
+<preserve url directory files stable unstable>
<set-var %attributes>
<:
my $url = "<get-var url>";
@@ -101,11 +97,7 @@
print $O;
:>
</table>
-<restore url>
-<restore directory>
-<restore files>
-<restore stable>
-<restore unstable>
+<restore url directory files stable unstable>
</define-tag>
# define a package summary list
@@ -123,15 +115,7 @@
</table>
</define-tag>
<define-tag pkg_item>
-<preserve name>
-<preserve longname>
-<preserve desc>
-<preserve done>
-<preserve tag>
-<preserve stable>
-<preserve unstable>
-<preserve derived>
-<preserve type>
+<preserve name longname desc done tag stable unstable derived type>
<set-var %attributes>
<tr>
<td colspan=3 height=1 bgcolor="#b5b5b0"><imgdot height=1></td>
@@ -158,22 +142,11 @@
<pbar width=200 pdone="<get-var done>" cdone="#b5b5b0" ctext="#f5f5f0" ctodo="#996666">
</td>
</tr>
-<restore name>
-<restore longname>
-<restore desc>
-<restore done>
-<restore stable>
-<restore unstable>
-<restore derived>
-<restore type>
+<restore name longname desc done tag stable unstable derived type>
</define-tag>
<define-tag pkg_status>
-<preserve stable>
-<preserve unstable>
-<preserve stable_date>
-<preserve unstable_date>
-<preserve done>
+<preserve stable unstable stable_date unstable_date done>
<set-var %attributes>
<table cellspacing=0 cellpadding=0 border=0>
<tr>
@@ -190,19 +163,13 @@
</tr>
>>
</table>
-<restore stable>
-<restore unstable>
-<restore stable_date>
-<restore unstable_date>
-<restore done>
+<restore stable unstable stable_date unstable_date done>
</define-tag>
<define-tag pkg_author>
-<preserve name>
-<preserve mail>
+<preserve name mail>
<set-var %attributes>
<get-var name> <<a href="mailto:<get-var mail>"><get-var mail></a>><br>
-<restore name>
-<restore mail>
+<restore name mail>
</define-tag>
|
|
