Commit 1c091f0f authored by Peter Achten's avatar Peter Achten
Browse files

minor modifications

parent 715a51fe
......@@ -54,11 +54,13 @@ derive gUpd CurrPage
derive gPrint CurrPage
derive gParse CurrPage
homePage :: Member -> CurrPage
homePage (ConfManager info) = RootHomePage
homePage (Referee info) = RefereeHomePage
homePage (Authors info) = AuthorsHomePage
homePage (Guest info) = GuestHomePage
navigationButtons :: Member *HSt -> (Form (CurrPage -> CurrPage),*HSt)
navigationButtons state hst = ListFuncBut (Init, sFormId "navigation" (navButtons state)) hst
where
navButtons (ConfManager info) =
......
Aantal regels van de "leaf" pagina's:
Functie #regels
-----------------------------------
rootHomePage . 4
refereeHomePage . 4
authorsHomePage . 4
guestHomePage .55
modifyStatesPage . 6
assignPapersConflictsPage .52
submitPaperPage . 5
showPapersPage . 6
submitReportPage .16
showReportsPage . 6
discussPapersPage .44
showPapersStatusPage .18
changeInfo . 4
changePasswrdPage . 8
totaal: 232
gemiddeld: 16.6
Module #regels
-----------------------------------
ConfManager .240
confIData .170
loginAdmin . 63
loginAdminIData .100
stateHandling .279
stateHandlingIData .256
totaal: 1108
......@@ -73,14 +73,14 @@ tempAccountsId accounts = sFormId "sh_root_accounts" accounts // temp editor fo
modifyStatesPage :: !ConfAccounts !*HSt -> ([BodyTag],!*HSt)
modifyStatesPage accounts hst
# (naccounts,hst) = vertlistFormButs 15 True (Init,tempAccountsId accounts) hst // make a list editor to mofify all accounts
# (naccounts,hst) = vertlistFormButs 15 True (Init,tempAccountsId accounts) hst // make a list editor to modify all accounts
# (accounts,hst) = AccountsDB Set naccounts.value hst // if correct store in global database
# (naccounts,hst) = vertlistFormButs 15 True (Set,tempAccountsId accounts) hst // make a list editor to mofify all accounts
# (naccounts,hst) = vertlistFormButs 15 True (Set,tempAccountsId accounts) hst // make a list editor to modify all accounts
= (naccounts.form, hst)
assignPapersConflictsPage :: !ConfAccounts !*HSt -> ([BodyTag],!*HSt)
assignPapersConflictsPage accounts hst
# (accountsf,hst) = vertlistFormButs 15 True (Init,tempAccountsId accounts) hst // make a list editor to mofify all accounts
# (accountsf,hst) = vertlistFormButs 15 True (Init,tempAccountsId accounts) hst // make a list editor to modify all accounts
# accounts = accountsf.value // current value in temp editor
# (assignf,hst) = ListFuncCheckBox (Init, nFormId "sh_assigments" (showAssignments accounts)) hst
# (conflictsf,hst) = ListFuncCheckBox (Init, nFormId "sh_conflicts" (showConflicts accounts)) hst
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment