marty 0.5.12

data/app/components/marty/cm_form_panel.rb~

@@ -0,0 +1,5 @@
+require 'marty/permissions'
+
+class Marty::CmFormPanel < Netzke::Basepack::Form
+  extend Marty::Permissions
+end

data/app/components/marty/cm_grid_panel.rb~

@@ -0,0 +1,35 @@
+require 'netzke-basepack'
+require 'marty/permissions'
+
+class Marty::CmGridPanel < Netzke::Basepack::Grid
+  extend ::Marty::Permissions
+
+  has_marty_permissions read: :any
+
+  js_configure do |c|
+    # For some reason the grid update function was removed in Netzke
+    # 0.10.  So, add it here.
+    c.cm_update = <<-JS
+    function() {
+      this.store.load();
+    }
+    JS
+  end
+
+  def configure(c)
+    super
+
+    create = self.class.can_perform_action?(:create)
+    read   = self.class.can_perform_action?(:read)
+    update = self.class.can_perform_action?(:update)
+    delete = self.class.can_perform_action?(:delete)
+
+    c.prohibit_create     = !create
+    c.prohibit_read       = !read
+    c.prohibit_update     = !update
+    c.prohibit_delete     = !delete
+
+    c.enable_edit_inline  = update
+    c.enable_edit_in_form = update
+  end
+end

data/app/components/marty/data_import_view.rb~

@@ -0,0 +1,142 @@
+class Marty::DataImportView < Marty::CmFormPanel
+  include Marty::Extras::Layout
+
+  action :apply do |a|
+    a.text    = I18n.t("data_import_view.import")
+    a.tooltip = I18n.t("data_import_view.import")
+    a.icon    = :database_go
+  end
+
+  js_configure do |c|
+
+    c.set_result = <<-JS
+      function(html) {
+        var result = this.netzkeGetComponent('result');
+        result.updateBodyHtml(html);
+      }
+      JS
+
+    c.init_component = <<-JS
+      function() {
+        var me = this;
+        me.callParent();
+        var form = me.getForm();
+
+        var comboname = form.findField('import_type');
+        var textname  = form.findField('import_data');
+        var importbutton = me.actions["apply"].items[0];
+
+        comboname.on('select', function(combo, record) {
+          textname.setValue("");
+          me.netzkeGetComponent('result').updateBodyHtml('');
+        });
+
+        importbutton.on('click', function(t, e, ops) {
+          me.netzkeGetComponent('result').updateBodyHtml('');
+        });
+      }
+      JS
+  end
+
+  ######################################################################
+
+  endpoint :netzke_submit do |params, this|
+    data = ActiveSupport::JSON.decode(params[:data])
+
+    import_data, import_type =
+      data["import_data"] || "", data["import_type"] || ""
+
+    return this.netzke_feedback("Must provide import data.") if
+      import_data.empty?
+
+    return this.netzke_feedback("Must provide import type") if
+      import_type.empty?
+
+    import_type_rec = Marty::ImportType.find_by_name(import_type)
+
+    return this.netzke_feedback("Import type #{import_type} not found") unless
+      import_type_rec
+
+    return this.netzke_feedback("Insufficient permissions to run " +
+                                "the data import") unless
+      import_type_rec.allow_import?
+
+    klass               = import_type_rec.get_model_class
+    cleaner_function    = import_type_rec.cleaner_function
+    validation_function = import_type_rec.validation_function
+
+    begin
+      res = Marty::DataImporter.do_import_summary(klass,
+                                                  import_data,
+                                                  'infinity',
+                                                  cleaner_function,
+                                                  validation_function,
+                                                  )
+
+      result = res.map { |k, v|
+        case k
+        when :clean  then "#{v} record(s) cleaned."
+        when :same   then "#{v} record(s) unchanged."
+        when :create then "#{v} record(s) created."
+        when :update then "#{v} record(s) updated."
+        when :blank  then "#{v} empty lines."
+        end
+      }
+
+      this.set_result result.join("<br/>")
+    rescue Marty::DataImporterError => exc
+      result = [
+                "Import failed on line(s): #{exc.lines.join(', ')}",
+                "Error: #{exc.to_s}",
+               ]
+
+      this.set_result '<font color="red">' + result.join("<br/>") + "</font>"
+    end
+  end
+
+  def configure(c)
+    super
+
+    c.title = I18n.t("data_import_view.import_data")
+    c.items =
+      [
+       fieldset(I18n.t("data_import_view.select"),
+                {
+                  xtype:           :combo,
+                  name:            "import_type",
+                  store:           Marty::ImportType.all.map(&:name).sort,
+                  max_width:       "350",
+                  hide_label:      true,
+                  force_selection: true,
+                },
+                {
+                  name:         "import_data",
+                  width:        "100%",
+                  height:       300,
+                  xtype:        :textareafield,
+                  value:        "",
+                  auto_scroll:  true,
+                  hide_label:   true,
+                  spellcheck:   false,
+                  field_style: {
+                    font_family: 'courier new',
+                    font_size:   '12px'
+                  },
+                },
+                min_width: 700,
+                ),
+       :result,
+      ]
+  end
+
+  component :result do |c|
+    c.klass       = Marty::CmPanel
+    c.title       = I18n.t("data_import_view.results")
+    c.html        = ""
+    c.flex        = 1
+    c.min_height  = 150
+    c.auto_scroll = true
+  end
+end
+
+DataImportView = Marty::DataImportView

