X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Flogin.pl;h=e4b8b84703de0c3464723927011f8aee40a03fff;hb=baf226d0b65e64f9475dea46b35d88d52fed1cc6;hp=553909355cf5192348cb02f44422d8d11a21f8a9;hpb=4bd1e2f8b588972f10f92728301feacefd5ee4dd;p=kivitendo-erp.git 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};