[- 
use Embperl::Form::Validate ;
use File::Basename ;


$r = shift ;

my $langset = $r -> {language_set} ;
$$langset -> Reset ;
while ($rec = $$langset -> Next)
    {
    push @rules, 
        [
        -key => "category_$rec->{id}",
        -name => $rec -> {name},
        'emptyok',
        length_min => 5
        ] ;
    push @keys, "category_$rec->{id}" ;
    }





$epf = Embperl::Form::Validate -> new ([
                                        -key => \@keys,
                                        -name => { de => 'eine Kategorie', en => 'one category' },
                                        'required',
                                        @rules,
                                        ]) ;

$Embperl::Form::Validate::objects{'addsel'} = $epf ;

-]
<script>
[+ do { local $escmode = 0 ; $epf -> get_script_code (undef, $r) } +]
</script>

<p class="cHeadline">[= addsel1 =]</p>

<ul>
    <li>
        [- $rec = $r -> {category_set}[$row] -]
        <a href="add.-category_id-[+ $rec -> {category_id} +]-.epl">[+ $rec -> {category} +]</a>
    </li>
</ul>


[$ if $r -> {user_id} $]

<p class="cHeadline">[= addsel_upd =]</p>

<ul>
    <li>
        [- $rec = $r -> {category_set}[$row] -]
        <a href="list.-category_id-[+ $rec -> {category_id} +]-.epl">[+ $rec -> {category} +]</a>
    </li>
</ul>

[$else$]

<p class="cHeadline">[= addsel_login1 =] <a href="login.epl">[= addsel_login2 =]</a> [= addsel_login3 =]</p>

[$endif$]

[#
DEBUGGING:

[! use Data::Dumper; !]
<PRE>
[+ Dumper $ENV{SERVER_NAME}, $ENV{SERVER_PORT}, [keys %$r] +]
</PRE>
#]

[#
<form action="[+ $r -> {action_prefix}?($r->{action_prefix} . dirname($r-> param -> uri) .'/'):''+]addsel.epl"  OnSubmit="">

[= addsel2 =]<br> 
[= addsel3 =]<br><br>

<table>
    <tr>
        [- $rec = $r -> {language_set}[$row] -]
        <td>[+ $rec -> {name} +]:</td><td><input type="text" name="category_[+ $rec -> {id} +]" size=80></td>
    </tr>
</table>

<br><br>
&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="-add_category" value="[=addsel4=]">

</form>
#]