[ic] form and set

Alain interchange-users@icdevgroup.org
Mon Jun 24 06:57:00 2002


hello,
I've setup a new admin page to add qualities to a product.
He re is the code:
<FORM ACTION="" METHOD=POST NAME="main">
<INPUT type=hidden NAME="item_id" VALUE="[cgi item_id]">
<INPUT TYPE=hidden NAME=mv_todo VALUE="return">


[loop list="1..10" ranges=1]
				<select name="genres" size="5">
				[query list=1 prefix=inner sql="SELECT *
                                  FROM genres
                                  "]
     				<option value="[inner-param genre_id]"
				>[inner-param genre_nom]
				[/query]
                                 </select>
[/loop]


[seti name="OK"]
    [perl tables=produits_genres]
    my @genres = split /\0/, $CGI->{genres};
    my @ids = split /\0/, $CGI->{ids};
    my $sku = $CGI->{item_id};
    my $i = 0;
    my $numelements = scalar (@genres);
    $Tag->query({sql => "delete from produits_genres where sku = '$sku'"});
    while ( $i < $numelements)
    {
    $Tag->query({sql => "insert into produits_genres (genre_id,sku) 
values ('@genres[$i]','$sku')"});
    $i++;
    }
    return;
    [/perl]
[/seti]


<input type="submit" name="mv_check" value="OK">
</form>

I don't understand why the code between the [seti] tag is execute when 
the page loads and not only when  the "OK" button is click.

Thanks for help

Alain