SL/Layout/DHTMLMenu.pm

   1 package SL::Layout::DHTMLMenu;
   2
   3 use strict;
   4 use parent qw(SL::Layout::Base);
   5
   6 use SL::Presenter::JavascriptMenu qw(render_menu);
   7
   8 sub static_javascripts {
   9   qw(dhtmlsuite/menu-for-applications.js),
  10 }
  11
  12 sub javascripts_inline {
  13 <<'EOJS',
  14   DHTMLSuite.createStandardObjects();
  15   DHTMLSuite.configObj.setImagePath('image/dhtmlsuite/');
  16   var menu_model = new DHTMLSuite.menuModel();
  17   menu_model.addItemsFromMarkup('main_menu_model');
  18   menu_model.init();
  19   var menu_bar = new DHTMLSuite.menuBar();
  20   menu_bar.addMenuItems(menu_model);
  21   menu_bar.setTarget('main_menu_div');
  22   menu_bar.init();
  23 EOJS
  24 }
  25
  26 sub pre_content {
  27   render_menu($_[0]->menu),
  28 }
  29
  30 sub static_stylesheets {
  31   qw(
  32     dhtmlsuite/menu-item.css
  33     dhtmlsuite/menu-bar.css
  34     icons16.css
  35     menu.css
  36   );
  37 }
  38
  39 1;