R: problem with perl snippets

I don't know if there's something that i do wrong... 
I put explicit reset of session values at top of the page but... For me
Works only if I do a force refresh in my browser (shift + f5);
otherwise, route goes exactly to the last page (pageBak of the example,
p7.survey of my code).
Maybe instructions of saving data are not good? 
This is code of my last page:
<SURVEY TITLE="title" CHECKKEY="yes" SUBMITTEXT="Avanti"
CLEARTEXT="Cancella" THEME="external" STYLESHEET="style.css"
REDIRECT="yes" CONTINUE="okpost.html">
<TEXT CAPTION="p7 survey" NAME="q17"/>
<SEQUENCE>
<FILE FILENAME="p1.survey"/>
<FILE FILENAME="pval01.survey"/>
<FILE FILENAME="pval05.survey"/>
<FILE FILENAME="pval06.survey"/>
<FILE FILENAME="pval07.survey"/>
<FILE FILENAME="pval08.survey"/>
<FILE FILENAME="p7.survey"/>
</SEQUENCE>
</SURVEY>

I ever use this code and I have all data right.


-----Messaggio originale-----
Da: [email protected]
[mailto:[email protected]] Per conto di Joel
Palmius
Inviato: martedì 27 giugno 2006 19.18
A: [email protected]
Oggetto: Re: survey-discussion-list: problem with perl snippets


And do you actually submit data between the attempts? Sounds to me as if

your old session remains, which is bad, since each new user is supposed
to 
get a new session. A session is only deleted if a) 60 minutes has passed

or b) data is successfully submitted.

If the session remains after having submitted data, then that's a bug.

A work-around would be to explicitly reset the session values in the 
first page:

{&
$session->setValue("tosee","");
$session->setValue("per",""); $session->setValue("pageFunk1.survey","");
# Ie, reset all page names $session->setValue("pageFunk2.survey",""); # 
&}

I have not tested this, there might be a logical error I haven't thought

about involved with resetting values.

   // Joel

On Tue, 27 Jun 2006, Luca Notari wrote:

> Hi all,
>
> some time ago Joel wrote an e-mail with subject: 
> survey-discussion-list: Interesting use of snippets
>
> in which one can choose some options, and have questions only 
> regarding this options.
>
> In my opinion this is a very smart perl-based solution, that avoids 
> use of a complicated sequence of ifroute in a multipaging survey.
>
> I've implemented this in a survey, but experienced this problem:
>
> the first time i run the survey, all is ok; the second time, it seems 
> that code that populates the array of the pages to be viewed doesn't 
> work; this code: {&
> $thispage = "per";
> if(!$session->getValue($thispage))
> {
> @tosee = ();
> for($i = 1; $i <= 40; $i++)
> {
> $n = "" . $i;
> if($i < 10) { $n = "0$n"; }
> $subm = $session->getValue("SUBMITTED_kont$n");
> if($subm eq "1")
> {
> push(@tosee,"pageFunk$n.survey");
> }
> }
> push(@tosee,"pageBak.survey");
> $lst = join(';',@tosee);
> $session->setValue("tosee",$lst);
> }
> &}
>
> Creates the array and puts in a session variable;
>
> And this code:
>
> <ROUTE CONTINUE="{&
> $thispage = "per";
> if(!$session->getValue($thispage))
> {
> $tosee = $session->getValue("tosee");
> @pags = split(";",$tosee);
> $next = splice(@pags,0,1);
> if(!$next) { $next = "pageBak.survey"; }
> print $next;
> $lst = join(';',@pags);
> $session->setValue($thispage,$next);
> $session->setValue("tosee",$lst);
> }
> else
> {
> print $session->getValue($thispage);
> }
> &}" />
>
> Routes in the first page available in the array.
>
> I placed this 2 pieces of code in the same page, the page which 
> contains the list of choices.
>
> The second time i run the survey (as i was another respondent, but 
> from the same machine) it seems that $next contains only 
> "pageBak.survey";
>
> Is the code "$next = splice(@pags,0,1);
> if(!$next) { $next = "pageBak.survey";" right?
>
> What I have to write into $thispage? I write the name of the document 
> in which this code is "mypage.survey", but doesn't work;
>
> I've tried many times, but result is that only works for 1 time. So, 
> I've returned in using ifroute in each page.
>
> What's my fault?
>
> Many thanks
>
> Luca Notari
>
> Skickat av "Luca Notari" <[email protected]>
> till survey-discussion
>
Skickat av Joel Palmius <[email protected]>
till survey-discussion


Skickat av "luca" <[email protected]>
till survey-discussion