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

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

Name: Tasks-Common-kph.34
Author: kph
Time: 13 December 2008, 6:31:19 am
UUID: 9518cb4f-d50d-4a71-9003-888f4515d35b
Ancestors: Tasks-Common-kph.33

only save to mc if packages is dirty

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

Item was changed:
  ----- Method: TasksRelease class>>taskSaveRehoming:in: (in category 'as yet unclassified') -----
  taskSaveRehoming: packageNames in: repo
  
  	| oldVersions wc |
  	^ 
  		[
  	
  			packageNames do: [ :pkgName |
  				
  				"findMostRecentInRepo, put that versionInfo into my history.
  				if none, keep the old history"
  				
  				oldVersions := repo sortedVersionInfosAvailableForPackageNamed: pkgName.
  				
  				wc := (MCPackage named: pkgName) workingCopy.
  				
+ 				wc needsSaving ifTrue: [
+ 					oldVersions ifNotEmpty: [ wc versionInfo: oldVersions first ].
- 				oldVersions ifNotEmpty: [ wc versionInfo: oldVersions first ].
  				 
+ 					(wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion current asString,'#' ,(self buildNumber ifNil: ['']) asString) run.
+ 				].
- 				(wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion asString, (self buildNumber ifNil: ['']) asString) run.
  			].
  		
  
  		]
  !