root/trunk/app/helpers/hyperde/node.rb @ 47

module ApplicationHelper

  def attr?(attr_name, &block)
    value = attr(attr_name)
    buf = String.new
    buf << block.call(value) if block && value && value.size > 0
    buf
  end
    
  def attr(attr_name, template = nil, &block)
    value = ""
    begin
        value = @node.send(attr_name)
        if value.nil?
          ""
        else
          attr_value(value, attr_name, template, &block)      
      end
    rescue => ex
        value = ex.to_s
    end
    value
  end

  def attr_value(value, attr_name, template = nil, &block)
    HtmlAnchor.view = self    
    buf = String.new
    case value
    when Index
      if block
        buf << block.call(value)
      else
        buf << index(value) if value.entries.size > 0
      end
    when AnchorValue
      buf << anchor(value, template, &block)
    else
      case @node.nav_attributes[attr_name].data_type
      when "Image"
        buf << "<img src=\"#{value.to_s}\"/>"
      when "Url", "Uri"
        buf << "<a href=\"#{value.to_s}\" target=\"_blank\">#{value.to_s}</a>"
      when "Email"
        buf << "<a href=\"mailto:#{value.to_s}\" target=\"_blank\">#{value.to_s}</a>"
      else
        buf << value.to_s
      end
    end
    buf
  end
      
  def attributes(attr_list = nil)
    buf = String.new
    
    if attr_list.nil? || attr_list.include?("id")
      buf << "<div class='attribute'><span class='attribute_label'>Id:&nbsp;</span>"
      buf << "<span class='attribute_value'>#{@node.id}</span></div>"
    end
        
    attrs = @node.nav_attributes.values.select do |attr|
      attr_list ? attr_list.include?(attr.name) : true
    end
    attrs.sort! { |a,b| (a.order.to_s + a.name) <=> (b.order.to_s + b.name) } 
    attrs.each do |attr_def|
      attr?(attr_def.name) do |value|
        buf << "<div class='attribute'>" 
        buf << "<span class='attribute_label'>" 
        buf << NavAttribute.human_attribute_name(attr_def.name) << ":&nbsp;</span>"
        buf << "<span class='attribute_value'>" << value << "</span></div>"
      end
    end
    buf
  end

  def anchor(anc, template = nil, &block)
    native = "<span class='node_anchor_link'>%s</span>"
    create_anchor = lambda { |anc| NodeHtmlAnchor.new(anc) }
    template_for_anchor(template, block, create_anchor, anc, native)
  end

  def op(op_name, options = {}, template = nil, &block)
    native = "%s"
    create_anchor = lambda { |op_def| NodeOperationHtmlAnchor.new(op_def[:name], op_def[:options]) }
    template_for_anchor(template, block, create_anchor, { :name => op_name, :options => options}, native)   
  end

  class NodeOperationHtmlAnchor < HtmlAnchor
    attr_reader :function, :onclick
    
    def initialize(op_name, options = {})
      options[:url] ||= { :action => "context", :op => op_name, 
                          :view => options[:view], 
                          :params => params_for_anchor(view.params[:p]) }
      options[:with] ||= "Form.serialize(document.forms[0])"
      options[:complete] ||= "window.location.reload()" unless options[:update]
      options[:loading] ||= "$('__loading').innerHTML = '#{options[:label_loading] || 'Loading...'}';$('__loading').style.display='block'"
      options[:loaded] ||= "$('__loading').style.display = 'none'"
      options[:method] ||= "'post'"
      @label = options[:label]
      @function = view.remote_function(options)
      @ahref = view.link_to_function(@label, @function)
      @onclick = "#{@function}; return false;"
      @url = "javascript:#{@onclick}"
    end
  end
    
  class NodeHtmlAnchor < HtmlAnchor
    attr_reader :anchor

    def initialize(anc)
      @anchor = anc
      @label = anc.label_value
      @url = view.url_for(:action => action, :id => anc.target_id, 
                     :params => params_for_anchor(anc.params_values)) if anc.target_id
      @ahref = view.link_to(@label, :action => action, :id => anc.target_id, 
                     :params => params_for_anchor(anc.params_values)) if anc.target_id
    end
    
    def action
      case @anchor
      when ContextAnchorValue
        "context"
      when IndexAnchorValue
        "show_index"
      else
        nil
      end
    end
  end     
    
end