X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9a1cccab6b1066804caa299b15353ce65a5ad1c6..e8e60f67de5e5825d1097c78f96bbd29977a3a7a:/bin/mozilla/login.pl diff --git a/bin/mozilla/login.pl b/bin/mozilla/login.pl index 553909355..4ffe0b775 100644 --- a/bin/mozilla/login.pl +++ b/bin/mozilla/login.pl @@ -30,6 +30,7 @@ use SL::DB::Default; use SL::Form; use SL::Git; +use DateTime; require "bin/mozilla/common.pl"; require "bin/mozilla/todo.pl"; @@ -54,6 +55,7 @@ sub company_logo { my $git = SL::Git->new; ($form->{git_head}) = $git->get_log(since => 'HEAD~1', until => 'HEAD') if $git->is_git_installation; + $form->{xmas} = '_xmas' if (DateTime->today->month == 12 && DateTime->today->day < 27); # create the logo screen $form->header() unless $form->{noheader};