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