robert@0: #!C:/strawberry/perl/bin/perl.exe robert@0: robert@0: use strict; robert@0: use warnings; robert@0: robert@0: use CGI; robert@0: use CGI::Ajax; robert@0: robert@0: my $cgi= CGI->new; robert@0: robert@0: my $a= CGI::Ajax->new( robert@0: 'test_elt_html' => \&test_elt_html robert@0: ); robert@0: robert@0: $a->DEBUG(2); robert@0: $a->JSDEBUG(2); robert@0: robert@0: print $a->build_html( $cgi, \&html_page); robert@0: robert@0: sub html_page robert@0: robert@0: { robert@0: return < robert@0: robert@0: robert@0: robert@0: robert@0: robert@0: robert@0:

test with div

robert@0:

test with span

robert@0:

test with p

robert@0: robert@0:

some stuff

robert@0:

robert@0: robert@0:

robert@0:

robert@0: robert@0:

robert@0:

robert@0: robert@0:

robert@0:

robert@0: robert@0: robert@0: robert@0: EOH robert@0: ; robert@0: robert@0: } robert@0: robert@0: robert@0: sub test_elt_html robert@0: { my( $elt_html)= @_; robert@0: print STDERR "IN:" . $elt_html , "\n"; robert@0: return $elt_html; robert@0: } robert@0: