Return-Path: 
 <embperl-return-5368-apmail-perl-embperl-archive=perl.apache.org@perl.apache.org>
Delivered-To: apmail-perl-embperl-archive@perl.apache.org
Received: (qmail 1861 invoked by uid 500); 19 Feb 2003 20:08:00 -0000
Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:embperl-help@perl.apache.org>
list-unsubscribe: <mailto:embperl-unsubscribe@perl.apache.org>
list-post: <mailto:embperl@perl.apache.org>
Delivered-To: mailing list embperl@perl.apache.org
Received: (qmail 1842 invoked from network); 19 Feb 2003 20:07:59 -0000
X-Originating-IP: [80.186.88.2]
From: "Ville Jungman" <ville_jungman@hotmail.com>
To: Alexander.Hartmaier@t-systems.at, embperl@perl.apache.org
Bcc: 
Subject: Re: output table with variable data
Date: Wed, 19 Feb 2003 22:08:04 +0200
Mime-Version: 1.0
Content-Type: text/plain; format=flowed
Message-ID: <F36lBKQzVNGYyICtzIi0000e898@hotmail.com>
X-OriginalArrivalTime: 19 Feb 2003 20:08:04.0823 (UTC)
 FILETIME=[9CBB3E70:01C2D852]
X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N

sorry i didn't read the whole question...

interfacelist should be ok if your sub is like this (look at my previous 
email):
[* sub xxx{ *]
   [- (@interfacelist)=@_; -]
   ...
   <td>[+ $interfacelist[0] +]</td>
   ...
[* } *]

there might be better ways to do it, but i know nothing about them.

Hope this helps... or at least don't make it worse.

ville jungman, ulvilantie 3 b 11, 00350 helsinki, finland
tel. + 358 - 9 - 225 4482 , http://www.kolumbus.fi/vilmak
usko Herraan Jeesukseen, niin sin� pelastut. (apt. 16:31)




>From: "Alexander Hartmaier" <Alexander.Hartmaier@t-systems.at>
>To: <embperl@perl.apache.org>
>Subject: output table with variable data
>Date: Wed, 19 Feb 2003 14:45:01 +0100
>
>
>
>Hi list!
>
>I have to output a html table in some of my embperl pages which always 
>looks the
>same but the data is slightly different.
>My approch was to write a small sub which takes the array with the data and
>looks like this:
>
>----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
>sub interface_list (@interfacelist)
>{
>   print ("
>   <tr class=heading>
>     <td>Mon</td>
>     <td>Device</td>
>     <td>Interface</td>
>     <td>Speed</td>
>     <td>Line</td>
>   </tr>
>   ");
>   for $indx ( 0 .. $#interfacelist )
>   {
>     print ("
>     <tr class=light>
>       <td class= $interfacelist[$indx][0] ><a> $interfacelist[$indx][1]
></a></td>
>       <td><a href='view-device.epl?id_device=$interfacelist[$indx][2] '>
>$interfacelist[$indx][3] </a></td>
>       <td><a href='view-interface.epl?id_interface= 
>$interfacelist[$indx][4] '>
>$interfacelist[$indx][5] </a></td>
>       <td><a href='view-line.epl?id_line= $interfacelist[$indx][6] '>
>$interfacelist[$indx][7] </a></td>
>     </tr>
>     ");
>   };
>}
>----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
>
>My problem is that when I call the sub with '[+ interface_list 
>(@interfacegrp)
>+]' the lines are appended to the end of the output instead of the line 
>where I
>call it!
>Furthermore the array @interfacelist is empty...
>
>I think there is a better way to handle this problem!
>Gerald or anybody else has an idea?
>
>THX Alex
>
>
>
>---------------------------------------------------------------------
>To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
>For additional commands, e-mail: embperl-help@perl.apache.org


_________________________________________________________________
MSN 8 with e-mail virus protection service: 2 months FREE* 
http://join.msn.com/?page=features/virus


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org