richter 2004/01/27 22:40:19
Modified: eg/web header.epl
Added: test/html subouttab.htm
Log:
test for print out in subs
Revision Changes Path
1.3 +2 -2 embperl/eg/web/header.epl
Index: header.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/header.epl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- header.epl 22 Oct 2002 05:39:50 -0000 1.2
+++ header.epl 28 Jan 2004 06:40:19 -0000 1.3
@@ -5,8 +5,8 @@
<tr>
<td valign="top" rowspan=2><img src="[+ $r -> {imageuri} +]kopf-links.gif"
width="206" height="97" usemap="#Map" border="0">
<map name="Map">
- <area shape="rect" coords="90,56,151,69" href="[+ $r -> app ->
languri($r, $r -> param -> uri, 'de') +]" target="_top">
- <area shape="rect" coords="90,70,151,82" href="[+ $r -> app ->
languri($r, $r -> param -> uri, 'en') +]" target="_top">
+ <area shape="rect" coords="90,56,151,69" href="[+ $r -> app ->
languri($r, $r -> param -> uri, 'de') +]?[+ \%fdat +]" target="_top">
+ <area shape="rect" coords="90,70,151,82" href="[+ $r -> app ->
languri($r, $r -> param -> uri, 'en') +]?[+ \%fdat +]" target="_top">
</map>
</td>
<td valign="top" width="50%"><img src="[+ $r -> {imageuri}
+]kopf-mitte.jpg" width="100%" height="46" vspace=0></td>
1.1 embperl/test/html/subouttab.htm
Index: subouttab.htm
===================================================================
[$ sub yyyy $]
[- ($self) = @_; -]
[$ endsub $]
[$ sub xxxx $]
[- ($self) = @_; -]
<TABLE>
<TR>
<TD>
<TABLE>
<TR>
<TD>
[- $x = 1; -]
[$ while $x < 10 $]
[+ $x +]
[- $x += 1; -]
[$ endwhile $]
</TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE>
<TR>
<TD>
<TABLE>
[- $self->yyyy(); -]
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
[$ endsub $]
[- xxxx (__PACKAGE__) -]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
