Contents

# -*- encoding : utf-8 -*-
class Card; module Set; module Right; module Email; extend Card::Set
# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/email.rb ~~~~~~~~~~~
include All::Permissions::Accounts

view :raw do
  case
  when card.real? then card.content
  # following supports legacy behavior
  # (should be moved to User+*email+*type plus right)
  when card.left.account then card.left.account.email
  else ''
  end
end

view :core, :raw

event :validate_email, after: :approve, on: :save do
  if content.present? && content !~ /^([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})$/i
    errors.add :content, 'must be valid address'
  end
end

event :validate_unique_email, after: :validate_email, on: :save do
  if content.present?
    Auth.as_bot do
      wql = { right_id: Card::EmailID, eq: content, return: :id }
      wql[:not] = { id: id } if id
      wql_comment = "email duplicate? (#{content})"
      if Card.search(wql, wql_comment).first
        errors.add :content, 'must be unique'
      end
    end
  end
end

event :downcase_email, before: :approve, on: :save do
  return if !content || content == content.downcase
  self.content = content.downcase
end

def email_required?
  !built_in?
end

def ok_to_read
  if own_email? || Auth.always_ok?
    true
  else
    deny_because 'viewing email is restricted to administrators and ' \
                 'account holders'
  end
end

def own_email?
  cardname.part_names[0].key == Auth.as_card.key
end


# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/right/email.rb ~~~~~~~~~~~
end;end;end;end;

Version data entries

12 entries across 12 versions & 1 rubygems

Version	Path
card-1.18.6	tmpsets/set/mod007-05_standard/right/email.rb
card-1.18.5	tmpsets/set/mod007-05_standard/right/email.rb
card-1.18.4	tmpsets/set/mod007-05_standard/right/email.rb
card-1.18.3	tmpsets/set/mod007-05_standard/right/email.rb
card-1.18.2	tmpsets/set/mod007-05_standard/right/email.rb
card-1.18.1	tmpsets/set/mod007-05_standard/right/email.rb
card-1.18.0	tmpsets/set/mod007-05_standard/right/email.rb
card-1.17.4	tmpsets/set/mod007-05_standard/right/email.rb
card-1.17.3	tmpsets/set/mod007-05_standard/right/email.rb
card-1.17.2	tmpsets/set/mod007-05_standard/right/email.rb
card-1.17.1	tmpsets/set/mod007-05_standard/right/email.rb
card-1.17.0	tmpsets/set/mod007-05_standard/right/email.rb