fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Links to every page of table

Browse Source
This commit is contained in:
Gregor Kleen 2018-04-13 15:06:15 +02:00
parent e0b3f0921a
commit 05cd245102
4 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
messages/de.msg
View File

@ -1,7 +1,7 @@
SummerTerm year@Integer: Sommersemester #{tshow year} SummerTerm year@Integer: Sommersemester #{tshow year}
WinterTerm year@Integer: Wintersemester #{tshow year}/#{tshow $ succ year} WinterTerm year@Integer: Wintersemester #{tshow year}/#{tshow $ succ year}
PSLimitNonPositive: “pagesize” muss größer als null sein PSLimitNonPositive: “pagesize” muss größer als null sein
Page n@Int64 num@Int64: Seite #{tshow n} von #{tshow num} Page n@Int64: #{tshow n}
TermEdited tid@TermIdentifier: Semester #{termToText tid} erfolgreich editiert. TermEdited tid@TermIdentifier: Semester #{termToText tid} erfolgreich editiert.
TermNewTitle: Semester editiere/anlegen. TermNewTitle: Semester editiere/anlegen.
InvalidInput: Eingaben bitte korrigieren. InvalidInput: Eingaben bitte korrigieren.

1
src/Handler/Utils/Table/Pagination.hs
View File

@ -152,6 +152,7 @@ dbTable PSValidator{..} DBTable{ dbtIdent = (toPathPiece -> dbtIdent), .. } = do
getParams <- handlerToWidget $ queryToQueryText . Wai.queryString . reqWaiRequest <$> getRequest getParams <- handlerToWidget $ queryToQueryText . Wai.queryString . reqWaiRequest <$> getRequest
let table = $(widgetFile "table/colonnade") let table = $(widgetFile "table/colonnade")
pageCount = max 1 . ceiling $ rowCount % psLimit pageCount = max 1 . ceiling $ rowCount % psLimit
pageNumbers = [0..pred pageCount]
tblLink f = decodeUtf8 . Builder.toLazyByteString . renderQueryText True $ f getParams tblLink f = decodeUtf8 . Builder.toLazyByteString . renderQueryText True $ f getParams
withSortLinks Sortable{ sortableContent = Cell{..}, .. } = Cell withSortLinks Sortable{ sortableContent = Cell{..}, .. } = Cell

14
templates/table/layout.cassius Normal file
View File

@ -0,0 +1,14 @@
ul.paginationLinks
list-style: none outside none
margin: 0
padding: 0
text-align: center
li
margin: 0
margin-right: .25em
padding: 0
display: inline-block
.current
text-decoration: underline
li:last-child
margin-right: 0

12
templates/table/layout.hamlet
View File

@ -1,7 +1,13 @@
$newline never
<div ##{dbtIdent}-table-wrapper> <div ##{dbtIdent}-table-wrapper>
<div .scrolltable> <div .scrolltable>
^{table} ^{table}
$if pageCount > 1 $if pageCount > 1
<p style="text-align:center"> <ul .paginationLinks>
$# TODO: foreach (reachable pages) print link to that page $forall p <- pageNumbers
_{MsgPage (succ psPage) pageCount} <li>
$if p == psPage
<span .current>_{MsgPage (succ p)}
$else
<a href=#{tblLink $ setParam (wIdent "page") (Just $ tshow p)}>
_{MsgPage (succ p)}