File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 1313# <span class="propinst-name"><'name'></span>
1414#
1515# Ian Jacobs - ij@w3.org (Based on work by Arnaud Le Hors)
16- # $Id: pextr,v 1.24 2002-11-28 20:58:35 bbos Exp $
16+ # $Id: pextr,v 1.25 2002-11-28 21:27:53 bbos Exp $
1717#
1818
1919$PROGNAME = substr ($0 , rindex ($0 , " /" ) + 1);
@@ -147,9 +147,13 @@ sub format_media {
147147}
148148
149149sub format_compval {
150+ $values = $_ [0];
151+ $values =~ s / <([^>']*)>/ <span class=\" value-inst-$1 \" ><$1 ><\/ span>/ g ;
152+ $values =~ s / <[']([^']*)[']>/ <span class=\" propinst-$1 \" ><'$1 '><\/ span>/ g ;
153+ $values =~ s / inherit/ <span class=\" value-inst-inherit\" >inherit<\/ span>/ g ;
150154print output " <tr valign=baseline>" ;
151155print output " <td><em>Computed value:</em> " ;
152- print output " <td>$_ [0] \n " ;
156+ print output " <td>$values \n " ;
153157}
154158
155159
You can’t perform that action at this time.
0 commit comments