X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4486e3bc8eb00c37cf8029e663eb94b4b9c5346a..68dbf4a4cb26b9554a23f076438109d7fc2d861c:/SL/Layout/Top.pm

diff --git a/SL/Layout/Top.pm b/SL/Layout/Top.pm
index 075e2f267..53a8de794 100644
--- a/SL/Layout/Top.pm
+++ b/SL/Layout/Top.pm
@@ -6,16 +6,22 @@ use parent qw(SL::Layout::Base);
 sub pre_content {
   my ($self) = @_;
 
-  $self->SUPER::render('menu/header', { partial => 1, no_output => 1 },
-                now        => DateTime->now_local,
-                is_fastcgi => scalar($::dispatcher->interface_type =~ /fastcgi/i),
-                is_links   => scalar($ENV{HTTP_USER_AGENT}         =~ /links/i));
+  $self->presenter->render('menu/header',
+    now        => DateTime->now_local,
+    is_fastcgi => scalar($::dispatcher->interface_type =~ /fastcgi/i),
+    is_links   => scalar($ENV{HTTP_USER_AGENT}         =~ /links/i),
+  );
 }
 
 sub stylesheets {
  'frame_header/header.css';
 }
 
+sub javascripts {
+  ('js/quicksearch_input.js') x!! $::auth->assert('customer_vendor_edit', 1),
+  ('js/glquicksearch.js')     x!! $::auth->assert('general_ledger', 1)
+}
+
 1;
 
 __END__