From 45c22a857cb9efc7a652834e9fb61520c9aefe9f Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Thu, 1 Jun 2017 12:10:55 +0000 Subject: [PATCH] Improved input processing. --- repository/Brea/BreaMember.class.st | 28 +++++++++++++++++++++------- repository/Brea/BreaWebsite.class.st | 3 +++ 2 files changed, 24 insertions(+), 7 deletions(-) diff --git a/repository/Brea/BreaMember.class.st b/repository/Brea/BreaMember.class.st index 5dcd379..6758e62 100644 --- a/repository/Brea/BreaMember.class.st +++ b/repository/Brea/BreaMember.class.st @@ -65,8 +65,8 @@ BreaMember >> email [ ] { #category : #accessing } -BreaMember >> email: anObject [ - email := anObject +BreaMember >> email: anEmailAddress [ + email := (SHA1 new hashMessage: anEmailAddress) hex ] { #category : #accessing } @@ -76,7 +76,9 @@ BreaMember >> facebook [ { #category : #accessing } BreaMember >> facebook: aProfileName [ - self webPresence facebook: aProfileName + aProfileName = '' + ifTrue: [ self webPresence facebook: nil ] + ifFalse: [ self webPresence facebook: aProfileName ] ] { #category : #public } @@ -221,9 +223,13 @@ BreaMember >> htmlInput [
+ [*]Organization(s) (separated with commas) Letters and spaces only

+
+ + +
@@ -325,6 +331,12 @@ BreaMember >> instagram: aProfileName [ self webPresence instagram: aProfileName ] +{ #category : #accessing } +BreaMember >> memberOf: anOrgName [ + self organizations add: + (BreaOrganization new name: anOrgName) +] + { #category : #accessing } BreaMember >> memberOf: anOrgName withWebsite: aUrl [ self organizations add: @@ -339,8 +351,8 @@ BreaMember >> organizations [ ] { #category : #accessing } -BreaMember >> organizations: anObject [ - organizations := anObject +BreaMember >> organizations: anOrgListOrName [ + anOrgListOrName splitOn: ',' do: [ :each | self memberOf: each ] ] { #category : #public } @@ -410,7 +422,9 @@ BreaMember >> twitter [ { #category : #accessing } BreaMember >> twitter: aProfileName [ - self webPresence twitter: aProfileName + aProfileName = '' + ifTrue: [ self webPresence twitter: nil ] + ifFalse: [ self webPresence twitter: aProfileName ] ] { #category : #public } diff --git a/repository/Brea/BreaWebsite.class.st b/repository/Brea/BreaWebsite.class.st index 6dfdd19..8baacd4 100644 --- a/repository/Brea/BreaWebsite.class.st +++ b/repository/Brea/BreaWebsite.class.st @@ -34,6 +34,9 @@ BreaWebsite >> processNewMember: request [ familyName: (request at: #familyName); email: (request at: #email); country: (request at: #country); + organizations: (request at: #organizations); + picture: (request at: #picture); + website: (request at: #website); twitter: (request at: #twitter); facebook: (request at: #facebook); tags: (request at: #tags).