radiant-reader_group-extension 0.9.0

data/app/views/admin/groups/_listed.html.haml

@@ -0,0 +1,25 @@
+%tr.node.level-1
+  - render_region :tbody do |tbody|
+    - tbody.name_cell do
+      %td.name
+        %p
+          = link_to group.name, admin_group_url(group)
+          %br
+          = truncate_words(group.description, 40)
+    - tbody.home_cell do
+      %td.home
+        - if group.homepage
+          = link_to group.homepage.title, edit_admin_page_url(group.homepage)
+        - else
+          none
+    - tbody.members_cell do
+      %td.members
+        = link_to group.readers.count, admin_group_url(group)
+    - tbody.pages_cell do
+      %td.pages
+        = link_to group.pages.count, admin_group_url(group)
+    - tbody.modify_cell do
+      %td.actions
+        = link_to_unless_current image('plus') + ' send invitations', new_admin_group_group_invitation_url(group), :class => 'action'
+        = link_to_unless_current image('minus') + ' remove group', admin_group_url(group, :method => 'delete', :confirm => "are you sure you want to completely remove the #{group.name} group?"), :class => 'action'
+        

data/app/views/admin/groups/edit.html.haml

@@ -0,0 +1,8 @@
+- include_stylesheet('admin/group')
+- render_region :main do |main|
+  - main.edit_header do
+    %h1 
+      Edit group
+      
+  - main.edit_form do
+    = render :partial => 'form'

data/app/views/admin/groups/index.html.haml

@@ -0,0 +1,19 @@
+- include_stylesheet('admin/group')
+
+= render_region :top
+
+#groups_table.outset      
+  %table#groups.index{:cellspacing=>"0", :border=>"0", :cellpadding=>"0"}
+    %thead
+      = render :partial => 'list_head'
+    %tbody
+      - @groups.each do |group|
+        = render :partial => 'listed', :locals => {:group => group}
+        
+- render_region :bottom do |bottom|
+  - bottom.buttons do
+    #actions
+      = pagination_for @readers
+      %ul
+        %li
+          = link_to image('plus') + " " + "new group", new_admin_group_url

data/app/views/admin/groups/new.html.haml

@@ -0,0 +1,6 @@
+- include_stylesheet('admin/group')
+- render_region :main do |main|
+  - main.edit_header do
+    %h1 New group
+  - main.edit_form do
+    = render :partial => "form"

data/app/views/admin/groups/remove.html.haml

@@ -0,0 +1,31 @@
+- include_stylesheet('admin/group')
+%h1 Remove Group
+
+%p 
+  Are you sure you want to
+  %strong.warning 
+    remove permanently
+  the group 
+  = h @group.name
+  ?
+
+%p 
+  The group has 
+  = @group.readers.count
+  = pluralize(@group.readers.count, 'member')
+  and
+  = @group.pages.count
+  = pluralize(@group.pages.count, 'page')
+  \. The pages and readers will not be deleted - just dissociated from one another - and removing the group association from those pages may make them visible to everyone.
+
+%table#groups.index{:cellspacing=>"0", :border=>"0", :cellpadding=>"0"}
+  %thead
+    = render :partial => 'list_head'
+  %tbody
+    = render :partial => 'listed', :locals => {:group => @group}
+
+- form_for [:admin, @group], :html => { :method => 'delete' } do
+  %p.buttons
+    %input.button{:type=>"submit", :value=>"Delete Group"}/
+    or
+    = link_to 'Cancel', admin_groups_url

data/app/views/admin/groups/show.html.haml

@@ -0,0 +1,41 @@
+- include_stylesheet 'admin/group'
+- body_classes << "reversed"
+
+%h1
+  Group:
+  = @group.name
+
+= textilize(@group.description)
+
+
+#group_pages.box.narrow
+  %h2
+    Private pages
+  %ul
+    - page = Page.respond_to?(:homepage) ? Page.homepage : Page.find_by_parent_id(nil)
+    %div{:id => "page_holder_#{page.id}"}
+      = render :partial => 'admin/permissions/page', :object => page
+
+#group_people.box.narrow
+  %h2
+    Group members
+  - readers = Reader.find(:all)
+  - total = readers.count
+  - column_length = (readers.count-1) / 2
+  - columns = [readers[0..column_length], readers[column_length+1..readers.count]]
+  - columns.each do |column|
+    %ul.column
+      - column.each do |reader|
+        %div{:id => "reader_holder_#{reader.id}"}
+          = render :partial => 'admin/memberships/reader', :object => reader
+
+#footnotes
+  %p
+    The pages selected on the left are only visible to the people selected on the right.
+
+:javascript
+  var h1 = $('group_pages').getHeight();
+  var h2 = $('group_people').getHeight();
+  var h = (h1 > h2) ? h1 : h2
+  $('group_people').setStyle({'height': h + 'px'});
+  $('group_pages').setStyle({'height': h + 'px'});

