[Pkg] Tasks: Tasks-Common-kph.29.mcz

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

A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.29.mcz

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

Name: Tasks-Common-kph.29
Author: kph
Time: 10 December 2008, 3:34:01 pm
UUID: 7ef29b21-f785-4165-bc99-3e80d9f41907
Ancestors: Tasks-Common-kph.28

update for latest InstallerMantis

=============== Diff against Tasks-Common-kph.28 ===============

Item was changed:
  ----- Method: TasksRelease class>>taskEnsureFix: (in category 'as yet unclassified') -----
  taskEnsureFix: aFixString
  
+ 	| theBug theBugPage theBugScript fields selector cat |
- 	| theBugPage theBugScript fields selector cat |
  
  	^ self define: [ :task |
  		
  		task info fixNumber: aFixString asNumber.
  					
  		task action: [ 
  			"install the fix and record its details for posterity"
  
+ 			theBug := Installer mantis bug: aFixString.
+ 			theBugPage := theBug report.
+ 			theBugScript := theBug script.
- 			theBugPage := Installer mantis bug: aFixString.
- 			theBugScript := Installer mantis bugScript: aFixString.
  	
  			fields := self mantisFieldsFrom: theBugPage.
  						
  			selector := fields at: 'Summary'.
  			selector :=  ('m', (selector copyFrom: 3 to: (selector size min: 40))) asLegalSelector asSymbol.
  			cat := (fields at: 'Status') ,'-' ,(fields at: 'Resolution').
  			
  			self at: selector category: cat putMethod: theBugScript doc: theBugPage.
   
  			Installer mantis ensureFix: aFixString.
  		].
  	]
  
  
  !