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 - "!
packages@lists.squeakfoundation.org