[Pkg] Installer: Installer-Core-kph.273.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.273.mcz

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

Name: Installer-Core-kph.273
Author: kph
Time: 12 December 2008, 7:47:08 am
UUID: 3d4f9d35-5cf1-42e3-ae22-71e1d15388e7
Ancestors: Installer-Core-kph.271

refining mantis query interface

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

Item was added:
+ ----- Method: InstallerMantis>>selectCategoryCollections (in category 'public interface') -----
+ selectCategoryCollections
+ 
+ 	^ self select: [ :ea | ea category = 'Collections' ]!

Item was changed:
  ----- Method: InstallerMantis>>date: (in category 'accessing') -----
  date: anObject
  
+ 	date := anObject ifNotNilDo: [ :d | d asDate ]!
- 	date := anObject asDate!

Item was changed:
+ ----- Method: InstallerMantis>>summary (in category 'search-private') -----
- ----- Method: InstallerMantis>>summary (in category 'public interface') -----
  summary
  
+ 	^ self csvKey: 'Summary'!
- 	^ self csvSummary!

Item was added:
+ ----- Method: InstallerMantis>>category (in category 'search-private') -----
+ category
+ 
+ 	^ self csvKey: 'Category'
+ 	
+  "
+ s bugs collect: [ :ea | ea category ]
+ "!

Item was changed:
+ ----- Method: InstallerMantis>>csvGetData (in category 'public interface') -----
- ----- Method: InstallerMantis>>csvGetData (in category 'search-private') -----
  csvGetData
+ 
+ 	| rs line first col row |
- 
- 	| rs line first |
  		
  	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: 23.
+ 			[ line atEnd ] whileFalse: [ row at: col put: (line upTo: $,). col := col + 1 ].	
+ 
- 			line := rs nextLine splitOn: ','.
  			rs next.
+ 			first ifTrue: [ self csvFields: row. first := false ]
+ 				ifFalse: [ out nextPut: (self class new setArray: row) ].
- 			first ifTrue: [ self csvFields: line. first := false ]
- 				ifFalse: [ out nextPut: (self class new setArray: line) ].
  		]
  	].
  "
  self reset.
  self getBugsList 
  "!

Item was changed:
  ----- Method: InstallerMantis>>bug (in category 'accessing') -----
  bug
  	
+ 	^ bug ifNil: [ 
+ 		
+ 		date := (self csvKey: 'Updated') asDate. 
+ 		desc := (self csvKey: 'Summary').
+ 		bug := (self csvKey: 'Id'). 	
+  ]!
- 	^ bug ifNil: [ date := self csvUpdated. desc := self csvSummary. bug := self csvId.  ]!

Item was added:
+ ----- Method: InstallerMantis>>status (in category 'search-private') -----
+ status
+ 
+ 	^ self csvKey: 'Status'
+ 	
+ 	
+ !