X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fustva.pl;h=2151c4ab12eed6f97683e0655971251fab9bc8ae;hb=c2ed42c3f435937925ef825de61f2520196d1de6;hp=a40388a98efce767059896b4625add17c640af8f;hpb=7e2da79f4e22f5cf17f51b3a20b551533f9dc63d;p=kivitendo-erp.git
diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl
index a40388a98..2151c4ab1 100644
--- a/bin/mozilla/ustva.pl
+++ b/bin/mozilla/ustva.pl
@@ -29,7 +29,7 @@ require "$form->{path}/arap.pl";
#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";
@@ -76,13 +76,7 @@ sub report {
$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;
+ my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig),0,4);
my $department = '';
local $hide = '';
@@ -163,10 +157,10 @@ sub report {
{path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}>
| . $locale->text('Keine Firmenadresse hinterlegt!') . qq|\n|;
}
- $form->{co_email}=$form->{email} unless $form->{co_email}='';
- $form->{co_tel}=$form->{tel} unless $form->{co_tel}='';
- $form->{co_fax}=$form->{fax} unless $form->{co_fax}='';
- $form->{co_url}=$form->{urlx} unless $form->{co_url}='';
+ $form->{co_email}=$form->{email} unless $form->{co_email};
+ $form->{co_tel}=$form->{tel} unless $form->{co_tel};
+ $form->{co_fax}=$form->{fax} unless $form->{co_fax};
+ $form->{co_url}=$form->{urlx} unless $form->{co_url};
print qq|
@@ -233,7 +227,7 @@ sub report {
# accounting years if SQL-Ledger Version < 2.4.1
# $year = $form->{year} * 1;
- @years = sort { $b <=> $a } (2000 .. ($year+1));
+ @years = sort { $b <=> $a } (2003 .. ($year+1));
$form->{all_years} = \@years;
}
map { $form->{selectaccountingyear} .= qq|
+
|;
}
print qq|\n
@@ -714,10 +718,10 @@ sub ustva_vorauswahl {
print qq|