perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Gerald Richter" <rich...@ecos.de>
Subject Re: PrevNextForm problem
Date Thu, 03 Oct 2002 19:39:18 GMT
> [+$set->PrevNextForm ({-prev=>'<<Back', -next=>'Next>>'}, \%fdat)+]
>
> When I click the next button the same page appears again, why?
> I use DBIx::Recordset version 0.24 (from debian package)
>

That a problem with escaping and Embperl 2. You need the following patch to
DBIx::Recordset

--- Recordset.pm 2002/09/03 12:51:45 1.105
+++ Recordset.pm 2001/10/25 14:19:45 1.104
@@ -3067,7 +3066,7 @@


     my $esc = '' ;
+    $esc = '\\' if ((defined ($HTML::Embperl::escmode) &&
($HTML::Embperl::escmode & 1)) || (defined ($Embperl::escmode) &&
($Embperl::escmode & 1))) ;
-    $esc = '\\' if (defined ($HTML::Embperl::escmode) &&
($HTML::Embperl::escmode & 1)) ;
     my $buttons = "$esc<form method=$esc\"POST$esc\"$esc>$esc<input
type=$esc\"hidden$esc\"

and need to set $escmode to 3 e.g.

[+do { local $escmode = 3 ;$set->PrevNextForm
({-prev=>'<<Back', -next=>'Next>>'}, \%fdat) } +]


> Btw: I like Recordset more and more, the more pages I do with it.
> Especially for simple query/insert/update scenarios it's really
> great!
>

:-)

Gerald

-------------------------------------------------------------
Gerald Richter    ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting

Post:       Tulpenstrasse 5         D-55276 Dienheim b. Mainz
E-Mail:     richter@ecos.de         Voice:    +49 6133 925131
WWW:        http://www.ecos.de      Fax:      +49 6133 925152
-------------------------------------------------------------


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message