minor modifications

libraries/htmlGEC/Examples/Conf Management System/ConfManager.icl

@@ -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) = 

libraries/htmlGEC/Examples/Conf Management System/aantalregels.txt

+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

libraries/htmlGEC/Examples/Conf Management System/stateHandlingIData.icl

@@ -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