From: Jilani K. <ji...@ch...> - 2008-05-14 18:19:12
|
Hi All, I have this code but I can't get the correct output in any way. <erl> out(A) Rows=mydb:select_all(), % Rows is a list and it has the following tructure: % [{data, 1, "A1", "B1"}, {data, 2, "A2", "B2"}, % .., {data, n, "An", "Bn"}]. ... </erl> The desired output is the following: <p> <ul> <li>1</li> <li>A1</li> <li>B1</li> </ul> </p> <p> <ul> <li>2</li> <li>A2</li> <li>B2</li> </ul> </p> ... <p> <ul> <li>n</li> <li>An</li> <li>Bn</li> </ul> </p> Any hint? Thank you. //JK |
From: Dominique B. <dom...@nu...> - 2008-05-14 18:46:43
|
I would do something like the following (assuming that the 'data' records always have a fixed length): <erl> out(A) -> Rows = [{data, 1, "A1", "A2"}, {data, 2, "B1", "B2"}, {data, 3, "C1", "C2"} ], {ehtml, lists:map(fun ({data, Num, Val1, Val2}) -> {p, [], {ul, [], [{li, [], integer_to_list(Num)}, {li, [], Val1}, {li, [], Val2}]}} end, Rows)}. </erl> Dominique <erl> out(A) -> Rows = [{data, 1, "A1", "A2"}, {data, 2, "B1", "B2"}, {data, 3, "C1", "C2"} ], {ehtml, lists:map(fun ({data, Num, Val1, Val2}) -> {p, [], {ul, [], [{li, [], integer_to_list(Num)}, {li, [], Val1}, {li, [], Val2}]}} end, Rows)}. </erl> > From: erl...@li... [mailto:erlyaws-list- > bo...@li...] On Behalf Of Jilani Khaldi > Sent: May 14, 2008 2:11 PM > To: YAWS ML > Subject: [Erlyaws-list] Problems with ehtml > > Hi All, > I have this code but I can't get the correct output in any way. > <erl> > out(A) > Rows=mydb:select_all(), > % Rows is a list and it has the following tructure: > % [{data, 1, "A1", "B1"}, {data, 2, "A2", "B2"}, > % .., {data, n, "An", "Bn"}]. > ... > </erl> > The desired output is the following: > <p> > <ul> > <li>1</li> > <li>A1</li> > <li>B1</li> > </ul> > </p> > <p> > <ul> > <li>2</li> > <li>A2</li> > <li>B2</li> > </ul> > </p> > ... > <p> > <ul> > <li>n</li> > <li>An</li> > <li>Bn</li> > </ul> > </p> > > Any hint? > Thank you. > > //JK > > > ----------------------------------------------------------------------- > -- > This SF.net email is sponsored by: Microsoft > Defy all challenges. Microsoft(R) Visual Studio 2008. > http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/ > _______________________________________________ > Erlyaws-list mailing list > Erl...@li... > https://lists.sourceforge.net/lists/listinfo/erlyaws-list |