#141 gespeichert und einfache Fehlerbehandlungen zentralisieren

planetAuswahlDialog: Fehlerbehandlung nach server modul umgezogen planetenEigenschaftenDialog: Gespeichert und Fehlerbehandlung nach server modul umgezogen planetMondNameDialog: Gespeichert und Fehlerbehandlung nach server modul umgezogen planetSammelEigenschaftenDialog: Gespeichert und Fehlerbehandlung nach server modul umgezogen rezepteBekanntDialog: Gespeichert und Fehlerbehandlung nach server modul umgezogen server: Gespeichert und Fehlerbehandlung neu spielStatusDialog: Gespeichert und Fehlerbehandlung nach server modul umgezogen sprachUmschaltung: Gespeichert und Fehlerbehandlung nach server modul umgezogen stoffErlangenDialog: Gespeichert und Fehlerbehandlung nach server modul umgezogen systemNamenDialog: Gespeichert und Fehlerbehandlung nach server modul umgezogen
SchwertAs · Sep 24, 2020 · 2845d1e · 2845d1e
1 parent 9bc1daa
commit 2845d1e
Show file tree

Hide file tree

Showing 10 changed files with 48 additions and 148 deletions.
diff --git a/planetAuswahlDialog.pl b/planetAuswahlDialog.pl
@@ -1,4 +1,4 @@
-:- module(planetAuswahlDialog, [systemAuswahlDialog/2, planetAuswahlDialog/3, fehlerBehandlung/0]).
+:- module(planetAuswahlDialog, [systemAuswahlDialog/2, planetAuswahlDialog/3]).
 
 :- use_module(library(http/http_error)).
 :- use_module(library(http/html_write)).
@@ -54,7 +54,7 @@
 	textResources:getText(txtReset, TxtReset),
 	http_parameters(Request, 
 	[auswahlSystem(AuswahlSystem, [length > 0])]),
-	((AuswahlSystem = TxtBitteWaehlen, fehlerBehandlung); 
+	((AuswahlSystem = TxtBitteWaehlen, server:fehlerBehandlung); 
 	(
 	 findall(Planet, (spielStatus:planeten(_, AuswahlSystem, Planet, _), Planet \= 'MeinPlanet'), Planeten),
 	 server:baueOptionsFeld('auswahlPlanet', Planeten, 2, OptionList),
@@ -110,17 +110,3 @@
    	  	  	  ])
    	  	])
 	).
-
-fehlerBehandlung :-
-   	server:holeCssAlsStyle(StyleString),
-	textResources:getText(txtNoMansSkyTrainerFehlerAuswahl, TxtNoMansSkyTrainerFehlerAuswahl),
-	TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerFehlerAuswahl)],
-	textResources:getText(txtBitteEineAuswahlTreffen, TxtBitteEineAuswahlTreffen),
-	TermerizedBody = [
-		\['<redHeader>'],
-		h3(align(center), TxtBitteEineAuswahlTreffen),
-		\['</redHeader>']
-		             ],
-	reply_html_page(TermerizedHead, TermerizedBody).
-
-
diff --git a/planetMondNameDialog.pl b/planetMondNameDialog.pl
@@ -27,7 +27,7 @@
 	http_parameters(Request, 
 	[auswahlSystem(AuswahlSystem, [length > 0])
 	]),
-	(AuswahlSystem = TxtBitteWaehlen -> planetAuswahlDialog:fehlerBehandlung; 
+	(AuswahlSystem = TxtBitteWaehlen -> server:fehlerBehandlung; 
 	 planetMondNameAnzeigen(AuswahlSystem)
 	).
 
@@ -166,7 +166,7 @@
 	 );
 	 (nth1(1, VarValueList, AuswahlSystem),
 	  \+ablegen(AuswahlSystem, GesamtZeilenZahl, VarValueList),
-      gespeichert
+      server:gespeichert
      )
 	).
 
@@ -260,22 +260,6 @@
 defaultBehandlung(PlanetenTyp0, PlanetenTyp) :-
 	PlanetenTyp = PlanetenTyp0.
 
-gespeichert :-
-    server:holeCssAlsStyle(StyleString),
-	textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
-	TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
-	textResources:getText(txtGespeichert, TxtGespeichert),
-	textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),	
-	TermerizedBody = [
-		\['<header>'],
-		h1(align(center), TxtGespeichert),
-		\['</header>'],
-		\['<formSpace>'], 
-		p(a(['href="/"'],[TxtFunktionsAuswahl])),
-		\['</formSpace>']
-		             ],
-	reply_html_page(TermerizedHead, TermerizedBody).
-
 /* unverändert */
 insUpdDel(System, PlanetNew, RecNo, PlanetenTyp) :-
 	gueltigeZeile(PlanetNew, PlanetenTyp),

