Perl in templates

matheen

I am using perl in my templating. Can anyone tell me why I am getting XML parser error ..not well-formed(invalid token).
Here is my part of code .

<?xml version="1.0" encoding="UTF-8"?>
<iw_pt name="two_para_rc">

<iw_perl>
$main_out="";
$related_out="";
$line = "";
$main_boxes="";
$fieldOutPut = "";
$fieldNameFormated = "";
$reqFlag = "";
$hiddenField = "";
$dropdownPrint="";
$checkboxPrint="";
$otherfields="";
$confText = iwpt_dcr_value('dcr.confText');

#get main input values
$formTile = iwpt_dcr_value('dcr.formTitle');
$confEmailAddress = iwpt_dcr_value('dcr.confEmailAddress');
$fromDescription = iwpt_dcr_value('dcr.fromDescription');
$formSubject = iwpt_dcr_value('dcr.formSubject');
$compaignTags = iwpt_dcr_value('dcr.compaignTags');
$confPage = iwpt_dcr_value('dcr.confOption');
$thankyouMsg = iwpt_dcr_value('dcr.thankyouMsg');
$dcrfilename = iwpt_get_dcr_name("basename");
$meta_title = iwpt_dcr_value('dcr.meta_title');

<iw_iterate var='outer' list='dcr.formField'>
<iw_iterate var='inner' list='outer.dbmenue'>

#inner values set for dropdown menues only
$dropdown = iwpt_dcr_value('inner.dropdown');
#check if any dropdowns were set

if($dropdown ne "")
{
$dropdownPrint = $dropdownPrint. "<option name=\"".$dropdown."\" value=\"".$dropdown."\">". $dropdown;
}

</iw_iterate>

<iw_iterate var='inner2' list='outer.checkboxDesc'>

#inner values set for dropdown menues oly

$checkboxValue = iwpt_dcr_value('inner2.checkboxValue');
#check if any dropdowns were set

if($checkboxValue ne ""){
$checkboxPrint = $checkboxPrint. "<tr><td class=\"bodyCopy\"><input type=\"checkbox\" value=\"".$checkboxValue."\" name=\"Checkbox_fl\">&nbsp;&nbsp;".$checkboxValue."</td></tr>";

}

</iw_iterate>

#outer values set
$sectionVal=0;
$fieldName = iwpt_dcr_value('outer.fieldName');
$fieldRequierd = iwpt_dcr_value('outer.fieldRequierd');
$fieldLength = iwpt_dcr_value('outer.fieldLength');
$fieldType = iwpt_dcr_value('outer.fieldType');


$fieldNameFormated = $fieldName;
#remove all white spaces to use name in field name

$fieldNameFormated =~ s/\s//g;

if($fieldRequierd eq "yes"){
$reqFlag="<td class=\"bodyCopy\" width=\"7\" valign=\"top\"><b><font color=\"#ff0000\">*</font></b></td>";
$fieldNameFormated= "r_" . $fieldNameFormated ."_fl";
$hiddenField =" <input type=\"hidden\" value=\"".$fieldName."\">";
}else{
$reqFlag="<td class=\"bodyCopy\" width=\"7\"><img src=\"/img/global/spacer_white.gif\" width=\"7\" height=\"1\" border=\"0\"></td>";
$fieldNameFormated= $fieldNameFormated ."_fl";
$hiddenField =" <input type=\"hidden\" value=\"".$fieldName."\">";
}
if($fieldName ne ""){

if($fieldType eq "text"){
$fieldOutPut =
$fieldOutPut . "<tr>".$reqFlag." <td class=\"bodyCopy\" width=\"150\"><b>". $fieldName .":</b></td>
<td>".$hiddenField."<input type=\"text\" name=\"".$fieldNameFormated."\" size=\"30\" maxlenght=\"".$fieldLength."\"></td>
</tr>";

}
if($fieldType eq "textarea"){
$fieldOutPut =
$fieldOutPut . "<tr>".$reqFlag."<td class=\"bodyCopy\" colspan=\"2\"><b>". $fieldName .":</b>
<br>". $hiddenField ."<textarea name=\"".$fieldNameFormated."\" cols=\"260\" rows=\"50\" class=\"textareaBing\" maxlenght=\"".$fieldLength."\"></textarea></td>
</tr>";

}
if($fieldType eq "checkbox"){
$fieldOutPut =
$fieldOutPut . "<input type=\"hidden\" name=\"check". $sectionVal ."\">
<tr>".$reqFlag."<td class=\"bodyCopy\" vAlign=\"top\" width=\"150\"><b>". $fieldName .":</b></td>
<td valign=\"top\">
<table width=\"378\" border=\"0\" cellspacing=\"5\" cellpadding=\"0\" vAlign=\"top\">
$checkboxPrint
</table>
</td>
</tr>";
}
if($fieldType eq "dropdown"){
$fieldOutPut =
$fieldOutPut . "<tr>".$reqFlag."<td class=\"bodyCopy\" vAlign=\"top\" width=\"150\"><b>". $fieldName .":</b></td>
<td>". $hiddenField ."<select name=\"".$fieldNameFormated."\"><option selected>Select". $dropdownPrint ."</select>
$otherfields
</td>
</tr>";


}
}
$sectionVal++;
$dropdownPrint= "";
$checkboxPrint="";

</iw_iterate>

<iw_value name='${$fieldOutPut}'/>

</iw_pt>

Dwayne

You can't mix <iw_ tags INSIDE <iw_perl> blocks. In other words, you need to close your <iw_perl> tag before opening, for instance, your <iw_iterate> tag.

You should also escape your perl code inside of a CDATA block, as perl is rarely well-formed XML. The alternative is to use the <iw_pt /> form of the iw_pt tag, which means that the rest of the file does not need to be well-formed XML. (You still can't nest <iw_iterate> inside <iw_perl>, though).


--

Current project: TS 5.5.2/6.1 W2K