X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fe421d003c62d01455377bc8cc7d539317a65afe..01b3bcb99ddc65a3d4504abf3d12f7dff632c05e:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index 6c3b297db..7eab5c294 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -460,6 +460,17 @@ sub use_stylesheet {
return @{ $self->{stylesheet} };
}
+sub get_stylesheet_for_user {
+ my $css_path = 'css';
+ if (my $user_style = $::myconfig{stylesheet}) {
+ $user_style =~ s/\.css$//; # nuke trailing .css, this is a remnand of pre 2.7.0 stylesheet handling
+ $css_path = "$css_path/$user_style" if -d "$css_path/$user_style";
+ }
+ $::myconfig{css_path} = $css_path; # needed for menunew, FIXME: don't do this here
+
+ return $css_path;
+}
+
sub header {
$::lxdebug->enter_sub;
@@ -471,6 +482,8 @@ sub header {
$::lxdebug->leave_sub and return if !$ENV{HTTP_USER_AGENT} || $self->{header}++;
+ my $css_path = $self->get_stylesheet_for_user;
+
$self->{favicon} ||= "favicon.ico";
$self->{titlebar} = "$self->{title} - $self->{titlebar}" if $self->{title};
@@ -485,17 +498,10 @@ sub header {
push @header, "" if $self->{landscape};
push @header, "" if -f $self->{favicon};
- push @header, '',
- '',
- '',
- '',
- '',
- '',
- '',
- '',
- '',
- '';
- push @header, $self->{javascript} if $self->{javascript};
+ push @header, map { qq|| }
+ qw(jquery common jscalendar/calendar jscalendar/lang/calendar-de jscalendar/calendar-setup part_selection jquery-ui jqModal switchmenuframe);
+ push @header, map { qq|| }
+ qw(main menu tabcontent list_accounts jquery.autocomplete jquery.multiselect2side frame_header/header);
push @header, map { $_->show_javascript } @{ $self->{AJAX} || [] };
push @header, "" if $self->{fokus};
push @header, sprintf "",
@@ -531,9 +537,7 @@ sub header {
EOT
print " $_\n" for @header;
print <
-