stylesheet/javascript handling verbessert

diff --git a/SL/Controller/BackgroundJobHistory.pm b/SL/Controller/BackgroundJobHistory.pm
index fbee5c0288a7345f8cecb0984d8453024ad136df..29f2bc79a38434f8a72a561b7d3dbcad2a4e08ca 100644 (file)
--- a/SL/Controller/BackgroundJobHistory.pm
+++ b/SL/Controller/BackgroundJobHistory.pm
@@ -79,7 +79,7 @@ sub check_task_server {
 }
 
 sub add_stylesheet {
 }
 
 sub add_stylesheet {

-  $::form->use_stylesheet('lx-office-erp/background_jobs.css');
+  $::request->{layout}->use_stylesheet('lx-office-erp/background_jobs.css');

 }
 
 1;
 }
 
 1;

diff --git a/SL/Controller/Layout/Base.pm b/SL/Controller/Layout/Base.pm
index cbd5088d3961b5a93f012eea2529b0ca31c7ba07..1a27174b512080edb3cf14f815a2c2d88b7d45da 100644 (file)
--- a/SL/Controller/Layout/Base.pm
+++ b/SL/Controller/Layout/Base.pm
@@ -21,6 +21,10 @@ sub init_menu {
   Menu->new('menu.ini');
 }
 
   Menu->new('menu.ini');
 }
 

+##########################################
+#  inheritable/overridable
+##########################################
+

 sub pre_content {
 }
 
 sub pre_content {
 }
 


@@ -33,13 +37,75 @@ sub end_content {
 sub post_content {
 }
 
 sub post_content {
 }
 

+sub stylesheets_inline {
+}
+
+sub javascript_inline {
+}
+
+#########################################
+# Interface
+########################################
+
+sub use_stylesheet {
+  my $self = shift;
+  push @{ $self->{stylesheets} ||= [] }, @_ if @_;
+  @{ $self->{stylesheets} ||= [] };
+}
+

 sub stylesheets {
 sub stylesheets {

+  my ($self) = @_;
+  my $css_path = $self->get_stylesheet_for_user;
+
+  return grep { $_ } map { $self->_find_stylesheet($_, $css_path)  } $self->use_stylesheet;

 }
 
 }
 

-sub stylesheets_inline {
+sub _find_stylesheet {
+  my ($self, $stylesheet, $css_path) = @_;
+
+  return "$css_path/$stylesheet" if -f "$css_path/$stylesheet";
+  return "css/$stylesheet"       if -f "css/$stylesheet";
+  return $stylesheet             if -f $stylesheet;

 }
 
 }
 

-sub javascript_inline {
+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
+    if (-d "$css_path/$user_style" &&
+        -f "$css_path/$user_style/main.css") {
+      $css_path = "$css_path/$user_style";
+    } else {
+      $css_path = "$css_path/lx-office-erp";
+    }
+  } else {
+    $css_path = "$css_path/lx-office-erp";
+  }
+  $::myconfig{css_path} = $css_path; # needed for menunew, FIXME: don't do this here
+
+  return $css_path;
+}
+
+
+sub use_javascript {
+  my $self = shift;
+  $::lxdebug->dump(0,  "class", \@_);
+  push @{ $self->{javascripts} ||= [] }, @_ if @_;
+  @{ $self->{javascripts} ||= [] };
+}
+
+sub javascripts {
+  my ($self) = @_;
+
+  $::lxdebug->dump(0,  "called", [ map { $self->find_javascript($_)  } $self->use_javascript ]);
+  return map { $self->_find_javascript($_)  } $self->use_javascript;
+}
+
+sub _find_javascript {
+  my ($self, $javascript) = @_;
+
+  return "js/$javascript"        if -f "js/$javascript";
+  return $javascript             if -f $javascript;

 }
 
 1;
 }
 
 1;

