drg_cms 0.4.39

data/app/helpers/dc_ad_renderer.rb

@@ -0,0 +1,206 @@
+#--
+# Copyright (c) 2012-2013 Damjan Rems
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUTe NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+
+########################################################################
+#
+########################################################################
+class DcAdRenderer
+  
+include DcApplicationHelper
+
+########################################################################
+#
+########################################################################
+def initialize( parent, opts={} )
+  @parent = parent
+  @opts   = opts
+  @css    = ''
+  self
+end
+
+########################################################################
+#
+########################################################################
+def find_ads_multi()
+  ads = DcAd.where( position: @opts[:position], active: true).to_a#, :valid_to.gt => Time.now, :valid_from.lt => Time.now).to_a
+#p @opts, ads.size, '*-*-*-*'
+  ads.delete_if { |ad| (ad.valid_to and ad.valid_to < Time.now) or 
+                       (ad.valid_from and ad.valid_from > Time.now) or 
+                       (ad.displays > 0 and ad.displayed >= ad.displays) or
+                       (ad.clicks > 0 and ad.clicked >= ad.clicks) }
+                   
+  ads
+end
+
+########################################################################
+# Default method for rendering ads
+########################################################################
+def multi
+  return '' if @parent.session[:is_robot] # don't bother if robot
+  html = "<div id='ad-#{@opts[:position]}-div'>"
+  n = 0
+  find_ads_multi.each do |ad|
+    div = "ad-#{@opts[:position]}-#{n+=1}"
+    html << "<div id='#{div}' style='position: absolute; display: none;'>"
+    # all except first are hidden
+#    html << n == 1 ? '>' : 'style="display: none;">'
+    html << case ad.type
+    when 1 then # picture
+      picture_link ad
+    when 2 then # flash
+      flash_link ad
+    when 3 then # script
+      ad.script
+    else
+      'Error. Wrong ad type!'
+    end
+    html << '</div>'
+  end
+# 
+  html << '</div>'
+  if n > 0
+    js = <<EOJS
+  dc_ad_next_slide = function(div, index, max, timeout) {
+    index = index + 1;
+    div_show = div + index.toString();
+    index_h = index - 1;
+    if (index_h == 0) index_h = max;
+    div_hide = div + index_h.toString();
+    $('#' + div_show).fadeIn(1500);
+    $('#' + div_hide).fadeOut(1500);
+
+    if (index == max) index = 0; 
+    setTimeout( function () { dc_ad_next_slide(div, index, max, timeout); }, timeout);
+}
+
+  $(document).ready(function () {
+    dc_ad_next_slide("ad-#{@opts[:position]}-", 0, #{n}, 5000)
+  });       
+EOJS
+  html << @parent.javascript_tag(js)
+  end
+  html
+end
+
+########################################################################
+#
+########################################################################
+def find_ad_to_display()
+  ads = DcAd.where( dc_site_id: @parent.site._id, position: @opts[:position], active: true).to_a#, :valid_to.gt => Time.now, :valid_from.lt => Time.now).to_a
+#p @opts, ads.size, '*-*-*-*'
+  ads.delete_if { |ad| (ad.valid_to and ad.valid_to < Time.now) or 
+                       (ad.valid_from and ad.valid_from > Time.now) or 
+                       (ad.displays > 0 and ad.displayed >= ad.displays) or
+                       (ad.clicks > 0 and ad.clicked >= ad.clicks) }
+  return nil if ads.size == 0
+# Determine ad to display, based on priority. This is of course not totaly accurate, 
+# but it will have to do.
+  sum = ads.inject(0) {|r, e| r += e.priority}
+  rnd = Random.rand(sum)
+  r = 0
+  ads.each do |e|
+    return e if rnd >= r and rnd < r + e.priority
+    r += e.priority
+  end
+  ads.last # we really shouldn't be here
+end
+
+########################################################################
+# Create flash link for ad
+########################################################################
+def flash_link(ad)
+  click_tag = ad.link.to_s.size > 5 ? "flashvars=\"clickTag=#{ad.link}\"" : '' 
+<<EOT
+<div class="link_to_track" id="#{ad.id}">
+  <object>
+    <param name="wmode" value="transparent" />
+    <embed width="#{ad.width}" height="#{ad.height}" src="#{ad.file}" #{click_tag}
+           wmode=transparent allowfullscreen='true' allowscriptaccess='always' type="application/x-shockwave-flash"></embed>
+  </object>
+</div> 
+
+<script type='text/javascript'>
+$('##{ad.id}').mousedown(function (e){
+    $.post('/dc_common/ad_click', { id: this.id });
+    return true;
+});
+</script>     
+EOT
+end
+
+########################################################################
+# Create picture link for ad
+########################################################################
+def picture_link(ad)
+  @parent.link_to @parent.image_tag(ad.file), ad.link, id: ad.id, class: 'link_to_track', target: ad.link_target 
+end
+
+########################################################################
+# Default method for rendering ads
+########################################################################
+def default
+  return '' if @parent.session[:is_robot] # don't bother if robot
+  html = ''
+  if (ad = find_ad_to_display)
+# save to statistics, if not in cms
+    if @opts[:edit_mode] < 1
+      DcAdStat.create!(dc_ad_id: ad.id, ip: @parent.request.ip, type: 1 )
+# save display counter  
+      ad.displayed += 1
+      ad.save
+    end
+    html << case ad.type
+    when 1 then # picture
+      picture_link ad
+    when 2 then # flash
+      flash_link ad
+    when 3 then # script
+      ad.script
+    else
+      'Error. Wrong ad type!'
+    end
+  end
+  html
+end
+
+########################################################################
+# Render HTML
+########################################################################
+def render_html
+  method = @opts[:method] || 'default'
+  html = if method and self.respond_to?(method)
+    send(method)
+  else
+    "DcAdRenderer: method #{method} not defined!"
+  end
+  html  
+end
+
+########################################################################
+# Render CSS
+########################################################################
+def render_css
+  @css
+end
+
+end

data/app/helpers/dc_application_helper.rb

@@ -0,0 +1,704 @@
+#coding: utf-8
+#--
+# Copyright (c) 2012+ Damjan Rems
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+#++
+
+module DcApplicationHelper
+attr_reader :page, :design, :site, :tables, :ids, :form, :options
+attr_accessor :parts
+
+############################################################################
+# Calls part renderer to return part of design.
+############################################################################
+def dc_render(renderer, opts={})
+  type = renderer.to_s.downcase
+  opts[:edit_mode]  = session[:edit_mode] 
+# TODO Check why did I always put return_to into link and will this break something  
+#  opts[:editparams] = { return_to: request.url }
+  opts[:editparams] = {}
+  opts = @options.merge(opts) # merge options with parameters passed on site, page, design ...
+  opts.symbolize_keys!           # this makes lots of things easier
+# Create renderer object
+  klass = (type + '_renderer').classify
+  obj = Kernel.const_get(klass, Class.new).new(self, opts)
+# 
+  html = obj.render_html
+  @css  << obj.render_css.to_s
+  html.nil? ? '' : html.html_safe # nil can happened  
+end
+
+########################################################################
+# Used for designs with lots of common code and one part which is different.
+# 
+# Example: As used in design. Backslashing < and % is important \<\%
+# <% part = "<div  class='some-class'>\<\%= dc_render(:my_renderer, method: 'render_method') \%\></div>" %>
+# <%= dc_replace_in_design(piece: 'piece_name', replace: '[main]', with: part) %>
+# 
+# Want to replace more than one part. Use array.
+# <%= dc_replace_in_design(replace: ['[part1]','[part2]'], with: [part1, part2]) %>
+# 
+# This helper is replacement for 'script' method defined in dc_piece_renderer, 
+# but it can also use design defined in site document if piece parameter is not set.
+########################################################################
+def dc_replace_in_design(opts={})
+  design = opts[:piece] ? DcPiece.find(name: opts[:piece]).script : dc_get_site.design
+  if opts[:replace]
+# replace more than one part of code
+    if opts[:replace].class == Array
+      0.upto(opts[:replace].size - 1) {|i| design.sub!(opts[:replace][i], opts[:with][i])}
+    else
+      design.sub!(opts[:replace], opts[:with])
+    end
+  end
+  render(inline: design, layout: opts[:layout])
+end
+
+########################################################################
+########################################################################
+def dc_render_design(opts={}) #NODOC
+  p "dc_render_design will be deprecated. Use dc_replace_in_design instead."  
+  dc_replace_in_design(opts)
+end
+
+############################################################################
+# Creates title for dialog. Title also has pagination link on its right side.
+############################################################################
+def dc_table_title(text, result=nil)
+  c = "<table width='100%' cellspacing='0' cellpadding='1' class='dc-title'><tr><td>#{text}</td>"
+  if result and result.respond_to?(:current_page)
+    c << "<td align='right' style='font-size: 0.8em;'> #{paginate(result, :params => {:action => 'index'})}</td>" 
+  end
+  c << '<tr></table>'
+  c.html_safe
+end
+
+############################################################################
+# Creates title for cmsedit edit dialog. 
+############################################################################
+def dc_edit_title()
+  c = "#{t('drgcms.edit')} : "
+  c << (@form['title'] ? t( @form['title'], @form['title'] ) : t_tablename(@form['table'])) + ' : '
+  title = @form['form']['edit_title'] || @form['edit_title'] # edit_title bo šel ven
+  c << "#{@record[ title ]} : " if title and @record.respond_to?(title)
+  c << @record._id 
+end
+
+############################################################################
+# Creates title for cmsedit new dialog. 
+############################################################################
+def dc_new_title()
+  if @form['table'] == 'dc_dummy'
+    t( @form['title'], @form['title'] )
+  else
+    "#{t('drgcms.new')} : #{t_tablename(@form['table'])}"    
+  end
+end
+
+####################################################################
+# Creates label for edit dialog.
+####################################################################
+def dc_label_for(input_html, label)
+  c =<<eot
+<tr>
+  <td class="dc-edit-label">#{label}</td>
+  <td class="dc-edit-field">#{input_html}</td>
+</tr>
+eot
+  c.html_safe
+end
+
+####################################################################
+# Returns messages saved in flash formated for display. 
+####################################################################
+def dc_flash_messages()
+  err  = @parent ? @parent.flash[:error]   : flash[:error]
+  war  = @parent ? @parent.flash[:warning] : flash[:warning]
+  inf  = @parent ? @parent.flash[:info]    : flash[:info]
+  note = @parent ? @parent.flash[:note]    : flash[:note]
+  unless err.nil? and war.nil? and inf.nil? and note.nil?
+    c = ''
+    c << "<div class=\"dc-form-error\">#{err}</div>" if err
+    c << "<div class=\"dc-form-warning\">#{war}</div>" if war
+    c << "<div class=\"dc-form-info\">#{inf}</div>" if inf
+    c << note if note
+    if @parent 
+      @parent.flash[:error]   = nil
+      @parent.flash[:warning] = nil
+      @parent.flash[:info]    = nil
+      @parent.flash[:note]    = nil
+    else
+      flash[:error]   = nil
+      flash[:warning] = nil
+      flash[:info]    = nil
+      flash[:note]    = nil
+    end
+    c.html_safe
+  end
+end
+
+########################################################################
+# Decamelizes string. This probably doesn't work very good with non ascii chars.
+# Therefore it is very unwise to use non ascii chars for table (collection) names.
+########################################################################
+def decamelize_type(st)
+  return nil if st.nil?
+  r = ''
+  st.to_s.each_char do |c|
+    r << case 
+      when r.size == 0     then c.downcase
+      when c.downcase != c then '_' + c.downcase
+      else c      
+    end
+  end
+  r
+end
+
+####################################################################
+# return error messages for the record
+####################################################################
+def dc_error_messages_for(r)
+  return '' unless r.errors.any?
+  msgs = ''
+  r.errors.each do |attribute, errors_array|
+    label = t("helpers.label.#{decamelize_type(r.class)}.#{attribute}", attribute)
+    msgs << "<li>#{label} : #{errors_array}</li>"
+  end
+  
+c = <<eot
+<div class="dc-form-error"> 
+  <h2>#{t('drgcms.errors_no')} #{r.errors.size}</h2>  
+  <ul>#{msgs}</ul>  
+</div>
+eot
+  c.html_safe
+end
+
+####################################################################
+# return true if in edit mode
+####################################################################
+def dc_edit_mode?
+  (@parent ? @parent.session[:edit_mode] : session[:edit_mode]) > 1
+end
+
+####################################################################
+# Return create link for drg_cms
+####################################################################
+def dc_link_for_create(opts)
+  title  = opts.delete(:title) #
+  target = opts.delete(:target)  || 'iframe_cms'
+  opts[:action] = 'new'
+  url   = @parent ? @parent.url_for(opts) : url_for(opts)
+  js = "$('##{target}').attr('src', '#{url}'); return false;"
+  html = if @parent
+    @parent.image_tag('drg_cms/add.png', { onclick: js, style: 'cursor: pointer;', title: title, alt: 'Create'})
+  else
+    image_tag('drg_cms/add.png', { onclick: js, style: 'cursor: pointer;', title: title, alt: 'Create'})
+  end
+  html.html_safe  
+end
+
+####################################################################
+# 
+####################################################################
+def dc_link_for_edit(opts)
+  title = opts.delete(:title) #
+  target = opts.delete(:target) || 'iframe_cms'
+  opts[:action] = 'edit'
+  opts[:controller] ||= 'cmsedit'
+  url   = @parent ? @parent.url_for(opts) : url_for(opts)
+  js = "$('##{target}').attr('src', '#{url}'); return false;"
+  html = if @parent
+    @parent.image_tag('drg_cms/edit.png', { onclick: js, style: 'cursor: pointer;', title: title, alt: 'Edit'})
+  else
+    image_tag('drg_cms/edit.png', { onclick: js, style: 'cursor: pointer;', title: title, alt: 'Edit'})
+  end
+  html.html_safe
+end
+
+####################################################################
+# Create edit link for drg_cms
+####################################################################
+def dc_link_menu_tag(title)
+  html =<<EOT
+  <dl>
+  <dt><div class='drgcms_popmenu' href="#"><span><img style="cursor:pointer;" src="/assets/drg_cms/edit.png" title="#{title}"></span></div></dt>
+    <dd>
+    <ul class=' div-hidden drgcms_popmenu_class'> 
+EOT
+  yield html
+  html << "</ul></dd></dl>"
+end
+
+####################################################################
+# Create one option in page edit link
+####################################################################
+def dc_link_for_edit1(opts, link_text) #NODOC
+  url = @parent.url_for(opts)
+  "<li><div class='drgcms_popmenu_item' style='cursor: pointer;' data-url='#{url}'>#{link_text}</div></li>\n"
+end
+
+########################################################################
+# Create edit menu for dc_page document.
+########################################################################
+def dc_page_edit_menu()
+  return '' if @opts[:edit_mode] < 2
+# save some data to cookie. This can not go to session.
+  t = @parent.site.page_table
+  kukis = { "#{t}.dc_design_id" => @page.dc_design_id,
+            "#{t}.menu_id"      => @page.menu_id,
+            "#{t}.kats"         => @page.kats,
+            "#{t}.page_id"      => @page.id,
+            "#{t}.dc_site_id"   => @parent.site.id
+  }
+  @parent.cookies[:record] = Marshal.dump(kukis)
+  title = "#{t('drgcms.edit')}: #{@page.subject}"
+  dc_link_menu_tag(title) do |html|
+    @opts[:editparams].merge!( :controller => 'cmsedit', :action => 'edit' )
+    @opts[:editparams].merge!( :id => @page.id, :table => @parent.site.page_table, formname: nil, edit_only: 'body' )
+    html << dc_link_for_edit1( @opts[:editparams], t('drgcms.edit_content') )
+    
+    @opts[:editparams][:edit_only] = nil
+    html << dc_link_for_edit1( @opts[:editparams], t('drgcms.edit_advanced') )
+    
+    @opts[:editparams][:action] = 'new'
+    html << dc_link_for_edit1( @opts[:editparams], t('drgcms.edit_new_page') )
+
+    @opts[:editparams].merge!(ids: @page.id, formname: 'dc_part', table: "#{@parent.site.page_table};dc_part"  )
+    html << dc_link_for_edit1( @opts[:editparams], t('drgcms.edit_new_part') )
+  end
+end
+
+########################################################################
+# Return page class (from site record) which defines page_class table (collection)
+# used for saving page data. 
+# 
+# Mostly used by forms, when some method must be called from page model.
+# 
+# @example usage from form description:
+#    30:
+#      name: link
+#      type: text_with_select
+#      eval: 'DcPageClass.all_pages_for_site(@parent.dc_get_site)'
+########################################################################
+def dc_page_class()
+ dc_get_site.page_class.classify.constantize  
+end
+
+####################################################################
+# Wrapper for i18 t method, with some spice added
+####################################################################
+def t(key, default='')
+  c = I18n.t(key)
+  if c.class == Hash or c.match( 'translation missing' )
+    c = I18n.t(key, locale: 'en') 
+# Still not found. Return default if set
+    c = default unless default.blank?
+  end
+  c
+end
+
+####################################################################
+# Returns translated tablename. 
+####################################################################
+def t_tablename(tablename, default=nil)
+  t('helpers.label.' + tablename + '.tabletitle', default || tablename)
+end
+
+############################################################################
+# Translation for field name label.
+############################################################################
+def t_name(name, default='')
+  c = t("helpers.label.#{@form['table']}.#{name}", default)
+  c = name.capitalize.gsub('_',' ') if c.match( 'translation missing' )
+  c
+end
+
+############################################################################
+# Return name (description) for specified field in document
+# 
+# @example usage from program
+#   dc_name4_value('dc_user', 'name', text.id)
+#
+# @example usage from form description
+#  columns:
+#    2: 
+#      name: site_id
+#      eval: dc_name4_value('site','name',@record['site_id'])
+#
+# @param [ model ] table (collection) model name.
+# @param [ field ] field name to return
+# @param [ id ] id to search for
+# 
+############################################################################
+def dc_name4_value(model, field, value)
+  return '' if value.nil?
+  c = t('helpers.label.' + model + '.choices4_' + field )
+  a = c.chomp.split(',').inject([]) {|r,v| r << v.split(':') }
+  a.each {|e| return e.first if e.last.to_s == value.to_s }
+  ''
+end
+
+############################################################################
+# Return name (description) for specified table and id
+# 
+# @example usage from program
+#   dc_name4_id('dc_user', 'name', text.id)
+#
+# @example usage from form description
+#  columns:
+#    2: 
+#      name: site_id
+#      eval: name4_id('site','name',@record['site_id'])
+#
+# @param [ model ] table (collection) model name.
+# @param [ field ] field name to return
+# @param [ id ] id to search for
+# 
+############################################################################
+def dc_name4_id(model, field, id)
+  return '' if id.nil?
+  model = model.classify.constantize if model.class == String
+  rec = model.find_by(id: id)
+  rec.nil? ? '' : rec[field]
+end
+
+############################################################################
+# Return icon representation for boolean value. Icon is a picture of checked or unchecked box.
+# 
+# @example usage from program
+#   dc_icon4_boolean(some_value)
+#
+# @example usage from form description
+#  columns:
+#    10: 
+#      name: active
+#      eval: dc_icon4_boolean
+#
+# @param [ value ] value 
+############################################################################
+def dc_icon4_boolean(val)
+  dc_dont?(val) ? image_tag('drg_cms/checkbox-unchecked.png') : image_tag('drg_cms/checkbox-checked.png')
+end
+
+############################################################################
+# Safely output date/time value in desired format. Will return '' if value is nil.
+# 
+# Mostly used for calling from views.
+############################################################################
+def dc_date_time(val, default=nil)
+  return '' if val.nil?
+  default = ( val.class == Date ? t('date.formats.default') : t('time.formats.default') ) if default.nil?
+  val.strftime(default)
+end
+
+####################################################################
+# Determine and return site record from url. Site record will be cached in
+# @site variable.
+####################################################################
+def dc_get_site()
+  return @site if @site # already cached
+#
+  req = @parent ? @parent.request.url : request.url # different when called from renderer
+  uri  = URI.parse(req)
+  @site = DcSite.find_by(name: uri.host)
+# Site can be aliased
+  if @site and !@site.alias_for.blank?
+    @site = DcSite.find_by(name: @site.alias_for)
+  end
+# Development environment. Check if site with name test exists and use 
+# homepagelink field as pointer to real site name.
+  if @site.nil? and ENV["RAILS_ENV"] != 'production'
+    @site = DcSite.find_by(name: 'test')
+    @site = DcSite.find_by(name: @site.alias_for) if @site
+  end 
+  @site = nil if @site and !@site.active # site is disabled
+  @site
+end
+
+############################################################################
+# Return array of policies defined in a site document formated to be used
+# as choices select field, where policy_id field is defined in document. 
+# 
+# @example (as used in forms) 
+#    name: policy_id
+#    type: select
+#    eval: dc_choices4_site_policies
+#    html:
+#      include_blank: true      
+############################################################################
+def dc_choices4_site_policies()
+  site = dc_get_site()
+  site.dc_policies.all.inject([]) { |r, policy| r << [ policy.name, policy.id] if policy.active }
+end
+
+############################################################################
+# Returns list of table names (collections) as array of choices for use in select field 
+# on data permission form. Method gets list of available collections from 
+# cms_menu.yml menu definition file.
+# 
+# @example (as used in forms) 
+#   eval: dc_choices4_tables_list
+############################################################################
+def dc_choices4_tables_list
+  menus = []
+  DrgCms.paths(:forms).reverse.each do |path|
+    f = "#{path}/cms_menu.yml"
+    menus << YAML.load_file(f)['menu'] if File.exist?(f)
+  end  
+#  
+  choices = [] #['Default permission','Default permission']]
+  menus.each do |section|  
+    section['items'].each do |e| 
+      c = t(e['caption'], e['caption'])
+      choices << ["#{c} - #{e['params']['table']}", e['params']['table']]
+    end
+  end
+  choices
+end
+
+##########################################################################
+# Returns available choices used by collection edit select field on CMS top menu.
+# 
+# @example: dc_choices4_cmsmenu
+# 
+# Returns 2d array ready for use in select field.
+##########################################################################
+def dc_choices4_cmsmenu()
+  menus = []
+  DrgCms.paths(:forms).reverse.each do |path|
+    f = "#{path}/cms_menu.yml"
+    menus << YAML.load_file(f)['menu'] if File.exist?(f)
+  end  
+#
+  choices = []
+  menus.each do |v|
+    choices << ["--- #{ t(v['section'], v['section']) }",'#']
+    v['items'].each do |i| 
+      opts = { controller: i['controller'], action: i['action'] }
+      i['params'].each {|k,v| opts.merge!(k => v) }
+      choices << [ t(i['caption'],i['caption']), url_for( opts ) ] 
+    end   
+  end
+  choices
+end
+
+############################################################################
+# Returns list of directories as array of choices for use in select field 
+# on folder permission form.
+# 
+# @example (as used in forms) 
+#   eval: dc_choices4_folders_list
+############################################################################
+def dc_choices4_folders_list
+  public = File.join(Rails.root,'public')
+  home   = File.join(public,dc_get_site.files_directory)
+  choices = Dir.glob(home + '/**/*/').select { |fn| File.directory?(fn) }
+  choices << home # add home
+  choices.collect! {|e| e.gsub(public,'')} # remove public part
+  choices.sort
+end
+
+############################################################################
+# Returns choices for select input filed.
+# 
+# @example 
+#   dc_choices4('dc_mail_list', 'name', '_id', :site_only => true)
+#   
+# @param [ model ] table (collection) model name.
+# @param [ name ] field name with description
+# @param [ id ] field name with id field. Default value is '_id'
+#      
+############################################################################
+def dc_choices4(model, name, id='_id', options = {})
+  qry = model.classify.constantize.only(id, name).sort(name => 1)
+  qry = qry.where(dc_site_id: dc_get_site()) if options[:site_only]
+  r = []
+  qry.each {|v| r << [ v[name], v[id] ] }
+  r
+end
+
+############################################################################
+# Adds new key to record cookie, thus preparing some initial values for creating 
+# new record on the next call.
+# 
+# @example 
+#   dc_add2_record_cookie(hash)
+#   
+# @param [ hash ] hash of cookies to add
+############################################################################
+def dc_add2_record_cookie(hash)
+  kukis = if @parent.cookies[:record] and @parent.cookies[:record].size > 0
+    Marshal.load(@parent.cookies[:record])
+  else
+    {}
+  end
+  hash.each {|k,v| kukis[k] = v }
+  @parent.cookies[:record] = Marshal.dump(kukis)
+end
+
+############################################################################
+# Returns true if access_policy allows user to view cms part 
+# Returns false and message if access is not allowed
+# 
+# @example 
+#   dc_user_can_view(@parent, @page)
+#   dc_user_can_view(@parent, @page.policy_id)
+# 
+# @param [ ctrl ] Controller object or object which holds methods to access session.
+# @param [ policy_id ] Policy id to check. If record is send as parameter, method will
+# check for policy_id field and use that field.
+############################################################################
+def dc_user_can_view(ctrl, policy_id)
+  policy_id = policy_id.policy_id if policy_id and policy_id.respond_to?(:policy_id)
+# Eventualy object without policy_id will be checked. This is to prevent error
+  policy_id = nil unless policy_id.class == BSON::ObjectId
+#
+  site = ctrl.site
+  policies = site.dc_policies
+# permission defined by default policy
+  default_policy = policies.find_by(is_default: true)
+  return false, 'Default accsess policy not found for the site!' unless default_policy
+  h = {}
+  default_policy.dc_policy_rules.to_a.each { |v| h[v.dc_policy_role_id] = v.permission }
+# update permissions with defined policy 
+  part_policy = nil
+  if policy_id
+    part_policy = policies.find(policy_id)
+    return false, 'Access policy not found for part!' unless part_policy
+    part_policy.dc_policy_rules.to_a.each { |v| h[v.dc_policy_role_id] = v.permission }
+  end
+#  p h
+# apply guest role if user has no roles defined
+  if ctrl.session[:user_roles].nil?
+    role = DcPolicyRole.find_by(system_name: 'guest', active: true)
+    return false, 'System guest role not defined!' unless role
+    ctrl.session[:user_roles] = [role.id]
+  end
+# Check if user has any role that allows him to view part
+  can_view, msg = false,''
+  ctrl.session[:user_roles].each do |role|
+    next unless h[role]          # role not yet defined. Will die in next line.
+    if h[role] > 0
+      can_view = true
+      break
+    end
+  end
+  msg = if !can_view
+    part_policy ? t(part_policy.message,part_policy.message) : t(default_policy.message,default_policy.message)
+  end
+  return can_view, msg
+end
+
+####################################################################
+# Return true if user has required role.
+# @example 
+#   dc_user_has_role('decision_maker', session[:user_id), session[:user_roles]) => true
+# 
+# @param [ role ] Role. Can be passed as string or role object. 
+# @param [ user ] User id. If not passed session[:user_id] will be used.
+# @param [ roles ] Array of roles that will be searched. If not passed session[:user_roles] will be used.
+####################################################################
+def dc_user_has_role( role, user=nil, roles=nil )
+  if roles.nil?
+    roles = (@parent ? @parent.session : session)[:user_roles]
+  end
+  if user.nil?
+    user = (@parent ? @parent.session : session)[:user_id]
+  end
+  return false if user.nil?  
+#  
+  if role.class == String
+    rol = role
+    role = DcPolicyRole.find_by(name: rol)
+    role = DcPolicyRole.find_by(system_name: rol) if role.nil?
+  end
+  return false if role.nil?
+# role is included in roles array
+  roles.include?(role._id)
+end
+
+####################################################################
+# Returns true if parameter has value of 0, false, no or -. Returns default
+# if parameter has nil value.
+# 
+# @example 
+#   dc_dont?('no')  => true
+#   dc_dont?(1)     => false
+# 
+# @param [ string ] String to be examined
+# @param [ default ] Default value when not set. false by default.
+####################################################################
+def dc_dont?(what, default=false)
+  return default if what.nil?
+  %w(0 no - false).include?(what.to_s.downcase.strip)
+end
+
+############################################################################
+# Truncates string to the size and takes care, that words are not broken.
+# 
+# @example 
+#   dc_limit_string(description, 100)
+# 
+# @param [ string ] Input string
+# @param [ size ] Maximal size of the string
+############################################################################
+def dc_limit_string(string, size)
+  return string if string.size < size
+  string = string[0,size]
+  string.chop! until (string[-1,1] == ' ' or string == '')
+  string << '...'
+end
+
+############################################################################
+# Returns key defined in BigTable as array of choices for use in select fields.
+# It first checks if key is defined only for current site and then if site 
+# is not defined. 
+# 
+# @example 
+#   eval: dc_big_table 'some-key'  # as used on form
+# 
+# @param [ string ] Key to be returned
+############################################################################
+def dc_big_table(key)
+  ret = []
+  bt = DcBigTable.find_by(key: key, site: dc_get_site._id, active: true)
+  bt = DcBigTable.find_by(key: key, site: nil, active: true) if bt.nil?
+  return ret if bt.nil? 
+# 
+  locale = I18n.locale.to_s
+  bt.dc_big_table_values.each do |v|   # iterate each value
+    next unless v.active
+    desc = ''
+    v.dc_big_table_locales.each do |l| # iterate each locale
+      if l.locale == locale
+        desc = l.description
+        break
+      end
+    end
+    desc = v.description if desc.blank? # get description from value description
+    desc = v.value if desc.blank?       # still blank. Use value as description
+    ret << [desc, v.value] 
+  end
+  ret
+end
+
+end