data/app/components/marty/extras/layout.rb

@@ -0,0 +1,46 @@
+module Marty
+  module Extras
+    module Layout
+
+      def hbox(*args)
+        params = args.pop
+        params.merge(layout: { type: :hbox, align: :stretch },
+                     items: args,
+                     )
+      end
+
+      def vbox(*args)
+        params = args.pop
+        params.merge(layout: { type: :vbox, align: :stretch },
+                     items: args,
+                     )
+      end
+
+      def fieldset(title, *args)
+        params = args.pop
+        params.merge(items: args,
+                     xtype: 'fieldset',
+                     defaults: { anchor: '100%' },
+                     title: title,
+                     )
+      end
+
+      def dispfield(params={})
+        {
+          attr_type: :displayfield,
+          hide_label: !params[:field_label],
+          read_only: true,
+        }.merge(params)
+      end
+
+      def vspacer(params={})
+        vbox({flex: 1, border: false}.merge(params))
+      end
+
+      def hspacer(params={})
+        hbox({flex: 1, border: false}.merge(params))
+      end
+
+    end
+  end
+end

data/app/components/marty/extras/layout.rb~

@@ -0,0 +1,46 @@
+module Marty
+  module Extras
+    module Layout
+      
+      def hbox(*args)
+        params = args.pop
+        params.merge(layout: { type: :hbox, align: :stretch },
+                     items: args,
+                     )
+      end
+
+      def vbox(*args)
+        params = args.pop
+        params.merge(layout: { type: :vbox, align: :stretch },
+                     items: args,
+                     )
+      end
+
+      def fieldset(title, *args)
+        params = args.pop
+        params.merge(items: args,
+                     xtype: 'fieldset',
+                     defaults: { anchor: '100%' },
+                     title: title,
+                     )
+      end
+
+      def dispfield(params={})
+        {
+          attr_type: :displayfield,
+          hide_label: !params[:field_label],
+          read_only: true,
+        }.merge(params)
+      end
+
+      def vspacer(params={})
+        vbox({flex: 1, border: false}.merge(params))
+      end
+
+      def hspacer(params={})
+        hbox({flex: 1, border: false}.merge(params))
+      end
+
+    end
+  end
+end

data/app/components/marty/extras/misc.rb

@@ -0,0 +1,18 @@
+module Marty::Extras::Misc
+  MM_OPTIONS = {
+    editor: {
+      trigger_action: :all,
+      xtype: :combo,
+      store: (1..12).map {|x| [x, "%02d" % x]},
+      # FIXME: for some reason, with Netzke 0.8.2, the label show
+      # up in the grid editor.  This hack seems to fix the
+      # problem.  However, the label in the add-in-form now looks
+      # weird.
+      label_align: :top,
+    },
+    renderer: "function(v){return ('0' + v).slice (-2);}",
+    # FIXME: a little bogus since this is computed statically.  lambda
+    # didn't work.
+    default_value: Date.today.month
+  }
+end

data/app/components/marty/form.rb

@@ -0,0 +1,6 @@
+require 'marty/permissions'
+
+# Netzke Form with Marty permissions
+class Marty::Form < Netzke::Basepack::Form
+  extend ::Marty::Permissions
+end

data/app/components/marty/grid.rb

