[Pkg] Tasks: Tasks-Common-kph.51.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.51.mcz

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

Name: Tasks-Common-kph.51
Author: test
Time: 29 December 2008, 1:11:53 am
UUID: 316d8272-389c-4829-a1cd-96d3cc9de7df
Ancestors: Tasks-Common-kph.50

fix to taskEnsureFix

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

Item was changed:
  ----- Method: TasksRelease class>>taskEnsureFix: (in category 'as yet unclassified') -----
  taskEnsureFix: aFixString
  
  	| theBug 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 setBug: aFixString.
- 			theBug := Installer mantis bug: aFixString.
  			theBugPage := theBug report.
  			theBugScript := theBug script.
  	
  			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.
  			
+ 			theBug ensureFix.
- 			Installer mantis ensureFix: aFixString.
  		].
  	]
  
  
  !