Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

nesting foreach statements

by Ogmios (Initiate)
on Apr 06, 2002 at 03:24 UTC ( [id://157113] : perlquestion . print w/replies, xml ) Need Help??

Ogmios has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to come up with the right snippet of code, but can't seem to get it right. I have a form that use a multi choice list. I have the info saved in a flat file. What I need to do is when people want to edit the info they submitted, they can see the choices they made highlited. I have tried several things but cannot seem to get it right. Any snipet of code would be greatly appreciated.

Replies are listed 'Best First'.
Re: nesting foreach statements
by premchai21 (Curate) on Apr 06, 2002 at 03:32 UTC

    ... whaat?

    It's slightly impossible to answer your question without seeing at least some of the implementation details, which we can't. Can you show us some of your code?

    To give a vague answer, though, the answer would be, when you retrieve the changes, show the new data, comparing as you go along with the old data, and highlight (with, presumably, HTML tags, as you seem to be implying that you're using CGI) whatever has changed, then store the new data over top of the old data. Practically everything else is implementation-specific.

(cLive ;-)Re: nesting foreach statements
by cLive ;-) (Prior) on Apr 06, 2002 at 14:27 UTC
    use CGI;

    Let's say you have a group called "color" with values red, yellow and green, and you want to pre-select this in a form (where the field is also called "color").

    In our example, you read in your data file and find the user has selected green. So:

    my $q = new CGI; $q->param('color','green');
    Then when creating form, print this
    $q->radio_group(-name=>'color', -values=>['red','yellow','green']);
    and the correct color will already be selected.


    cLive ;-)

      Thank you, but my problem is a bit more complex. I should try to explain better. 1) I have a form which contains a multichoice box in that format:
      <select name="colors" multiple size=5 "> <option>Blue <option>Red <option>Yellow <option>Green </select>
      2) When user fill out form, they can choose multiple options. After they submit, it saves the options into a flat text file, along with the other form's answer: userid|password|name|email|Blue,Red|comments 3) The user has the option to come back in later time and edit his info. It is prompted with an edit form on which his previous answers are already inserted. In this case I would need the edit form to present the "colors" field in this way:
      <select name="colors" multiple size=5 "> <option selected>Blue <option selected>Red <option>Yellow <option>Green </select>
      I am limited with perl and I have tried to basically read the array from the choice of colors: @colors = ("Blue","Red","Yellow","Green"); make the chosen colors scalar into an array and read it: @chosen = ("Blue","Red"); an then tried to compare both but all I can come up with is a bunch of nested foreach statements which is not good:
      foreach colors { foreach chosen { if $chosen eq $color { $editchosen = <option selected>$color } else { $editchosen = <option>$color } } }
      Anyway, you can tell that I am not starting well with my thinking. Help! Thank you.
        Like this?
        #!/usr/bin/perl -w use strict; use CGI; my $q = new CGI; my @colors = qw(red yellow pink green orange purple blue); my @chosen = qw(red green purple); print $q->header, $q->start_html, $q->start_form, $q->scrolling_list(-name => 'color', -values => \@colors, -default => \@chosen, -size => 5, -multiple => 'true' ), $q->submit, $q->end_form, $q->end_html; exit(0);
        cLive ;-)