RTF::Writer table problems (cells wont align correctly)

This is a multi-part message in MIME format.

--===============0471192655==
Content-Class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C777CF.8F837A44"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C777CF.8F837A44
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

I having problems with aligning text inside a table,

Only the first row will align to the center Align =3D> 'l c c c'; should
work for the whole table, but it only works for the first row

I have tried multiple ways of doing it and it wont work

Any Ideas??

my [at] tableProp2 =3D ( widths =3D> [inches(2), inches(2), =
inches(2),
inches(2)],

align =3D> 'c c c c',

);

my $oDecl2 =3D
RTF::Writer::TableRowDecl->new( [at] tableProp2,);

$oDecl2->add_bgcolors(8); # All cells default
color

$fh->row($oDecl2, \'\fs20 Consolidation
Results', "Current(As Is)", 'With VMware (Projected)', 'Difference');

my [at] tableProp3 =3D (

widths =3D> [inches(2),inches(2),inches(2),inches(2)],

align =3D> "l c c c" ,

);

my $oDecl3 =3D
RTF::Writer::TableRowDecl->new( [at] tableProp3,);

$oDecl3->add_bgcolors(7); # All cells default
color

$fh->row($oDecl3, [\'\fs20', 'Servers (N to 1
consolidation ratio)'], [\'\fs20',"$valueHash{\"TCO_1_16\"}"],
[\'\fs20', "$valueHash{\"TCO_2_16\"}"], [\'\fs20',
"$valueHash{\"TCO_3_16\"}"]);

$fh->row($oDecl3, [\'\fs20',"HBAs"],[\'\fs20',
"$valueHash{\"TCO_1_17\"}"], [\'\fs20',"$valueHash{\"TCO_2_17\"}"],
[\'\fs20',"$valueHash{\"TCO_3_17\"}"]);

$fh->row($oDecl3, [\'\fs20',"SAN switches"],
[\'\fs20\qc',"$valueHash{\"TCO_1_18\"}"],
[\'\fs20\qc',"$valueHash{\"TCO_2_18\"}"],
[\'\fs20\qc',"$valueHash{\"TCO_3_18\"}"]);

------_=_NextPart_001_01C777CF.8F837A44
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html>

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">

<meta name=3DGenerator content=3D"Microsoft Word 10 (filtered)">

<style>

</style>

</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

I having problems with aligning text inside a =
table,

 

Only the first row will align to the center Align =
=3D> ‘l
c c c’; should work for the whole table, but it only works for the =
first row

 

I have tried multiple ways of doing it and it wont =
work

 

Any Ideas??

 

 

 

 

my [at] tableProp2 =3D =
(
widths =3D> [inches(2), inches(2), inches(2), =
inches(2)],

 =
 &=
nbsp; &n=
bsp;
align =3D> 'c c c c',

 =
 &=
nbsp;
);

 =
 &=
nbsp; my
$oDecl2 =3D =
RTF::Writer::TableRowDecl->new( [at] tableProp2,);

 =
 &=
nbsp; $oDecl2->add_bgcolors(8);
# All cells default color

 =
 &=
nbsp; $fh->row($oDecl2,
\'\fs20 Consolidation Results', "Current(As Is)", 'With VMware
(Projected)', 'Difference'); =
 =


 =
 &=
nbsp; my
[at] tableProp3 =3D (

 =
 &=
nbsp; &n=
bsp; &nb=
sp; &nbs=
p; =
 &=
nbsp; widths
=3D> [inches(2),inches(2),inches(2),inches(2)],

 =
 &=
nbsp; &n=
bsp; &nb=
sp; &nbs=
p; =
; =
align
=3D> "l c c c" ,

 

 

 =
 &=
nbsp; &n=
bsp; &nb=
sp; &nbs=
p; =
; );

 =
 &=
nbsp; my
$oDecl3 =3D =
RTF::Writer::TableRowDecl->new( [at] tableProp3,);

 =
 &=
nbsp; $oDecl3->add_bgcolors(7);
# All cells default color

 =
 &=
nbsp; $fh->row($oDecl3,
[\'\fs20', 'Servers (N to 1 consolidation ratio)'],
[\'\fs20',"$valueHash{\"TCO_1_16\"}"], [\'\fs20',
"$valueHash{\"TCO_2_16\"}"], [\'\fs20',
"$valueHash{\"TCO_3_16\"}"]);

 =
 &=
nbsp; $fh->row($oDecl3,
[\'\fs20',"HBAs"],[\'\fs20',
"$valueHash{\"TCO_1_17\"}"],
[\'\fs20',"$valueHash{\"TCO_2_17\"}"],
[\'\fs20',"$valueHash{\"TCO_3_17\"}"]);=


 =
 =
 =
$fh->row($oDecl3,
[\'\fs20',"SAN switches"],
[\'\fs20\qc',"$valueHash{\"TCO_1_18\"}"], =
[\'\fs20\qc',"$valueHash{\"TCO_2_18\"}"],
[\'\fs20\qc',"$valueHash{\"TCO_3_18\"}"]);</fo=
nt>

 =
 &=
nbsp; 

</div>

</body>

</html>

------_=_NextPart_001_01C777CF.8F837A44--

--===============0471192655==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0471192655==--