Modifying quotes report data.
This commit is contained in:
parent
33dccbc851
commit
1dec7081e4
@ -3,6 +3,10 @@ quotesReportData
|
||||
|
||||
| tempDict labels xAxis |
|
||||
tempDict := self quotesSortedByOccurrences.
|
||||
|
||||
tempDict size > 50 ifTrue: [
|
||||
tempDict := (tempDict associations copyFrom: 1 to: 50) asOrderedDictionary ].
|
||||
|
||||
labels := tempDict keys.
|
||||
labels := labels collect: [ :profile | ($' asString), '@', profile, ($' asString) ].
|
||||
xAxis := tempDict values.
|
||||
|
Loading…
Reference in New Issue
Block a user