[-
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>
[- $rec = $r -> {category_set}[$row] ; -]
[$ if ($rec -> {edit_level} <= ($r -> {user_admin}?2:1)) $]
<li>
<a href="add.-category_id-[+ $rec -> {category_id} +]-.epl">[+ $rec -> {category} +]</a>
</li>
[$endif$]
</ul>
[$ if $r -> {user_id} $]
<p class="cHeadline">[= addsel_upd =]</p>
<ul>
[- $rec = $r -> {category_set}[$row] ;-]
[$if ($rec -> {edit_level} <= ($r -> {user_admin}?2:1)) $]
<li>
<a href="list.-category_id-[+ $rec -> {category_id} +]-.epl">[+ $rec -> {category} +]</a>
</li>
[$endif$]
</ul>
<p class="cHeadline"><a href="wiki/index.cgi">Wiki</a></p>
[$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 -> app -> posturl('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>
<input type="submit" name="-add_category" value="[=addsel4=]">
</form>
#]