20 lines
645 B
Plaintext
20 lines
645 B
Plaintext
$if not psShortcircuit
|
|
<table id="#{dbtIdent}">
|
|
$maybe sortableP <- pSortable
|
|
$with toSortable <- toSortable sortableP
|
|
<thead>
|
|
$forall OneColonnade{..} <- getColonnade dbtColonnade
|
|
^{widgetFromCell th $ withSortLinks $ toSortable oneColonnadeHead}
|
|
$nothing
|
|
<tbody>
|
|
$forall row <- rows
|
|
<tr>
|
|
$forall OneColonnade{..} <- getColonnade dbtColonnade
|
|
^{widgetFromCell td $ oneColonnadeEncode row}
|
|
$else
|
|
<tbody>
|
|
$forall row <- rows
|
|
<tr>
|
|
$forall OneColonnade{..} <- getColonnade dbtColonnade
|
|
^{widgetFromCell td $ oneColonnadeEncode row}
|