diff --git a/SL/Controller/Layout/Classic.pm b/SL/Controller/Layout/Classic.pm
index 514db794762a6940568d113a5e559d13159e890e..6aac3e574094d2d1a0afab05c147bacb94b7efca 100644 (file)
--- a/SL/Controller/Layout/Classic.pm
+++ b/SL/Controller/Layout/Classic.pm
@@ -14,6 +14,16 @@ sub new {
   $self->{top}  = SL::Controller::Layout::Top->new;
   $self->{left} = SL::Controller::Layout::MenuLeft->new;
 
   $self->{top}  = SL::Controller::Layout::Top->new;
   $self->{left} = SL::Controller::Layout::MenuLeft->new;
 

+  $self->use_stylesheet(
+    $self->{top}->stylesheets,
+    $self->{left}->stylesheets,
+  );
+
+  $self->use_javascript(
+    $self->{top}->javascripts,
+    $self->{left}->javascripts,
+  );
+

   $self;
 }
 
   $self;
 }
 


@@ -30,14 +40,4 @@ sub end_content {
   "</div>\n";
 }
 
   "</div>\n";
 }
 

-sub stylesheets {
-  $_[0]{top}->stylesheets,
-  $_[0]{left}->stylesheets;
-}
-
-sub javascripts {
-  $_[0]{top}->javascripts,
-  $_[0]{left}->javascripts;
-}
-

 1;
 1;

diff --git a/SL/Controller/Layout/MenuLeft.pm b/SL/Controller/Layout/MenuLeft.pm
index c79905269899c1bb03f2ba1f8ec8c82a41ba4449..ed4c5e9d3ce116606167c19162ab876194772075 100644 (file)
--- a/SL/Controller/Layout/MenuLeft.pm
+++ b/SL/Controller/Layout/MenuLeft.pm
@@ -7,8 +7,14 @@ use URI;
 
 use List::MoreUtils qw(apply);
 
 
 use List::MoreUtils qw(apply);
 