data/app/views/admin/memberships/_reader.html.haml

@@ -0,0 +1,9 @@
+- reader ||= @reader
+- group ||= @group
+
+- if membership = group.membership_for(reader)
+  %li{:class => "fake_checkbox checked", :id => "reader_#{reader.id}"}
+    = link_to_remote reader.name, :url => admin_group_membership_url(group, membership), :method => 'delete', :loading => "$('reader_#{reader.id}').addClassName('waiting')", :update => "reader_holder_#{reader.id}"
+- else
+  %li{:class => "fake_checkbox unchecked", :id => "reader_#{reader.id}"}
+    = link_to_remote reader.name, :url => admin_group_memberships_url(group, :reader_id => reader.id), :loading => "$('reader_#{reader.id}').addClassName('waiting')", :update => "reader_holder_#{reader.id}"

data/app/views/admin/messages/_list_notes.html.haml

@@ -0,0 +1,9 @@
+- unless message.function.blank?
+  %small.function
+    = message.function
+- if message.group
+  %small.group
+    for 
+    = link_to message.group.name, admin_group_url(message.group)
+    
+    

data/app/views/admin/messages/_message_description.html.haml

@@ -0,0 +1,7 @@
+- if @message.function
+  = @message.function
+message
+- if @message.group
+  for the
+  = @message.group.name
+  group

data/app/views/admin/messages/_message_group.html.haml

@@ -0,0 +1,3 @@
+- fields_for @message do |f|
+  - if @message.new_record? && @message.group
+    = f.hidden_field :group_id

data/app/views/admin/pages/_listed.html.haml

@@ -0,0 +1,16 @@
+%tr.node{:id => "page-#{page.id}", :class =>"level-#{level}"}
+  - render_region :page, :locals => {:page => page, :level => level} do |node|
+    - node.title_column do
+      %td.page{:style => "padding-left: #{(level * 22) + 4}px"}
+        %span.w1
+          = image('page', :class => "icon", :alt => 'page-icon', :title => '')
+          %span.title
+            = link_to page.title, edit_admin_page_url(page)
+    - node.add_child_column do
+      %td.add-child
+        = link_to image('add-child', :alt => 'add child'), new_admin_page_child_url(page)
+    - node.remove_column do
+      %td.remove
+        = link_to image('remove', :alt => 'remove page'), remove_admin_page_url(page)
+- page.children.each do |child|
+  = render :partial => 'admin/pages/listed', :locals => {:page => child, :level => level+1}

data/app/views/admin/pages/_page_groups.html.haml

@@ -0,0 +1,17 @@
+- include_stylesheet('admin/group')
+= hidden_field_tag "page[group_ids][]", ""
+
+.row
+  %p
+    Allow access only to:
+    - Group.find(:all).each do |g|
+      = check_box_tag "page[group_ids][]", g.id, @page.has_inherited_group?(g), {:id => "page_group_#{g.id}", :disabled => @page.group_is_inherited?(g)}
+      - if @page.group_is_inherited?(g)
+        %label{:for => "page_group_#{g.id}", :class => 'disabled', :title => "group is attached higher in the page tree: can't be detached here"}
+          = g.name
+      - else
+        %label{:for => "page_group_#{g.id}"}
+          = g.name
+    %br
+    %span.formnote
+      Leave all groups unchecked for public access.

data/app/views/admin/permissions/_page.html.haml