diff --git a/planetSammelEigenschaftenDialog.pl b/planetSammelEigenschaftenDialog.pl
@@ -54,7 +54,7 @@
 	[auswahlSystem(AuswahlSystem, [length > 0]),
 	 auswahlPlanet(AuswahlPlanet, [length > 0])
 	]),
-	((AuswahlPlanet = TxtBitteWaehlen, planetAuswahlDialog:fehlerBehandlung); 
+	((AuswahlPlanet = TxtBitteWaehlen, server:fehlerBehandlung); 
 	(
 	 findall(SammelArt, 
 	   (sammelAktion:sammelAktion(SammelArt0), 
@@ -96,7 +96,7 @@
 	 auswahlPlanet(AuswahlPlanet, [length > 0]),
 	 auswahlSammelArt(AuswahlSammelArt, [length > 0])
 	]),
-	(AuswahlSammelArt = TxtBitteWaehlen -> planetAuswahlDialog:fehlerBehandlung; 
+	(AuswahlSammelArt = TxtBitteWaehlen -> server:fehlerBehandlung; 
 	 planetenSammelEigenschaftenAnzeigen(AuswahlSystem, AuswahlPlanet, AuswahlSammelArt)
 	).
 
@@ -351,7 +351,7 @@
 	  ignore(retractall(sammlung:sammlung(_, AuswahlSystem, AuswahlPlanet, AuswahlSammelArt, _, _, _, _))),
 	  \+ablegen(AuswahlSystem, AuswahlPlanet, AuswahlSammelArt, GesamtZeilenZahl, VarValueList),
       sammlung:vorgefertigeLoesungenErstellen,
-      gespeichert
+      server:gespeichert
      )
 	).
 
@@ -390,22 +390,6 @@
 	assertz(sammlung:sammlung(ZeileNo, AuswahlSystem, AuswahlPlanet, AuswahlSammelArt, RohStoff, Ruest, Haupt, Neben)),
 	fail.
 
-gespeichert :-
-    server:holeCssAlsStyle(StyleString),
-	textResources:getText(txtGespeichert, TxtGespeichert),
-	textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
-	textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
-	TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
-	TermerizedBody = [
-		\['<header>'],
-		h1(align(center), TxtGespeichert),
-		\['</header>'],
-		\['<formSpace>'], 
-		p(a(['href="/"'],[TxtFunktionsAuswahl])),
-		\['</formSpace>']
-		             ],
-	reply_html_page(TermerizedHead, TermerizedBody).
-
 fehlerZeile(FeldNo) :-
 	textResources:getText(txtDieZeile, TxtDieZeile),
 	textResources:getText(txtIstUnvollstaendig, TxtIstUnvollstaendig),

diff --git a/planetenEigenschaftenDialog.pl b/planetenEigenschaftenDialog.pl
@@ -41,7 +41,7 @@
 	[auswahlSystem(AuswahlSystem, [length > 0]),
 	 auswahlPlanet(AuswahlPlanet, [length > 0])
 	]),
-	(AuswahlPlanet = TxtBitteWaehlen -> planetAuswahlDialog:fehlerBehandlung; 
+	(AuswahlPlanet = TxtBitteWaehlen -> server:fehlerBehandlung; 
 	 planetenEigenschaftenAnzeigen(AuswahlSystem, AuswahlPlanet)
 	).
 
@@ -469,24 +469,9 @@
       (PlantageVorhanden= off; 
        assertz(spielStatus:systemAusstattung([AuswahlSystem, AuswahlPlanet, ortPlantage], PlantageEntfernungNum))
       ), 
-	  gespeichert
+	  server:gespeichert
 	)).
 
-
-gespeichert :-
-      server:holeCssAlsStyle(StyleString),
-	  textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
-	  TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
-	  TermerizedBody = [
-		\['<header>'],
-		h3(align(center),'gespeichert!'),
-		\['</header>'],
-		\['<formSpace>'], 
-		p(\['<a href="/" > Funktionsauswahl </a>']),
-		\['</formSpace>']
-		             ],
-	  reply_html_page(TermerizedHead, TermerizedBody).
-
 fehlerBehandlungGruppe(Gruppe) :-
    	server:holeCssAlsStyle(StyleString),
 	textResources:getText(Gruppe, TxtGruppe),

diff --git a/rezepteBekanntDialog.pl b/rezepteBekanntDialog.pl
@@ -61,7 +61,7 @@
 	]),
 	textResources:getText(txtBitteWaehlen, BitteWaehlen),
 	debug(myTrace, 'AuswahlStoffKlasse=~k', AuswahlStoffKlasse),
