Skip Menu |

This queue is for tickets about the CGI-WML CPAN distribution.

Report information
The Basics
Id: 3663
Status: new
Priority: 0/
Queue: CGI-WML
People
Owner: Nobody in particular
Requestors: thomas.hoppe [...] berlin.de
Cc:
AdminCc:
Bug Information
Severity: Important
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Thu Aug 28 03:08:50 2003 Guest - Ticket created
Subject: Type of prev is fixed to accept
The type of prev is fixed to "accept" and cannot be changed to "prev", in order to prevent reloading of entire decks while go back to previous cards ! $query->template(-content=>$query->prev()); results always in <template><do type="accept" label="Back"><prev/></do></template> $query->template(-content=>$query->prev(-type=>"prev")); should result in <template><do type="prev" label="Back"><prev/></do></template> CGI-WML-0.09 This is perl, v5.8.0 built for sun4-solaris# SunOS govsearch 5.8 Generic_108528-03 sun4u sparc SUNW,Ultra-60
  Thu Oct 16 08:23:54 2003 Guest - Correspondence added
From: thomas.hoppe [...] berlin.de
[guest - Thu Aug 28 03:08:50 2003]: Show quoted text
> The type of prev is fixed to "accept" and cannot be changed to "prev", > in order to prevent reloading of entire decks while go back to > previous cards ! > > $query->template(-content=>$query->prev()); > results always in > <template><do type="accept" label="Back"><prev/></do></template> > > $query->template(-content=>$query->prev(-type=>"prev")); > should result in > <template><do type="prev" label="Back"><prev/></do></template> > > > CGI-WML-0.09 > This is perl, v5.8.0 built for sun4-solaris# > SunOS govsearch 5.8 Generic_108528-03 sun4u sparc SUNW,Ultra-60
Fix for this bug is: sub prev { my ($self,@p) = @_; my ($label) = rearrange([LABEL],@p); my $ret = qq(<do type="prev" label="Back"><prev/></do>); $ret =~ s/Back/$label/ if (defined $label); return $ret; } Regards, Thomas