fix some scrolltable issues (missing, nested) and make more visible

This commit is contained in:
Felix Hamann 2019-01-27 19:35:38 +01:00
parent fe985a6cea
commit 14462c7305
3 changed files with 28 additions and 26 deletions

View File

@ -1,3 +1,2 @@
<div .container> <div .container>
<div .scrolltable> ^{coursesTable}
^{coursesTable}

View File

@ -335,6 +335,8 @@ input[type="button"].btn-info:hover,
/* SCROLLTABLE */ /* SCROLLTABLE */
.scrolltable { .scrolltable {
overflow: auto; overflow: auto;
box-shadow: 0 0 3px 0 var(--color-grey);
margin-bottom: 15px;
} }
@media (max-width: 425px) { @media (max-width: 425px) {

View File

@ -9,34 +9,35 @@ $# rowWdgts :: Liste von Widgets für jede Zeile (Normal,Bonus,KeineWert
$# -- $# --
<div> <div>
<h3>_{MsgSummaryTitle} _{title $ getSum $ numSheets $ sumSummaries} <h3>_{MsgSummaryTitle} _{title $ getSum $ numSheets $ sumSummaries}
<table .table .table--striped> <div .scrolltable>
<tr .table__row .table__row--head> <table .table .table--striped>
<th> <tr .table__row .table__row--head>
$# empty cell for row headers <th>
$maybe _ <- hasMarkedPasses $# empty cell for row headers
<th .table__th colspan=2>_{MsgCorrected}
$maybe _ <- hasPasses
<th .table__th>_{MsgSheetGradingPassing'}
$maybe _ <- hasMarkedPoints
<th .table__th colspan=2>_{MsgCorrected}
$maybe _ <- hasPoints
<th .table__th>_{MsgSheetGradingPoints'}
<th .table__th>_{MsgSheetGradingCount'}
$# Number of Sheet/Submissions used for calculating maximum passes/points
$forall row <- rowWdgts
^{row}
$maybe nrNoGrade <- positiveSum $ numNotGraded
<tr .table__row>
<th .table__th>_{MsgSheetTypeNotGraded}
$maybe _ <- hasMarkedPasses $maybe _ <- hasMarkedPasses
<td colspan=2> <th .table__th colspan=2>_{MsgCorrected}
$maybe _ <- hasPasses $maybe _ <- hasPasses
<td .table__td> <th .table__th>_{MsgSheetGradingPassing'}
$maybe _ <- hasMarkedPoints $maybe _ <- hasMarkedPoints
<td .table__td colspan=2> <th .table__th colspan=2>_{MsgCorrected}
$maybe _ <- hasPoints $maybe _ <- hasPoints
<td .table__td> <th .table__th>_{MsgSheetGradingPoints'}
<td .table__td>#{nrNoGrade} <th .table__th>_{MsgSheetGradingCount'}
$# Number of Sheet/Submissions used for calculating maximum passes/points
$forall row <- rowWdgts
^{row}
$maybe nrNoGrade <- positiveSum $ numNotGraded
<tr .table__row>
<th .table__th>_{MsgSheetTypeNotGraded}
$maybe _ <- hasMarkedPasses
<td colspan=2>
$maybe _ <- hasPasses
<td .table__td>
$maybe _ <- hasMarkedPoints
<td .table__td colspan=2>
$maybe _ <- hasPoints
<td .table__td>
<td .table__td>#{nrNoGrade}
$maybe _ <- positiveSum $ bonusSummary ^. _numSheets $maybe _ <- positiveSum $ bonusSummary ^. _numSheets
<p>_{MsgSheetTypeInfoBonus} # <p>_{MsgSheetTypeInfoBonus} #
$maybe _ <- positiveSum $ bonusSummary ^. _achievedPoints $maybe _ <- positiveSum $ bonusSummary ^. _achievedPoints