@@ -0,0 +1,24 @@
+- page ||= @page
+- group ||= @group
+
+- liclass = 'loose'
+- liclass = 'attached' if page.has_group?(group)
+- liclass = 'inherited' if page.group_is_inherited?(group)
+
+- if permission = group.permission_for(page)
+  %li{:class => "fake_checkbox checked", :id => "page_#{page.id}"}
+    = link_to_remote page.title, :url => admin_group_permission_url(group, permission), :method => 'delete', :loading => "$('page_#{page.id}').addClassName('waiting')", :update => "page_holder_#{page.id}"
+
+- elsif page.has_inherited_group?(group)
+  %li{:class => "fake_checkbox inherited", :id => "page_#{page.id}"}
+    = page.title
+
+- else
+  %li{:class => "fake_checkbox unchecked", :id => "page_#{page.id}"}
+    = link_to_remote page.title, :url => admin_group_permissions_url(group, :page_id => page.id), :loading => "$('page_#{page.id}').addClassName('waiting')", :update => "page_holder_#{page.id}"
+
+- if page.children.any?
+  %ul
+    - page.children.each do |child|
+      %div{:id => "page_holder_#{child.id}"}
+        = render :partial => 'admin/permissions/page', :object => child

data/app/views/admin/reader_settings/_group_welcomes.html.haml

@@ -0,0 +1,11 @@
+- Group.all.each do |group|
+  - [:invitation, :welcome].each do |func|
+    - message = Message.functional(:invitation, group)
+    %p.ruled
+      %label
+        = group.name
+        = func
+      - if message
+        = link_to message.subject, edit_admin_message_url(message)
+      - else
+        = link_to image('plus') + " create message", new_admin_group_message_url(group, :function => func), :class => 'create'

data/app/views/admin/readers/_reader_groups.html.haml

@@ -0,0 +1,7 @@
+%p
+  %label{:for=>"reader_groups"} Groups
+  - Group.find(:all).each do |group|
+    %span.checkbox
+      = check_box_tag "reader[group_ids][]", group.id, @reader.is_in?(group), :id => "reader_group_#{group.id}"
+      %label{:for => "reader_group_#{group.id}"}
+        = group.name

data/app/views/messages/show.html.haml

@@ -0,0 +1,11 @@
+.message
+  %iframe.message_body{:src => preview_group_message_url(@group, @message)}
+
+- content_for :pagetitle do
+  = @message.subject
+  
+- content_for :marginalia do
+  margin?
+  
+- content_for :breadhead do
+  = link_to @group.name, @group.homepage.url

data/app/views/reader_activations/_on_activation.html.haml

@@ -0,0 +1,10 @@
+- if homepage = current_reader.find_homepage
+  %p
+    Would you like to go straight to the 
+    = link_to homepage.title, homepage.url
+    page?
+
+- elsif session[:return_to]
+  %p 
+    Would you like to 
+    = link_to ("return to the page you were looking at before you started registering", session[:return_to]) + '?'

data/app/views/readers/_memberships.html.haml

@@ -0,0 +1,11 @@
+- if Group.subscribable.any?
+  %h3
+    Subscriptions
+  %p{:style => 'margin-top: 0;'}
+    - Group.subscribable.each do |group|
+      = check_box_tag "reader[group_ids][]", group.id, @reader.is_in?(group), :id => "reader_group_#{group.id}"
+      %label{:for => "reader_group_#{group.id}"}
+        = group.name
+      %span.formnote
+        = group.invitation
+      %br

data/app/views/site/not_allowed.html.haml

@@ -0,0 +1,4 @@
+%h1
+  Access Denied
+%p
+  Sorry: you don't have permission to view that page.

data/config/routes.rb

@@ -0,0 +1,8 @@
+ActionController::Routing::Routes.draw do |map|
+  map.namespace :admin, :path_prefix => 'admin/readers' do |admin|
+    admin.resources :groups, :has_many => [:memberships, :permissions, :group_invitations, :messages]
+  end
+  map.resources :groups, :only => [] do |group|
+    group.resources :messages, :only => [:index, :show], :member => [:preview]
+  end
+end

data/db/migrate/001_create_groups.rb

@@ -0,0 +1,32 @@
+class CreateGroups < ActiveRecord::Migration
+  def self.up
+    create_table :groups do |t|
+      t.column :name, :string
+      t.column :description, :text
+      t.column :notes, :text
+      t.column :created_at, :datetime
+      t.column :updated_at, :datetime
+      t.column :created_by_id, :integer
+      t.column :updated_by_id, :integer
+      t.column :homepage_id, :integer
+      t.column :site_id, :integer
+      t.column :lock_version, :integer
+    end
+
+    create_table :memberships do |t|
+      t.column :group_id, :integer
+      t.column :reader_id, :integer
+    end
+
+    create_table :permissions do |t|
+      t.column :group_id, :integer
+      t.column :page_id, :integer
+    end
+  end
+
+  def self.down
+    drop_table :groups
+    drop_table :memberships
+    drop_table :permissions
+  end
+end

