X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=html%2Fhtml%2Fthemes%2Fipfire%2Finclude%2Ffunctions.pl;h=f71181e6323f27b25fd2bdc98552fd79dea7d17f;hb=480f354d894e212e9dd6f66936c2ca592e1c549b;hp=c83897e0e075a7c60f30756e386778a74d1fa7e5;hpb=6be4dd24043dc331a2ffda3b40a7cf150d1f8f0a;p=people%2Fteissler%2Fipfire-2.x.git
diff --git a/html/html/themes/ipfire/include/functions.pl b/html/html/themes/ipfire/include/functions.pl
index c83897e0e..f71181e63 100644
--- a/html/html/themes/ipfire/include/functions.pl
+++ b/html/html/themes/ipfire/include/functions.pl
@@ -1,391 +1,260 @@
#!/usr/bin/perl
+###############################################################################
+# #
+# IPFire.org - A linux based firewall #
+# Copyright (C) 2007 Michael Tremer & Christian Schmidt #
+# #
+# This program is free software: you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or #
+# (at your option) any later version. #
+# #
+# This program is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# 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, see . #
+# #
+###############################################################################
+# #
+# Theme file for IPfire (based on ipfire theme) #
+# Author kay-michael köhler kmk #
+# #
+# Version 1.0 March, 6th 2013 #
+###############################################################################
+# #
+# Modyfied theme by a.marx@ipfire.org January 2014 #
+# #
+# Cleanup code, deleted unused code and rewrote the rest to get a new working #
+# IPFire default theme. #
+###############################################################################
+
+require "${General::swroot}/lang.pl";
+
+###############################################################################
+#
+# print menu html elements for submenu entries
+# @param submenu entries
+sub showsubmenu() {
+ my $submenus = shift;
+
+ print "";
+ foreach my $item (sort keys %$submenus) {
+ $link = getlink($submenus->{$item});
+ next if (!is_menu_visible($link) or $link eq '');
-sub showmenu() {
- print <