-	((AuswahlStoffKlasse = BitteWaehlen, planetAuswahlDialog:fehlerBehandlung); 
+	((AuswahlStoffKlasse = BitteWaehlen, server:fehlerBehandlung); 
 	 rezeptBekanntAnzeigen(AuswahlStoffKlasse)
 	).
 
@@ -219,7 +219,7 @@
 	VarValueList =[AuswahlStoffKlasse|_], 
 	baueRezeptListe(AuswahlStoffKlasse, RezeptListe),
 	\+ablegen(RezeptListe, VarValueList),
-    gespeichert.
+    server:gespeichert.
 
 baueRezeptListe(AuswahlStoffKlasse, RezeptListe) :-
 	findall(Rezept, (rezeptVonStoffKlasse(AuswahlStoffKlasse, Rezept), rezeptSchonBekannt(Rezept, _)), RezeptListe0),
@@ -249,19 +249,3 @@
     nth1(OffsetRezept, RezeptListe, Rezept),
   	OffsetChecked is 1 + (Spalte - 1) * (ParamStep - 1) + Zeile,
     nth1(OffsetChecked, VarValueList, Checked).
-
-gespeichert :-
-   	server:holeCssAlsStyle(StyleString),
-	textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
-	TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
-	textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
-	textResources:getText(txtGespeichert, TxtGespeichert),
-	TermerizedBody = [
-		\['<header>'],
-		h1(align(center),TxtGespeichert),
-		\['</header>'],
-		\['<formSpace>'], 
-		p(a(['href="/"'],[TxtFunktionsAuswahl])),
-		\['</formSpace>']
-		             ],
-	reply_html_page(TermerizedHead, TermerizedBody).
diff --git a/server.pl b/server.pl
@@ -1,4 +1,4 @@
-:- module(server, [server/1, holeCssAlsStyle/1, baueOptionsFeld/4]).
+:- module(server, [server/1, holeCssAlsStyle/1, baueOptionsFeld/4, gespeichert/0, fehlerBehandlung/0]).
 
 :- use_module(library(dcg/basics)).
 :- use_module(library(http/thread_httpd)).
@@ -207,5 +207,32 @@
 	string_concat(BisherList, OptionString1, BisherList2),
 	baueOption(Rest, BisherList2, NextList).
 
+gespeichert :-
+      server:holeCssAlsStyle(StyleString),
+	  textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
+	  TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
+	  TermerizedBody = [
+		\['<header>'],
+		h3(align(center),'gespeichert!'),
+		\['</header>'],
+		\['<formSpace>'], 
+		p(\['<a href="/" > Funktionsauswahl </a>']),
+		\['</formSpace>']
+		             ],
+	  reply_html_page(TermerizedHead, TermerizedBody).
+
+fehlerBehandlung :-
+   	server:holeCssAlsStyle(StyleString),
+	textResources:getText(txtNoMansSkyTrainerFehlerAuswahl, TxtNoMansSkyTrainerFehlerAuswahl),
+	TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerFehlerAuswahl)],
+	textResources:getText(txtBitteEineAuswahlTreffen, TxtBitteEineAuswahlTreffen),
+	TermerizedBody = [
+		\['<redHeader>'],
+		h3(align(center), TxtBitteEineAuswahlTreffen),
+		\['</redHeader>']
+		             ],
+	reply_html_page(TermerizedHead, TermerizedBody).
+
+
 dummy(_)  :-
 	format('').
diff --git a/spielStatusDialog.pl b/spielStatusDialog.pl
@@ -179,23 +179,5 @@
     (Spaere = off -> assertz(spielStatus:spielStatus(sphaereRufbar, false)); assertz(spielStatus:spielStatus(sphaereRufbar, true))),
 	assertz(spielStatus:spielStatus(konfiguriert, true)),
 	sammlung:vorgefertigeLoesungenErstellen,
-	gespeichert.
-
-gespeichert :-
-    server:holeCssAlsStyle(StyleString),
-	textResources:getText(txtGespeichert, TxtGespeichert),
-	textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),	
-	textResources:getText(txtNoMansSkyTrainerGespeichert, TxtNoMansSkyTrainerGespeichert),
-	TermerizedHead = [\[StyleString], title(TxtNoMansSkyTrainerGespeichert)],
-	TermerizedBody = [
-		\['<header>'],
-		h1(align(center),TxtGespeichert),
-		\['</header>'],
-		\['<formSpace>'], 
-		p(a(['href="/"'],[TxtFunktionsAuswahl])
-		),
-		\['</formSpace>']
-		             ],
-	reply_html_page(TermerizedHead, TermerizedBody).
-
+	server:gespeichert.
 
diff --git a/sprachUmschaltung.pl b/sprachUmschaltung.pl
@@ -61,25 +61,8 @@
 	]),
 	textResources:getText(txtBitteWaehlen, BitteWaehlen),
 	debug(myTrace, 'AuswahlSprache=~k', AuswahlSprache),
