15 lines
701 B
Plaintext
15 lines
701 B
Plaintext
$newline never
|
|
$maybe flag <- sortableKey
|
|
$if doSorting
|
|
<span .course-header *{attrs} :isSorted SortAsc:.sorted-asc :isSorted SortDesc:.sorted-desc>
|
|
$case directions
|
|
$of [SortAsc]
|
|
<a .course-header-link rel=nofollow href=^{tblLink' $ setParams (wIdent "sorting") (map toPathPiece (SortingSetting flag SortDesc : piSorting'))}>
|
|
^{widget}
|
|
$of _
|
|
<a .course-header-link rel=nofollow href=^{tblLink' $ setParams (wIdent "sorting") (map toPathPiece (SortingSetting flag SortAsc : piSorting'))}>
|
|
^{widget}
|
|
$else
|
|
<span .inactive-course-header *{attrs} :isSorted SortAsc:.sorted-asc :isSorted SortDesc:.sorted-desc>
|
|
^{widget}
|