Re^3: CGI::Ajax No head/html tags, nowhere to insert. Returning javascript anyway.

[poj]

Put the conditional outside the div ;

my $msg = ($session->is_expired || $session->is_empty) ? 'logged':'';
$html .= $cgi->div({-id=>'container'}, 
   $cgi->img({src=>'images/pic.png', height=>'100px',width=>'150px'}),
   $cgi->p($msg),$cgi->div(

poj

[msinfo]

Sorry to all of you, but it's not working. Let me clear myself, I wanna write a CGI script, which would do following.

# required modules
use CGI;
use CGI::Ajax;

# html generation depending upon session info
# begining html code
if ($session-start)
print $cgi->p("user no" . $session->id);
else
print $cgi->p("guest");
# remaining html code


# ajax call
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func);
print $pjx->build_html($cgi, \&htm);

I am finding it difficult to generate HTML content with session info, and forward it to Ajax call

If it wouldn't have been Ajax call, then, manipulating HTML content depending upon session info was easy part for me.

[Anonymous Monk]

Sorry to all of you, but it's not working...I am finding it difficult to generate HTML content with session info, and forward it to Ajax call

Ok, but why post Pseudocode instead of the code you're now trying that is failing for you?

:)Basic debugging checklist , brian's Guide to Solving Any Perl Problem, CGI Help Guide , Troubleshooting Perl CGI scripts, How do I post a question effectively?

[msinfo]

Hi, Anonymous Monk Thanks for your calm advice and code. Below is code which worked.

$html .= $cgi->div({-id=>'container'}, 
                    $cgi->img({src=>'images/pic.png', height=>'100px',
+ width=>'150px'}),
                    
                    (
                    (($session->is_expired) || ($session->is_empty))
                    ? ($cgi->p("false"))
                    :($cgi->p("true"))                                
+                 
                    ),
                    
                    $cgi->div(
                    {-id=>'menu_bar'}, 
# rest of html

And here is code, which didn't

$html .= $cgi->div({-id=>'container'}, 
                    $cgi->img({src=>'images/pic.png', height=>'100px',
+ width=>'150px'}),                    
                    
                    (
                    (while ($num <=5)
                    {($cgi->p($num))
                    ($num++)})
                    ),
                    
                    $cgi->div(
                    {-id=>'menu_bar'},

What I did wrong in 'while' case. I went through links, provided by you. So here $html .= $cgi->div#rest of code, is one big statement and rest of part on right side are expressions.

But, could not grasped the concept and structure behind parenthesis well.

And is it possible to use other Perl blocks in this fashion.?