1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
[!
sub title { $epreq -> gettext ('txt:setup_orga_title') }
sub condition {
my ($self, $r) = @_ ;
if ($r -> {data}{action} ne 'master')
{
delete $r -> {data}{dc2} ;
delete $r -> {data}{dc1} ;
return 0 ;
}
return 1 ;
}
!]
[$ sub show $]
<br>
[- $escmode = 0 -]
<p class="cCenter">[= txt:setup_orga1 =]</p>
<p class="cCenter">[= txt:setup_orga2 =]</p>
<p class="cCenter">[= txt:setup_orga3 =]</p>
<p class="cCenter">[= txt:setup_orga4 =]</p>
[- $escmode = 7 -]
<br>
[-
$fdat{timezone} ||= 'Europe/Berlin' ;
Embperl::MyForm -> showfields (
[
{ name => 'dc2', text => 'Organisation dc',
validate => [required => 1, -msg => 'Organisation dc darf nur Buchstaben, Zahlen, Bindestrich und Leerzeichen enthalten',
matches_regex => '^[-a-zA-Z0-9 ]*$' ]},
{ name => 'dc1', text => 'Top-Level dc',
validate => [required => 1, -msg => 'Top-Level dc darf nur Buchstaben, Zahlen, Bindestrich und Leerzeichen enthalten',
matches_regex => '^[-a-zA-Z0-9 ]*$' ]},
{ name => 'description', text => 'Beschreibung', width=> 1},
{ name => 'admin_password', text => 'Admin Kennwort', type => 'password',
validate => [ required => 1, length_min => 5]},
{ name => 'admin_retype', text => 'Kennwort wiederholen', type => 'password',
validate => [same => 'admin_password:Admin Kennwort']},
{ name => 'timezone', text => 'Zeitzone', type => 'select', xdatasrc => 'timezones', noblank => 1 },
]);
-]
[$endsub$]
|
