<CODE>
#print "<form action=main.cgi method=post name=formname>";
#If I uncomment above line,form.submit in xsl file doesn't work
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
my $source = $parser->parse_file("abc.xml");
my $style_doc = $parser->parse_file("abc.xsl");
my $stylesheet = $xslt->parse_stylesheet($style_doc);
my $results = $stylesheet->transform($source, args => "' '",val => "'2'");
print $stylesheet->output_string($results);
#print "</form>"
</CODE>
Above code otherwise works(form.submit in xsl works).But If I
uncomment form lines above,then form.submit doesnt work.what can be
the problem?
<CODE>
abc.xsl
<xsl:stylesheet version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xslutput method="html"/>
<xsl:template match="tracks">
<form name="form1" method="POST" action="abc.cgi">
<table border="1">
<tr>
<td> Parameter </td>
<td> Description </td>
<td> Value </td>
</tr>
<xsl:apply-templates/>
</table>
</form>
<script>
document.form1.submit();
</script>
</xsl:template>
<xsl:template match="abc">
<tr>
<td>
<xsl:value-of select="label"/>
</td>
<td>
<xsl:value-of select="desc"/>
</td>
<td>
<xsl:if test="label = 'machine name'">
<input type="text" name="args1" value="">
</input>
</xsl:if>
</td>
</tr>
</xsl:template>
</CODE>
<CODE>
abc.xml
<?xml version='1.0'?>
<?xml-stylesheet href="abc.xsl" type="text/xsl"?>
<tracks>
<abc>
<label>machine name</label>
<desc>specify machine name</desc>
</abc>
</tracks>
</CODE>
------------------------------
Regards,
Himanshu Padmanabhi
--~------------------------------------------------------------------
XSL-List info and archive: http://www.mulberrytech.com/xsl/xsl-list
To unsubscribe, go to: http://lists.mulberrytech.com/xsl-list/
or e-mail: <mailto:xsl-list-unsubscribe(_at_)lists(_dot_)mulberrytech(_dot_)com>
--~--