X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/cff0e9be7e6925c22dab7cb0b52ab9e23af0d56a..1dbba310dfffc4caa2a786893134fb3dbebd3e28:/bin/mozilla/login.pl diff --git a/bin/mozilla/login.pl b/bin/mozilla/login.pl index 553909355..e4b8b8470 100644 --- a/bin/mozilla/login.pl +++ b/bin/mozilla/login.pl @@ -24,12 +24,14 @@ # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +# MA 02110-1335, USA. ####################################################################### use SL::DB::Default; use SL::Form; use SL::Git; +use DateTime; require "bin/mozilla/common.pl"; require "bin/mozilla/todo.pl"; @@ -54,6 +56,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};