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

Show degree & field number, if no name is available

Browse Source
This commit is contained in:
Gregor Kleen 2018-09-18 17:16:17 +02:00
parent 1095bc8a6f
commit 47c97652f2
2 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Handler/Profile.hs
View File

@ -130,10 +130,14 @@ getProfileR = do
E.where_ $ studyfeat E.^. StudyFeaturesUser E.==. E.val uid E.where_ $ studyfeat E.^. StudyFeaturesUser E.==. E.val uid
E.on $ studyfeat E.^. StudyFeaturesField E.==. studyterms E.^. StudyTermsId E.on $ studyfeat E.^. StudyFeaturesField E.==. studyterms E.^. StudyTermsId
E.on $ studyfeat E.^. StudyFeaturesDegree E.==. studydegree E.^. StudyDegreeId E.on $ studyfeat E.^. StudyFeaturesDegree E.==. studydegree E.^. StudyDegreeId
return (studydegree E.^. StudyDegreeName return ( ( studydegree E.^. StudyDegreeName
,studyterms E.^. StudyTermsName , studydegree E.^. StudyDegreeKey
,studyfeat E.^. StudyFeaturesType )
,studyfeat E.^. StudyFeaturesSemester) , ( studyterms E.^. StudyTermsName
, studyterms E.^. StudyTermsKey
)
, studyfeat E.^. StudyFeaturesType
, studyfeat E.^. StudyFeaturesSemester)
) )
let formText = Just MsgSettings let formText = Just MsgSettings
actionUrl = ProfileR actionUrl = ProfileR

18
templates/profile.hamlet
View File

@ -48,12 +48,20 @@
<th .table__th> Studienart <th .table__th> Studienart
<th .table__th> Semester <th .table__th> Semester
$forall (degree,field,fieldtype,semester) <- studies $forall ((degree, degreeKey),(field, fieldKey),fieldtype,semester) <- studies
<tr.table__row> <tr.table__row>
<td .table__td> #{display degree} <td .table__td>
<td .table__td> #{display field} $maybe name <- E.unValue degree
<td .table__td> #{display fieldtype} #{display name}
<td .table__td> #{display semester} $nothing
#{display degreeKey}
<td .table__td>
$maybe name <- E.unValue field
#{display name}
$nothing
#{display fieldKey}
<td .table__td>#{display fieldtype}
<td .table__td>#{display semester}
$if not $ null participant $if not $ null participant
<dt .deflist__dt> Teilnehmer <dt .deflist__dt> Teilnehmer