@@ -0,0 +1,45 @@
+require 'netzke-basepack'
+require 'netzke/basepack/grid'
+require 'marty/permissions'
+
+class Marty::Grid < ::Netzke::Basepack::Grid
+  extend ::Marty::Permissions
+
+  has_marty_permissions read: :any
+
+  def preconfigure_record_window(c)
+    super
+    # Fix Add in form/Edit in form modal popup width
+    # Netzke 0.10.1 defaults width to 80% of screen which is too wide
+    # for a form where the fields are stacked top to bottom
+    # Netzke 0.8.4 defaulted width to 400px - let's make it a bit wider
+    c.width = 475
+  end
+
+  js_configure do |c|
+    # For some reason the grid update function was removed in Netzke
+    # 0.10.1.  So, add it here.
+    c.cm_update = <<-JS
+    function() {
+      this.store.load();
+    }
+    JS
+  end
+
+  def configure(c)
+    super
+
+    create = self.class.can_perform_action?(:create)
+    read   = self.class.can_perform_action?(:read)
+    update = self.class.can_perform_action?(:update)
+    delete = self.class.can_perform_action?(:delete)
+
+    c.prohibit_create     = !create
+    c.prohibit_read       = !read
+    c.prohibit_update     = !update
+    c.prohibit_delete     = !delete
+
+    c.enable_edit_inline  = update
+    c.enable_edit_in_form = update
+  end
+end

data/app/components/marty/grid_append_only.rb

@@ -0,0 +1,12 @@
+class Marty::GridAppendOnly < Marty::McflyGridPanel
+  def configure(c)
+    super
+
+    c.enable_extended_search = false
+    c.prohibit_update        = true
+  end
+
+  def default_bbar
+    [:del, :add_in_form]
+  end
+end

data/app/components/marty/import_type_view.rb

@@ -0,0 +1,53 @@
+class Marty::ImportTypeView < Marty::Grid
+  has_marty_permissions \
+  create: :admin,
+  read: :any,
+  update: :admin,
+  delete: :admin
+
+  def configure(c)
+    super
+
+    c.title   = I18n.t('import_type', default: "ImportType")
+    c.model   = "Marty::ImportType"
+    c.columns =
+      [
+       :name,
+       :role__name,
+       :db_model_name,
+       :cleaner_function,
+       :validation_function,
+       :preprocess_function,
+      ]
+
+    c.enable_extended_search = false
+
+    c.data_store.sorters = {property: :name, direction: 'ASC'}
+  end
+
+  column :name do |c|
+    c.flex = 1
+  end
+
+  column :role__name do |c|
+    c.width = 150
+  end
+
+  column :db_model_name do |c|
+    c.flex = 1
+  end
+
+  column :cleaner_function do |c|
+    c.flex = 1
+  end
+
+  column :validation_function do |c|
+    c.flex = 1
+  end
+
+  column :preprocess_function do |c|
+    c.flex = 1
+  end
+end
+
+ImportTypeView = Marty::ImportTypeView

data/app/components/marty/live_search_grid_panel.rb

@@ -0,0 +1,46 @@
+# The LiveSearchGridPanel provides a search field in the toolbar of
+# the GridPanel. While the content of the search field is changeing,
+# the data in the grid gets reloaded and the filter string is given to
+# a scope on the configured model. The scope name by default is
+# :live_search but it can be reconfigured by the configuration option
+# :live_search_scope.  NOTE: this is rewrite of the Netzke community
+# pack component of the same name.  We should submit this to the
+# community.
+#
+# Options:
+# * +live_search_scope+ - The scope name for filtering the results by
+#   the live search (default: :live_search)
+#
+
+class Marty::LiveSearchGridPanel < Marty::McflyGridPanel
+  js_configure do |c|
+    c.listen_fn = <<-JS
+    function(obj, search_text) {
+        var lg = this.ownerCt.ownerCt;
+        lg.getStore().getProxy().extraParams.live_search = search_text;
+        lg.getStore().load();
+    }
+    JS
+
+    c.tbar = ['->', {
+                name:  'live_search_text',
+                xtype: 'textfield',
+                enable_key_events: true,
+                ref: '../live_search_field',
+                empty_text: 'Search',
+                listeners: {
+                  change: {
+                    fn: c.listen_fn,
+                    buffer: 100,
+                  }
+                }
+              }]
+  end
+
+  def get_records(params)
+    search_scope = config[:live_search_scope] || :live_search
+    data_class.send(search_scope, params && params[:live_search] || '').scoping do
+      super
+    end
+  end
+end