data/db/migrate/20090921125654_group_messages.rb

@@ -0,0 +1,9 @@
+class GroupMessages < ActiveRecord::Migration
+  def self.up
+    add_column :messages, :group_id, :integer
+  end
+
+  def self.down
+    remove_column :messages, :group_id
+  end
+end

data/db/migrate/20091120083119_groups_public.rb

@@ -0,0 +1,11 @@
+class GroupsPublic < ActiveRecord::Migration
+  def self.up
+    add_column :groups, :public, :boolean
+    add_column :groups, :invitation, :text
+  end
+
+  def self.down
+    remove_column :groups, :public
+    remove_column :groups, :invitation
+  end
+end

data/lib/admin_messages_controller_extensions.rb

@@ -0,0 +1,15 @@
+module AdminMessagesControllerExtensions
+  def self.included(base)
+    base.class_eval { 
+      before_filter :get_group, :only => :new
+    }
+  end
+
+  def get_group
+    model.group = Group.find(params[:group_id]) if params[:group_id]
+  end
+
+end
+
+
+

data/lib/group_message_tags.rb

@@ -0,0 +1,82 @@
+module GroupMessageTags
+  include Radiant::Taggable
+  
+  class TagError < StandardError; end
+
+  desc %{
+    The root 'group' tag is not meant to be called directly. 
+    All it does is summon a group object so that its fields can be displayed with eg.
+    <pre><code><r:group:name /></code></pre>
+    
+    This tag will not throw an exception if there is no group; it will just disappear.
+  }
+  tag 'group' do |tag|
+    tag.locals.group = @mailer_vars ? @mailer_vars[:@group] : tag.locals.page.group
+    tag.expand if tag.locals.group
+  end
+  
+  [:name, :description, :url].each do |field|
+    desc %{
+      Displays the #{field} field of the currently relevant group. Works in email messages too.
+      
+      <pre><code><r:group:#{field} /></code></pre>
+    }
+    tag "group:#{field}" do |tag|
+      tag.locals.group.send(field)
+    end
+  end
+
+  desc %{
+    Expands if this group has messages.
+    
+    <pre><code><r:group:if_messages>...</r:group:if_messages /></code></pre>
+  }
+  tag "group:if_messages" do |tag|
+    tag.expand if tag.locals.group.messages.ordinary.published.any?
+  end
+
+  desc %{
+    Expands if this group does not have messages.
+    
+    <pre><code><r:group:unless_messages>...</r:group:unless_messages /></code></pre>
+  }
+  tag "group:unless_messages" do |tag|
+    tag.expand unless tag.locals.group.messages.ordinary.published.any?
+  end
+
+  desc %{
+    Loops through the non-functional messages (ie not welcomes and reminders) that belong to this group 
+    and that have been sent, though not necessarily to the present reader (which is the point, really).
+    
+    <pre><code><r:group:messages:each>...</r:group:messages:each /></code></pre>
+  }
+  tag "group:messages" do |tag|
+    tag.locals.messages = tag.locals.group.messages.ordinary.published
+    tag.expand
+  end
+  tag "group:messages:each" do |tag|
+    result = []
+    tag.locals.messages.each do |message|
+      tag.locals.message = message
+      result << tag.expand
+    end
+    result
+  end
+
+  # overridden to add group scope:
+  
+  desc %{
+    Returns the url of the show-message page
+    
+    <pre><code><r:message:url /></code></pre>
+  }
+  tag "message:url" do |tag|
+    if tag.locals.group
+      group_message_path(tag.locals.group, tag.locals.message)
+    else
+      message_path(tag.locals.message)
+    end
+  end
+  
+
+end

data/lib/group_ui.rb

