X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fustva.pl;h=e0ff7a68bde4f81748282be3c78b40ef1ef0c102;hb=8423c7b21bc3b4b2db7d0ffef756919619336e97;hp=73434c253c88d9c57d9b87ca78cebd13431f27e5;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 73434c253..e0ff7a68b 100644 --- a/bin/mozilla/ustva.pl +++ b/bin/mozilla/ustva.pl @@ -26,11 +26,10 @@ require "$form->{path}/arap.pl"; - -#use strict; +#use strict; #no strict 'refs'; #use diagnostics; -#use warnings FATAL=> 'all'; +#use warnings; # FATAL=> 'all'; #use vars qw($locale $form %myconfig); #our ($myconfig); #use CGI::Carp "fatalsToBrowser"; @@ -74,27 +73,24 @@ sub report { $lxdebug->enter_sub(); my $myconfig = \%myconfig; use CGI; + $form->{title} = $locale->text('UStVA'); - $form->{kz10}='' ; #Berichtigte Anmeldung? Ja =1 -# $accrual = ($eur) ? "" : "checked"; -# $cash = ($eur) ? "checked" : ""; - my $year = ''; - my $null = ''; - ($null,$null,$null,$null,$null,$year,$null,$null,$null) = localtime(); - $year += 1900; - + $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 Nein=0 + + my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig ), + 0, 4); + my $department = ''; - local $hide =''; + local $hide = ''; $form->header; - - print qq| -
0