'From etoys3.0 of 7 March 2008 [Letztes Update: #2130] on 5 September 2008 at 2:21:53 pm'!
"Change Set:		datastoreEnc-bf
Date:			5 September 2008
Author:			Bert Freudenberg

Use utf8 for file names sent to or received from the datastore (#8212)"!


!SugarLauncher methodsFor: 'datastore' stamp: 'bf 9/5/2008 14:16'!
createJournalEntryFor: aProject filename: aFilename mimetype: mimetypeString
	| properties id |
	properties := self propertiesFrom: aProject.
	properties at: 'ctime' put: (properties at: 'mtime').
	properties at: 'mime_type' put: mimetypeString.
	aFilename ifEmpty: [properties at: 'title:text' put: 'Etoys' translated].
	id := self dataStore create: properties with: aFilename squeakToUtf8 with: true.
	^id! !

!SugarLauncher methodsFor: 'datastore' stamp: 'bf 9/5/2008 13:48'!
getFile: id
	"answer a temporary file, will be deleted on #close"
	| tempName |
	tempName := self dataStore getFilename: id.
	tempName isEmptyOrNil ifTrue: [^nil].
	^SugarDatastoreTempFile readOnlyFileNamed: tempName utf8ToSqueak! !

!SugarLauncher methodsFor: 'datastore' stamp: 'bf 9/5/2008 14:16'!
updateJournalEntry: id for: aProject filename: aFilename mimetype: mimetypeString
	"Move aProject saved to aFilename into the datastore, delete aFilename"
	| properties |
	properties := self propertiesFrom: aProject.
	properties at: 'mime_type' put: mimetypeString.
	self dataStore update: id with: properties with: aFilename squeakToUtf8 with: true.! !