'From etoys4.0 of 9 October 2008 [latest update: #2269] on 8 September 2009 at 2:14:17 pm'!
"Change Set:		projInfoFix-sw
Date:			8 September 2009
Author:			Scott Wallace

Fixes an integration issue between updates 2268 and 2269."!


!EToyProjectDetailsMorph methodsFor: 'project details' stamp: 'sw 9/8/2009 14:12'!
copyOutDetails
	"Prepare a new Dictionary holding project-info details as noted in the dialog."

	| newDetails elements item user |
	newDetails := Dictionary new.
	self fieldToDetailsMappings do: [ :each |
		namedFields at: each first ifPresent: [ :field |
				(#('age' 'subject' 'region') includes: each first)
					ifFalse:
							[newDetails at: each second put: field contents string]
						ifTrue:
							[elements := self choicesFor: each first.  "triplet"
							item := elements detect: [:el | el third = field contents string translated] ifNone: [nil].
							item ifNotNil:
								[newDetails at: each second put: item first]]]].


	namedFields at: 'projectname' ifPresent: [ :field |
		newDetails at: 'projectname' put: field contents string withBlanksTrimmed].

	namedFields
		at: 'author'
		ifPresent: [:field | 
			user := field contents string withBlanksTrimmed.
			newDetails at: 'projectauthor' put: user.
			user isEmpty
				ifTrue: [user := nil].
			Utilities authorName: user.
			theProject
				ifNotNil: [theProject forgetExistingURL]].

	^ newDetails! !