-	((AuswahlSprache = BitteWaehlen, planetAuswahlDialog:fehlerBehandlung);
+	((AuswahlSprache = BitteWaehlen, server:fehlerBehandlung);
 	 (retractall(spielStatus:sprache(_)),
 	  assertz(spielStatus:sprache(AuswahlSprache)),
-	 gespeichert)
+	 server:gespeichert)
 	).
-
-gespeichert :-
-   	server:holeCssAlsStyle(StyleString),
-	textResources:getText(txtNoNansSkyTrainerSprachAuswahl, TxtNoNansSkyTrainerSprachAuswahl),
-	TermerizedHead = [\[StyleString], title(TxtNoNansSkyTrainerSprachAuswahl)],
-	textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),
-	textResources:getText(txtGespeichert, TxtGespeichert),
-	TermerizedBody = [
-		\['<header>'],
-		h1(align(center),TxtGespeichert),
-		\['</header>'],
-		\['<formSpace>'], 
-		p(a(['href="/"'],[TxtFunktionsAuswahl])),
-		\['</formSpace>']
-		             ],
-	reply_html_page(TermerizedHead, TermerizedBody).
-
diff --git a/stoffErlangenDialog.pl b/stoffErlangenDialog.pl
@@ -42,7 +42,7 @@
 	[auswahlSystem(AuswahlSystem, [length > 0]),
 	 auswahlPlanet(AuswahlPlanet, [length > 0])
 	]) ,
-	((AuswahlPlanet = TxtBitteWaehlen, planetAuswahlDialog:fehlerBehandlung); 
+	((AuswahlPlanet = TxtBitteWaehlen, server:fehlerBehandlung); 
 	 stoffErlangenAnzeigen(AuswahlSystem, AuswahlPlanet)
 	).
 
@@ -167,11 +167,11 @@
     ((nurEinStoffGewaehlt(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5, Stoff),
       ergebnisAusgeben(AuswahlSystem, AuswahlPlanet, Anzahl, Ziel, Stoff)
      );
-     fehlerBehandlung(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5)
+     fehlerBehandlungNurEinStoff(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5)
     ),
     !.
 
-fehlerBehandlung(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5) :-    
+fehlerBehandlungNurEinStoff(Stoff1, Stoff2, Stoff3, Stoff4, Stoff5) :-    
 	textResources:getText(txtBitteWaehlen, TxtBitteWaehlen),
      ((Stoff1 == TxtBitteWaehlen, Stoff2 = TxtBitteWaehlen, Stoff3 = TxtBitteWaehlen,
          Stoff4 = TxtBitteWaehlen, Stoff5 = TxtBitteWaehlen,
@@ -187,7 +187,7 @@
    	TermerizedHead = [\[StyleString], title(TxtNoNansSkyTrainerStoffErlangen)],
 	TermerizedBody = [
 		\['<redHeader>'],
-		h1(align(center), TxtBitteGenauEineAuswahlTreffen),
+		h3(align(center), TxtBitteGenauEineAuswahlTreffen),
 		\['</redHeader>']
 		],
 
@@ -200,7 +200,7 @@
    	TermerizedHead = [\[StyleString], title(TxtNoNansSkyTrainerStoffErlangen)],
 	TermerizedBody = [
 		\['<redHeader>'],
-		h1(align(center), TxtBitteNurEineAuswahlTreffen),
+		h3(align(center), TxtBitteNurEineAuswahlTreffen),
 		\['</redHeader>']
 		],
 

diff --git a/systemNamenDialog.pl b/systemNamenDialog.pl
@@ -125,7 +125,7 @@
       fehlerZeile(ZeileNoFehler, SpalteNoFehler)
 	 );
 	 (\+ablegen(GesamtZeilenZahl, VarValueList),
-      gespeichert
+      server:gespeichert
      )
 	).
 
@@ -225,21 +225,6 @@
 	retractall(spielStatus:systeme(_, SystemOld, _)),	
 	!.
 
-gespeichert :-
-   	server:holeCssAlsStyle(StyleString),
-	textResources:getText(txtGespeichert, TxtGespeichert),
-	TermerizedHead = [\[StyleString], title(TxtGespeichert)],
-	textResources:getText(txtFunktionsAuswahl, TxtFunktionsAuswahl),	
-	TermerizedBody = [
-		\['<header>'],
-		h1(align(center),TxtGespeichert),
-		\['</header>'],
-		\['<formSpace>'], 
-		p(a(['href="/"'],[TxtFunktionsAuswahl])),
-		\['</formSpace>']
-		             ],
-	reply_html_page(TermerizedHead, TermerizedBody).
-
 fehlerZeile(Zeile, Spalte) :-
 	server:holeCssAlsStyle(StyleString),
 	textResources:getText(txtDieZeile, TxtDieZeile),