qf.cgi
changeset 1 5cee74cc1991
parent 0 96a40e610f64
child 2 93f3693c31a0
equal deleted inserted replaced
0:96a40e610f64 1:5cee74cc1991
   109     $q->Tr( $q->td( $q->checkbox(
   109     $q->Tr( $q->td( $q->checkbox(
   110             -name => 'keep',
   110             -name => 'keep',
   111             -label => 'Kopie behalten?',
   111             -label => 'Kopie behalten?',
   112             -checked => 1) ) ),
   112             -checked => 1) ) ),
   113     $q->Tr( $q->td( $q->submit( { -name => 'add', -value => 'einrichten' } ) ),
   113     $q->Tr( $q->td( $q->submit( { -name => 'add', -value => 'einrichten' } ) ),
   114         $q->td( $q->submit( { -name => 'del', -value => 'Umleitung entfernen' } ) )
   114         $q->td( $q->submit( { -name => 'del', -value => 'entfernen' } ) )
   115     ),
   115     ),
   116   ),
   116   ),
   117   $q->end_form;
   117   $q->end_form;
   118 
   118 
   119 error( { status => 'Bitte geben Sie Ihren Nutzernamen an.' } )  unless defined $p->{user} and $p->{user} ne '';
   119 error( { status => 'Bitte geben Sie Ihren Nutzernamen an.' } )  unless defined $p->{user} and $p->{user} ne '';