-sub stylesheets {
-  qw(css/icons16.css css/icons24.css);
+sub new {
+  my ($class, @slurp) = @_;
+
+  my $self = $class->SUPER::new(@slurp);
+
+  $self->use_stylesheet(qw(css/icons16.css css/icons24.css));
+
+  $self;

 }
 
 sub render {
 }
 
 sub render {

diff --git a/SL/Drafts.pm b/SL/Drafts.pm
index 7298f5c1d58f633d39a4609cd888d388d2e2ed93..16111af9c91ec0b45e69a999bb07a5dd1fa09a87 100644 (file)
--- a/SL/Drafts.pm
+++ b/SL/Drafts.pm
@@ -36,7 +36,7 @@ sub get_module {
   return ($module, $submodule);
 }
 
   return ($module, $submodule);
 }
 

-my @dont_save = qw(login password stylesheet action);
+my @dont_save = qw(login password action);

 
 sub save {
   $main::lxdebug->enter_sub();
 
 sub save {
   $main::lxdebug->enter_sub();

diff --git a/SL/Form.pm b/SL/Form.pm
index b25fe6a2d44e9df7a7ee838f1b3a6ac552599b0a..59815ebdee7d707d33f1bc6a86e3b033a14e07dc 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -447,53 +447,30 @@ sub create_http_response {
   return $output;
 }
 
   return $output;
 }
 

-sub use_stylesheet {
-  my $self = shift;
-
-  $self->{stylesheet} = [ $self->{stylesheet} ] unless ref $self->{stylesheet} eq 'ARRAY';
-
-  if (@_) {
-    $self->{stylesheet} =
-      [ grep { -f                       }
-        map  { m:^css/: ? $_ : "css/$_" }
-        grep { $_                       }
-             (@{ $self->{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
-    if (-d "$css_path/$user_style" &&
-        -f "$css_path/$user_style/main.css") {
-      $css_path = "$css_path/$user_style";
-    } else {
-      $css_path = "$css_path/lx-office-erp";
-    }
-  } else {
-    $css_path = "$css_path/lx-office-erp";
-  }
-  $::myconfig{css_path} = $css_path; # needed for menunew, FIXME: don't do this here
-
-  return $css_path;
-}
-

 sub header {
   $::lxdebug->enter_sub;
 
 sub header {
   $::lxdebug->enter_sub;
 

-  # extra code is currently only used by menuv3 and menuv4 to set their css.
-  # it is strongly deprecated, and will be changed in a future version.

   my ($self, %params) = @_;
   my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
   my @header;
 
   my ($self, %params) = @_;
   my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
   my @header;
 

+  my $layout = $::request->{layout};
+

   $::lxdebug->leave_sub and return if !$ENV{HTTP_USER_AGENT} || $self->{header}++;
 
   $::lxdebug->leave_sub and return if !$ENV{HTTP_USER_AGENT} || $self->{header}++;
 

-  my $css_path = $self->get_stylesheet_for_user;
+  # standard css for all
+  $layout->use_stylesheet("$_.css") for qw(
+    main menu tabcontent list_accounts jquery.autocomplete
+    jquery.multiselect2side frame_header/header
+    ui-lightness/jquery-ui-1.8.12.custom
+    js/jscalendar/calendar-win2k-1
+  );
+
+  $layout->use_javascript("$_.js") for qw(
+    jquery common jscalendar/calendar jscalendar/lang/calendar-de
+    jscalendar/calendar-setup part_selection jquery-ui jquery.cookie jqModal
+    switchmenuframe
+  );

 
   $self->{favicon} ||= "favicon.ico";
   $self->{titlebar} = join ' - ', grep $_, $self->{title}, $self->{login}, $::myconfig{dbname}, $self->{version} if $self->{title};
 
   $self->{favicon} ||= "favicon.ico";
   $self->{titlebar} = join ' - ', grep $_, $self->{title}, $self->{login}, $::myconfig{dbname}, $self->{version} if $self->{title};


@@ -505,16 +482,11 @@ sub header {
     push @header, "<meta http-equiv='refresh' content='$refresh_time;$refresh_url'>";
   }
 
     push @header, "<meta http-equiv='refresh' content='$refresh_time;$refresh_url'>";
   }
 

-  push @header, map { qq|<link rel="stylesheet" href="$_" type="text/css" title="Stylesheet">| } $self->use_stylesheet, $::request->{layout}->stylesheets;
-
-  push @header, "<style type='text/css'>\@page { size:landscape; }</style>" if $self->{landscape};
-  push @header, "<link rel='shortcut icon' href='$self->{favicon}' type='image/x-icon'>" if -f $self->{favicon};
-  push @header, map { qq|<script type="text/javascript" src="js/$_.js"></script>| }
-       qw(jquery common jscalendar/calendar jscalendar/lang/calendar-de jscalendar/calendar-setup part_selection jquery-ui jquery.cookie jqModal switchmenuframe);
+  push @header, map { qq|<link rel="stylesheet" href="$_" type="text/css" title="Stylesheet">| } $layout->stylesheets;
+  push @header, "<style type='text/css'>\@page { size:landscape; }</style> "                     if $self->{landscape};
+  push @header, "<link rel='shortcut icon' href='$self->{favicon}' type='image/x-icon'>"         if -f $self->{favicon};
+  push @header, map { qq|<script type="text/javascript" src="$_"></script>| }                 $layout->javascripts;

   push @header, $self->{javascript} if $self->{javascript};
   push @header, $self->{javascript} if $self->{javascript};

-  push @header, map { qq|<link rel="stylesheet" type="text/css" href="$css_path/$_.css">| }
-       qw(main menu tabcontent list_accounts jquery.autocomplete jquery.multiselect2side frame_header/header ui-lightness/jquery-ui-1.8.12.custom);
-  push @header, map { qq|<link rel="stylesheet" type="text/css" href="js/jscalendar/calendar-win2k-1.css">| }

   push @header, map { $_->show_javascript } @{ $self->{AJAX} || [] };
   push @header, "<script type='text/javascript'>function fokus(){ document.$self->{fokus}.focus(); }</script>" if $self->{fokus};
 
   push @header, map { $_->show_javascript } @{ $self->{AJAX} || [] };
   push @header, "<script type='text/javascript'>function fokus(){ document.$self->{fokus}.focus(); }</script>" if $self->{fokus};
 


@@ -522,6 +494,7 @@ sub header {
     strict       => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">|,
     transitional => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">|,
     frameset     => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">|,
     strict       => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">|,
     transitional => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">|,
     frameset     => qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">|,

+    html5        => qq|<!DOCTYPE html>|,

   );
 
   # output
   );
 
   # output


@@ -545,7 +518,6 @@ EOT
    ***********************************************/
 
   </script>
    ***********************************************/
 
   </script>

-  $params{extra_code}

  </head>
  <body>
 
  </head>
  <body>
 


@@ -559,11 +531,12 @@ EOT
 sub footer {
   # TODO: fix abort conditions
 
 sub footer {
   # TODO: fix abort conditions
 

+  print $::request->{layout}->end_content;

   print $::request->{layout}->post_content;
   print $::request->{layout}->post_content;

-  print "<script type='text/javascript' src='$_'></script>\n" for $::request->{layout}->javascripts;
-  if (my @inline_scripts = $::request->{layout}->javascript_inline) {
-    print "<script type='text/javascript'>$_</script>\n" for @inline_scripts;
-  }
+#  print "<script type='text/javascript' src='$_'></script>\n" for $::request->{layout}->javascripts;
+#  if (my @inline_scripts = $::request->{layout}->javascript_inline) {
+#    print "<script type='text/javascript'>$_</script>\n" for @inline_scripts;
+#  }

 
   print <<EOL
  </body>
 
   print <<EOL
  </body>

diff --git a/SL/User.pm b/SL/User.pm
index 2de54ee5ebe5edb7d2da4414c12b95e4bec01871..5255c8eeebc28ac5acee2271156a34de4113732e 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -136,7 +136,6 @@ sub login {
     $dbh->disconnect;
 
     if ($update_available) {
     $dbh->disconnect;
 
     if ($update_available) {

-      $form->{"stylesheet"} = "lx-office-erp.css";

       $form->{"title"} = $main::locale->text("Dataset upgrade");
       $form->header();
       print $form->parse_html_template("dbupgrade/header");
       $form->{"title"} = $main::locale->text("Dataset upgrade");
       $form->header();
       print $form->parse_html_template("dbupgrade/header");

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index c704174c8f66ec2fac026e3e217c8f708b91c369..a9dbd050e109d115e017ace39532b403421a0bdf 100755 (executable)
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -91,7 +91,7 @@ sub run {
   $locale = $::locale;
   $auth   = $::auth;
 
   $locale = $::locale;
   $auth   = $::auth;
 

-  $form->{stylesheet} = "lx-office-erp.css";
+  $request->{layout}->use_stylesheet("lx-office-erp.css");

   $form->{favicon}    = "favicon.ico";
 
   if ($form->{action}) {
   $form->{favicon}    = "favicon.ico";
 
   if ($form->{action}) {


@@ -703,7 +703,7 @@ sub dbupdate {
   my $form            = $main::form;
   my $locale          = $main::locale;
 
   my $form            = $main::form;
   my $locale          = $main::locale;
 

-  $form->{stylesheet} = "lx-office-erp.css";
+  $::request->{layout}->use_stylesheet("lx-office-erp.css");

   $form->{title}      = $locale->text("Dataset upgrade");
   $form->header();
 
   $form->{title}      = $locale->text("Dataset upgrade");
   $form->header();
 

diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index c84772813d2b098c8602978f85e740dafd4f79dc..f967c7975942e266105c79c124c78789fc4ed191 100644 (file)
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -466,7 +466,7 @@ sub list_account {
     $ca->{link_edit_account} = $link_edit_account . '&id=' . E($ca->{id});
   }
 
     $ca->{link_edit_account} = $link_edit_account . '&id=' . E($ca->{id});
   }
 

-  $form->use_stylesheet("list_accounts.css");
+  $::request->{layout}->use_stylesheet("list_accounts.css");

   $form->{title}       = $locale->text('Chart of Accounts');
 
   $form->header;
   $form->{title}       = $locale->text('Chart of Accounts');
 
   $form->header;

diff --git a/bin/mozilla/drafts.pl b/bin/mozilla/drafts.pl
index c471d009bcca0a9f61210a8bfafe94f145fc4af2..cac7bea36c974de7885d90a33a938cb603c8ce0a 100644 (file)
--- a/bin/mozilla/drafts.pl
+++ b/bin/mozilla/drafts.pl
@@ -26,7 +26,7 @@ sub save_draft {
     restore_form($form->{SAVED_FORM}, 1) if ($form->{SAVED_FORM});
     delete $form->{SAVED_FORM};
 
     restore_form($form->{SAVED_FORM}, 1) if ($form->{SAVED_FORM});
     delete $form->{SAVED_FORM};
 

-    $form->{SAVED_FORM}   = save_form(qw(stylesheet login password));
+    $form->{SAVED_FORM}   = save_form(qw(login password));

     $form->{remove_draft} = 1;
 
     $form->header();
     $form->{remove_draft} = 1;
 
     $form->header();


@@ -79,7 +79,7 @@ sub load_draft_maybe {
   $draft_nextsub = "add" unless ($draft_nextsub);
 
   delete $form->{action};
   $draft_nextsub = "add" unless ($draft_nextsub);
 
   delete $form->{action};

-  my $saved_form = save_form(qw(stylesheet login password));
+  my $saved_form = save_form(qw(login password));

 
   $form->header();
   print($form->parse_html_template("drafts/load",
 
   $form->header();
   print($form->parse_html_template("drafts/load",


@@ -129,7 +129,7 @@ sub load_draft {
     $form->{draft_description}     = $description;
     $form->{remove_draft}          = 'checked';
   }
     $form->{draft_description}     = $description;
     $form->{remove_draft}          = 'checked';
   }

-  # Ich vergesse bei Rechnungsentwürfe das Rechnungsdatum zu ändern. Dadurch entstehen 
+  # Ich vergesse bei Rechnungsentwürfe das Rechnungsdatum zu ändern. Dadurch entstehen

   # ungültige Belege. Vielleicht geht es anderen ähnlich jan 19.2.2011
   $form->{invdate} = $form->current_date(\%myconfig); # Aktuelles Rechnungsdatum  ...
   $form->{duedate} = $form->current_date(\%myconfig); # Aktuelles Fälligkeitsdatum  ...
   # ungültige Belege. Vielleicht geht es anderen ähnlich jan 19.2.2011
   $form->{invdate} = $form->current_date(\%myconfig); # Aktuelles Rechnungsdatum  ...
   $form->{duedate} = $form->current_date(\%myconfig); # Aktuelles Fälligkeitsdatum  ...

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index b08e5dbe0a176f7494cc34b47e3ac09e631fb644..8aed4918cd4754c3b098376ab37f8d4c6e37f0b0 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -835,7 +835,7 @@ sub storno {
     $form->error($locale->text("Invoice has already been storno'd!"));
   }
 
     $form->error($locale->text("Invoice has already been storno'd!"));
   }
 

-  map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password stylesheet type))); } keys(%{ $form }));
+  map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password type))); } keys(%{ $form }));

 
   invoice_links();
   prepare_invoice();
 
   invoice_links();
   prepare_invoice();

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 9508f736f9b85987ddd2ccaab65b861dd197020c..a5feea84a27f167bc632d6b73305c4bf735f99e0 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -1225,7 +1225,7 @@ sub save {
 
   $form->{simple_save} = 1;
   if(!$form->{print_and_save}) {
 
   $form->{simple_save} = 1;
   if(!$form->{print_and_save}) {

-    delete @{$form}{ary_diff([keys %{ $form }], [qw(login stylesheet id script type cursor_fokus)])};
+    delete @{$form}{ary_diff([keys %{ $form }], [qw(login id script type cursor_fokus)])};

     edit();
     ::end_of_request();
   }
     edit();
     ::end_of_request();
   }