Hi monk,
I am working with a Perl which looks like below :
sub display {
$self = shift;
if(exists $error){
$html .= "<table border=0>";
$html .= "<tr>";
$html .= "<td align=center ><b>".$self-> {error}
+."</b></td>";
$html .= "</tr>";
$html .= "</table><br>";
}
$html .= <<END;
<table border=0>
<tr>
<th bgcolor="#CCCCEE">Name</th><th> </th>
+<th bgcolor="#CCCCEE">Address</th>
</tr>
<tr align=center>
<td bgcolor="#EEEEEE">@{[ $qry->popup_menu(-id=>'ID
+', -name=>'PS', -size=>10, -values=>$array_ref, -labels=>$hash_ref,
+-onChange=>"fetchData(id,'','','')") ]}</td>
</tr>
</table>
END
return $html;
}
In the above code, what does this <<END and END mean ?
how can I change the code which is in between that <<END and END, to insert a if-else condition for that popup_menu.
To clarify further, depending on some values passed to that function, I want another popup_menu which will have a onload function instead of onChange. In this above code, how can I do that by writing a if-else condition.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|