Mantis Bugtracker

Viewing Issue Advanced Details Jump to Notes ] View Simple ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0003773 [Squeak] Monticello minor always 06-05-06 14:57 06-05-06 14:57
Reporter Ron View Status public  
Assigned To avi
Priority normal Resolution open Platform
Status assigned   OS
Projection none   OS Version
ETA none Fixed in Version Product Version 3.9
  Product Build
Summary 0003773: Monticello Configuration Update From Repository Broken On More then One dash -
Description If you have a version name that has more then one dash, the update from repository doesn't work. The reason is that the version name will not match the package name copy upto last $- since packages only have 1 dash max. The following change fixes the problem.


    | oldInfos newNames sortedNames newDeps |
    oldInfos _ self dependencies collect: [:dep | dep versionInfo].
    newNames _ Dictionary new.
    self repositories
        do: [:repo |
            ProgressNotification signal: '' extra: 'Checking ', repo description.
            (repo possiblyNewerVersionsOfAnyOf: oldInfos)
                do: [:newName | newNames at: newName put: repo]]
        displayingProgress: 'Searching new versions'.

    sortedNames _ newNames keys asSortedCollection:
        [:a :b | a numericSuffix > b numericSuffix].

    newDeps _ OrderedCollection new.
    self dependencies do: [:dep |
        | newName |
        newName _ sortedNames
            detect: [:each | (each copyUpToLast: $-) = (dep versionInfo name copyUpToLast: $-)]
            ifNone: [nil].
        newDeps add: (newName
            ifNil: [dep]
            ifNotNil: [
                | repo ver |
                repo _ newNames at: newName.
                ver _ self versionNamed: newName for: dep from: repo.
                ver ifNil: [dep]
                    ifNotNil: [MCVersionDependency package: ver package info: ver info]
    ] displayingProgress: 'downloading new versions'.

    self dependencies: newDeps.


The fix is match on version info instead the above method was changed as follows:

newName _ sortedNames
            detect: [:each | (each copyUpToLast: $-) = (dep versionInfo name copyUpToLast: $-)]


newName _ sortedNames
            detect: [:each | (each copyUpToLast: $-) = dep package name]

Ron Teitelbaum
Steps To Reproduce
Additional Information
Attached Files [^] (1,232 bytes) 06-05-06 14:57

- Relationships

There are no notes attached to this issue.

- Issue History
Date Modified Username Field Change
06-05-06 14:57 Ron New Issue
06-05-06 14:57 Ron Status new => assigned
06-05-06 14:57 Ron Assigned To  => avi
06-05-06 14:57 Ron File Added:

Mantis 1.0.8[^]
Copyright © 2000 - 2007 Mantis Group
32 total queries executed.
27 unique queries executed.
Powered by Mantis Bugtracker