@@ -0,0 +1,37 @@
+module GroupUI
+
+ def self.included(base)
+   base.class_eval do
+
+      attr_accessor :group
+      alias_method :groups, :group
+
+      def load_default_regions_with_group
+        load_default_regions_without_group
+        @group = load_default_group_regions
+      end
+
+      alias_method_chain :load_default_regions, :group
+
+      protected
+
+        def load_default_group_regions
+          returning OpenStruct.new do |group|
+            group.edit = Radiant::AdminUI::RegionSet.new do |edit|
+              edit.main.concat %w{edit_header edit_form}
+              edit.form.concat %w{edit_group edit_timestamp edit_buttons edit_membership edit_pages}
+            end
+            group.index = Radiant::AdminUI::RegionSet.new do |index|
+              index.thead.concat %w{name_header home_header members_header pages_header modify_header}
+              index.tbody.concat %w{name_cell home_cell members_cell pages_cell modify_cell}
+              index.bottom.concat %w{buttons}
+            end
+            group.remove = group.index
+            group.new = group.edit
+          end
+        end
+      
+    end
+  end
+end
+

data/lib/grouped_message.rb

@@ -0,0 +1,38 @@
+module GroupedMessage
+
+  def self.included(base)
+    base.class_eval {
+      is_grouped
+
+      include InstanceMethods
+      alias_method_chain :possible_readers, :group
+      alias_method_chain :inactive_readers, :group
+      
+      extend ClassMethods
+      class << self
+        alias_method_chain :functional, :group
+      end
+    }
+  end
+  
+  module InstanceMethods
+    def possible_readers_with_group
+      group ? group.readers.active : possible_readers_without_group
+    end
+    def inactive_readers_with_group
+      group ? group.readers.inactive : inactive_readers_without_group
+    end
+  end
+  
+  module ClassMethods
+    def functional_with_group(function, group=nil)
+      messages = for_function(function)
+      if group
+        messages.for_group(group).first
+      else
+        messages.ungrouped.first
+      end
+    end
+  end
+
+end

data/lib/grouped_model.rb

@@ -0,0 +1,100 @@
+module GroupedModel
+  def self.included(base)
+    base.extend ClassMethods
+  end
+
+  module ClassMethods
+    def is_grouped?
+      false
+    end
+    
+    def is_grouped(options={})
+      return if is_grouped?
+      cattr_accessor :group_recipients, :group_donor
+      
+      class_eval {
+        extend GroupedModel::GroupedClassMethods
+        include GroupedModel::GroupedInstanceMethods
+
+        def visible_to?(reader)
+          return true unless group
+          return false unless reader
+          return true if reader.is_user?
+          return true if reader.is_in?(group)
+          return false
+        end
+
+      }
+      
+      belongs_to :group
+      named_scope :ungrouped, {:conditions => 'group_id IS NULL'}
+      named_scope :for_group, lambda { |g| {:conditions => ["group_id = ?", g]} }
+      named_scope :visible_to, lambda { |reader| 
+        groups = reader.nil? ? [] : reader.groups
+        {:conditions => ["group_id IS NULL OR group_id IN(?)", groups.map(&:id).join(',')]} 
+      }
+      
+      Group.send(:has_many, self.to_s.pluralize.underscore.intern)
+
+      before_create :get_group
+      after_save :give_group
+    end
+  end
+
+  module GroupedClassMethods
+    def visible
+      ungrouped
+    end
+    
+    def is_grouped?
+      true
+    end
+    
+    def gets_group_from(association_name)
+      association = reflect_on_association(association_name)
+      raise StandardError "can't find group source '#{association_name}" unless association
+      raise StandardError "#{association.klass} is not grouped and cannot be a group donor" unless association.klass.is_grouped? 
+      self.group_donor = association_name
+    end
+    
+    def gives_group_to(associations)
+      associations = [associations] unless associations.is_a?(Array)
+      # shall we force is_grouped here?
+      # shall we assume that gets_group_from follows? and find the association somehow?
+      self.group_recipients ||= []
+      self.group_recipients += associations
+    end
+  end
+
+  module GroupedInstanceMethods
+
+    def visible?
+      !!group
+    end
+
+    def permitted_groups
+      [group]
+    end
+
+  protected
+
+    def get_group
+      if self.class.group_donor && group_source = self.send(self.class.group_donor)
+        self.group = group_source.group
+      end
+    end
+
+    def give_group
+      if self.class.group_recipients
+        self.class.group_recipients.each do |association|
+          send(association).each do |associate|
+            unless associate.group == group
+              associate.group = group 
+              associate.save(false)
+            end
+          end
+        end
+      end
+    end
+  end
+end