Hello there
I know I’m new so I hope you don’t mind asking a question, I am hoping someone can help me rather quick please. I’m working on a project that requires some perl knowledge.
I have a web site that runs a cgi back-end for my members and it has a search results feature.
I am trying to add a save search feature on the search results page which allows my members to select a number from a drop down (1 to 3) and then they click the save button, which in turns saves their results.
I’m also trying to allow my members to delete these searches anytime they wan using a simple delete button or drop down menu with a delete button (this would be on a separate page).
The problem I have is that I wouldn’t know where to start, I have the following code placed on my html page but I know this doesn’t work.
Any help would be so grateful.
Save Search results drop down:
<form action=members.cgi method=post name="saved_search">
<input type=hidden name=action value=modified>
<input type=hidden name=session value=%%session%%>
<select class="style4">
<option></option>
<option value="%%PERL:$uri = $ENV{REQUEST_URI}; $uri =~ s/session/disabled/; $out .= $uri;%%">Saved results 1</option>
<option value="%%PERL:$uri = $ENV{REQUEST_URI}; $uri =~ s/session/disabled/; $out .= $uri;%%">Saved results 2</option>
<option value="%%PERL:$uri = $ENV{REQUEST_URI}; $uri =~ s/session/disabled/; $out .= $uri;%%">Saved results 3</option>
</select>
<input name="Button1" type="button" class="style4" value="Save">
</form>
|
On my search Search page:
<form name="savedform">
<input type=hidden name=session value=%%session%%>
<input type=hidden name=ID value=%%ID%%>
<input type=hidden name=login value=%%login%%>
<select name="savedsearchorder" class="style4" onChange="window.location=this.value">
<option value="">--------------------</option>
<option value="%%PERL:if($values{'last_searched'} ne " "){ $out .= "$values{'last_searched'}" }%%">%%PERL:if($values{'last_searched'} ne " "){ $out .= "Saved Search 1" }%%</option>
<option value="%%PERL:if($values{'last_searched2'} ne " "){ $out .= " $values{'last_searched2'}" }%%">%%PERL:if($values{'last_searched2'} ne " "){ $out .= "Saved Search 2" }%%</option>
<option value="%%PERL:if($values{'last_searched3'} ne " "){ $out .= " $values{'last_searched3'}" }%%">%%PERL:if($values{'last_searched3'} ne " "){ $out .= "Saved Search 3" }%%</option>
</select>
</form>
|
Thank you for taken the time to take a look at this.
Simon
