[Pkg] Installer: Installer-Core-kph.277.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.277.mcz

==================== Summary ====================

Name: Installer-Core-kph.277
Author: kph
Time: 17 December 2008, 12:22:29 pm
UUID: f2a2f821-c219-4518-a54c-0a7b874106f9
Ancestors: Installer-Core-kph.276

fixes to Installer Mantis, cope with non ideal data

=============== Diff against Installer-Core-kph.276 ===============

Item was changed:
  ----- Method: InstallerMantis>>setArray: (in category 'public interface') -----
  setArray: aCsvDataRow
  
+ 	array := aCsvDataRow asArray.
+ 	self bug.!
- 	array := aCsvDataRow asArray!

Item was added:
+ ----- Method: InstallerMantis>>in:row: (in category 'public interface') -----
+ in: parent row: aCsvDataRow
+ 
+ 	array := aCsvDataRow asArray.
+ 	self ma: parent ma.
+ 	self markers: parent markers.
+ 	self bug.!

Item was changed:
  ----- Method: InstallerMantis>>csvGetData (in category 'public interface') -----
  csvGetData
  
  	| rs line first col row |
  		
  	rs := HTTPSocket httpGet: ma, '/csv_export.php'.
  	
  	first := true.
  	
  	^ array := Array streamContents: [ :out |
  		 
  		[ rs atEnd ] whileFalse: [ 
  		
  			line := rs nextLine readStream.
  			col := 1.
+ 			row := Array new: 24.
- 			row := Array new: 23.
  			[ line atEnd ] whileFalse: [ row at: col put: (line upTo: $,). col := col + 1 ].	
  
+ 			(#('private' 'public') includes: (row at: 17)) ifTrue: [ 
+ 				self notify: 'Bug Report: ', (row at: 1), ' has a comma within a field - please correct/report asap'.
+ 				row at: 15 put: ((row at: 15), '.', (row at: 16)).
+ 				row := row copyWithoutIndex: 16.
+ 			].
+ 		
+ 			(row at: 23) ifNotNil: [ self error ].
  			rs next.
  			first ifTrue: [ self csvFields: row. first := false ]
+ 				ifFalse: [ out nextPut: (self class new in: self row: row) ].
- 				ifFalse: [ out nextPut: (self class new setArray: row) ].
  		]
  	].
  "
  self reset.
  self getBugsList 
  "!

Item was changed:
  ----- Method: InstallerMantis>>bug: (in category 'public interface') -----
  bug: aBugNo
  
+ 	self setBug: aBugNo.
+ 	^ self report!
- 	self setBug: aBugNo!

Item was added:
+ ----- Method: InstallerMantis>>date (in category 'accessing') -----
+ date 
+ 
+ 	^ date !

Item was removed:
- ----- Method: InstallerMantis>>select:thenDo: (in category 'public interface') -----
- select: aBlock thenDo: doBlock
- 
- 	^ (self select: aBlock) do: doBlock!

Item was removed:
- ----- Method: InstallerMantis>>updated (in category 'accessing') -----
- updated
- 
- 	^ self csvKey: 'Updated'!

Item was removed:
- ----- Method: InstallerMantis>>csvGetAll (in category 'search-private') -----
- csvGetAll
- 
- 	| rs line first |
- 		
- 	rs := HTTPSocket httpGet: ma, '/csv_export.php'.
- 	
- 	first := true.
- 	
- 	^ array := Array streamContents: [ :out |
- 		 
- 		[ rs atEnd ] whileFalse: [ 
- 		
- 			line := rs nextLine splitOn: ','.
- 			rs next.
- 			first ifTrue: [ self csvFields: line. first := false ]
- 				ifFalse: [ out nextPut: (self class new setArray: line) ].
- 		]
- 	].
- "
- self reset.
- self getBugsList 
- "!