[Prolog Server Pages] Utilisation des liens internes

**baouk2000** · 15/03/2009, 20h16

salut, en continuité avec mon post au sujet de "prolog server pages" j'ai essayé d'avancer mais cette fois en adoptant la technique des liens internes ( qui se refernent à la meme page) car j'ai trouvé cela pratique. Dans le code ci-dessous de ma page PSP. L'esprit du programme est qu'il ya des systemes et les pannes relatives a chaque systeme, et pour chaque panne une procedure, outillage et reference. j'ai modifié ce code plusieurs fois et je sais pas si c'est correct!! Surtt cette partie que je crois qu'elle est incomplete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
<?, (member(p=Sys,Get),Pan=''; 
     member(ps=Pan, Get), Sys='';
	assert(genere(debut)), Pan='', Sys=''),?>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
:- use_module(library('http/thread_httpd')).
 
:- use_module(library('http/html_write')).
 
:- use_module(library('http/http_session')).
 
:- use_module(library('http/http_error')).
 
:- dynamic systeme/1.
:- dynamic panne/1.
:- dynamic procedure/1.
:- dynamic genere/1.
 
 
 
ref(reference1):-panne(panne1).
ref(reference2):-panne(panne2).
ref(reference3):-panne(panne3).
ref(reference4):-panne(panne4).
 
tool(tool1):-panne(panne1).
tool(tool2):-panne(panne2).
tool(tool3):-panne(panne3).
tool(tool4):-panne(panne4).
 
procedure(procedure1):-panne(panne1).
procedure(procedure2):-panne(panne2).
procedure(procedure3):-panne(panne3).
procedure(procedure4):-panne(panne4).
 
 
panne(panne1):-systeme(systeme1).
panne(panne2):-systeme(systeme1).
panne(panne3):-systeme(systeme2).
panne(panne4):-systeme(systeme2).
 
 
systeme(systeme1) :- genere(debut).
systeme(systeme2) :- genere(debut).
 
 
 
 
 
/*<html>
<title>Interrogation Prolog</title>
<head></head>
<body>
 
 
 
<?, (member(p=Sys,Get),Pan=''; 
     member(ps=Pan, Get), Sys='';
	assert(genere(debut)), Pan='', Sys=''),?>
 
 
 
<!-- Show the query -->
Facts :
<pre>
<?= Sys ?>
<?=Pan ?>
 
</pre>
 
 
<table><tr><td>
 
	<?,forall(systeme(X),?>
		<ul ><li>
		 <a href="accueil2.prolog?p=<?=X?>"><?=X?></a>
		</li></ul>
		<br><?),?>
</td>
 
<td>
 
 
	<a name="accueil2.prolog?p=<?=X?>">	
	<?,retractall(systeme(_)), assert(systeme(Sys)), forall(panne(P),?>
 
	<ul>	<li>	<a href="accueil2.prolog?ps=<?=P?>">	<?=P?>	</a>
				<br>	</li>	</ul>	<?),?>
</a>	
 
 
 
</td>
 
 
<td>
 
<a name="accueil2.prolog?ps=<?=P?>">
<table min-width="400px">	
	<tr><td>
	<?,retractall(panne(_)), assert(panne(Pan)),
	  forall(procedure(Pro),?> <a href="accueil2.prolog?pro=<?=Pro?>">Procedure<?),?><br></a>
		</td>
		<td><?,retractall(panne(_)), assert(panne(Pan)),
	  forall(tool(Outil),?> <a href="accueil2.prolog?outil=<?=Outil?>">Outillage</a><br>
		<?),?></td><td>
		<?,retractall(panne(_)), assert(panne(Pan)),
	  forall(ref(Ref),?> <a href="accueil2.prolog?ref=<?=Ref?>">Reference</a><br>
	<?),?></td></tr></table>
 
 
</a></td>
<td>
	<a name="accueil2.prolog?pro=<?=Pro?>">
 
		<label>
		<?,retractall(panne(_)), assert(panne(Pan)),forall(procedure(Pro),?><?=Pro?><?),?> 
		</label>
		<br>
 
 
	</a>
 
	<a name="accueil2.prolog?outil=<?=Outil?>">
 
		<label>
		<?,retractall(panne(_)), assert(panne(Pan)),forall(tool(Outil),?><?=Outil?><?),?> 
		</label>
		<br>
 
 
	</a>
 
	<a name="accueil2.prolog?ref=<?=Ref?>">
 
		<label>
		<?,retractall(panne(_)), assert(panne(Pan)),forall(ref(Ref),?><?=Ref?><?),?> 
		</label>
		<br>
 
 
	</a>
</td>
 
</tr></table>
 
 
</body>
</html>*/

A vrai dire, j'ai essayé d'afficher d'abord les systemes puis, en cliquant sur un systeme, afficher les pannes correspondantes, et en cliquant sur la panne afficher le ptit menu (procedure, outillage, refernce) et une zone de texte. Qund on clique sur une option (procedure par ex) la procedure s'affiche dans la zone de texte.

le probleme que j'ai avec le code donnée, c'est que la zone de texte avec le contenu s'affiche avant. Si qcq un pourrait m aider je serai reconnaissant

**Trap D** · 16/03/2009, 15h51

Envoyé par baouk2000

le probleme que j'ai avec le code donnée, c'est que la zone de texte avec le contenu s'affiche avant. Si qcq un pourrait m aider je serai reconnaissant

Il me semble que, puisque ce sont des références internes à la page, le texte est forcément visible, je ne vois pas vraiment comment le cacher/montrer avec des balises HTML, il faut passer par du code PSP.

**baouk2000** · 16/03/2009, 16h43

je sais pas si vous avez prété attention, mais j'ai mis des liens internes qui sont ecrits avec PSP et le lien interne envoit vers une balise en tenant compte la valeur de la variable

voila par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
<?,forall(systeme(X),?>
		<ul ><li>
		 <a href="accueil2.prolog?p=<?=X?>"><?=X?></a>
		</li></ul>
		<br><?),?>

**Trap D** · 16/03/2009, 16h48

C'était une observation générale sur les liens dans une page, je n'ai pas testé le code avec PSP, peut-être ce soir ...

**baouk2000** · 16/03/2009, 17h29

MERCI pour l'observation

**baouk2000** · 18/03/2009, 16h57

salut, ca fait mntnt 2 jours et j'ai pas pu avancer je suis calé en ce point. est ce qcq un pourrait m'aider!!

**Trap D** · 18/03/2009, 18h48

Peut-être que si tu expliquais clairement ce que tu souhaites obtenir avec éventuellement une copie d'écran on/je comprendrait/s ce que tu souhaites

**baouk2000** · 18/03/2009, 23h14

salut j'ai cru être clair dans mon premier msg à propos de ce que je veux programmer, mais je me suis rendu compte du contraire. donc, voila d'une façon schématique ce que je veux faire:

on exécute le fichier et on a :
Nom : Nouvelle image (2).jpg
Affichages : 80
Taille : 35,5 Ko

Nom : Nouvelle image (2).jpg
Affichages : 80
Taille : 35,5 Ko

puis en cliquant sur un système, les pannes correspondantes s'affichent:
Nom : Nouvelle image (3).jpg
Affichages : 83
Taille : 44,2 Ko

puis en cliquant sur une panne, s'affiche un menu de choix entre procedure, outil et reference avec une zone de texte pour l'affichage ultérieurement:
Nom : Nouvelle image (4).jpg
Affichages : 76
Taille : 41,0 Ko

Nom : Nouvelle image (4).jpg
Affichages : 76
Taille : 41,0 Ko

puis en cliquant sur procedure, la procedure correspondante s'affiche dans la zone de texte:
Nom : Nouvelle image (5).jpg
Affichages : 77
Taille : 44,2 Ko

et si on clique sur outil, l'outillage s'affiche dans la meme zone de texte ..

Nom : Nouvelle image (6).jpg
Affichages : 75
Taille : 43,9 Ko

**Trap D** · 19/03/2009, 21h11

Ok, maintenant, j'ai une meilleure vue !
Essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
:- use_module(library('http/thread_httpd')).
 
:- use_module(library('http/html_write')).
 
:- use_module(library('http/http_session')).
 
:- use_module(library('http/http_error')).
 
:- dynamic systeme/1.
:- dynamic panne/1.
:- dynamic procedure/1.
:- dynamic genere/1.
 
 
 
ref(reference1):-panne(panne1).
ref(reference2):-panne(panne2).
ref(reference3):-panne(panne3).
ref(reference4):-panne(panne4).
 
tool(tool1):-panne(panne1).
tool(tool2):-panne(panne2).
tool(tool3):-panne(panne3).
tool(tool4):-panne(panne4).
 
procedure(procedure1):-panne(panne1).
procedure(procedure2):-panne(panne2).
procedure(procedure3):-panne(panne3).
procedure(procedure4):-panne(panne4).
 
 
panne(panne1):-systeme(systeme1).
panne(panne2):-systeme(systeme1).
panne(panne3):-systeme(systeme2).
panne(panne4):-systeme(systeme2).
 
 
systeme(systeme1) :- genere(debut).
systeme(systeme2) :- genere(debut).
 
 
 
 
 
/*<html>
<title>Interrogation Prolog</title>
<head></head>
<body>
 
 
 
<?, (member(p=Sys,Get),Pan=''; 
     member(ps=Pan, Get), Sys='';
	assert(genere(debut)), Pan='', Sys=''),
	(member(pro=Pro1, Get); Pro1=''),
	(member(outil=Out1, Get); Out1=''),
	(member(ref=Ref1, Get); Ref1=''),?>
 
 
 
<!-- Show the query -->
Facts :
<pre>
<?= Sys ?>
<?=Pan ?>
 
</pre>
 
 
<table><tr><td>
 
	<?,forall(systeme(X),?>
		<ul ><li>
		 <a href="accueil2.prolog?p=<?=X?>"><?=X?></a>
		</li></ul>
		<br><?),?>
</td>
 
<td>
 
 
	<a name="accueil2.prolog?p=<?=X?>">	
	<?,retractall(systeme(_)), assert(systeme(Sys)), forall(panne(P),?>
 
	<ul>	<li>	<a href="accueil2.prolog?ps=<?=P?>">	<?=P?>	</a>
				<br>	</li>	</ul>	<?),?>
</a>	
 
 
 
</td>
 
 
<td>
 
<a name="accueil2.prolog?ps=<?=P?>">
<table >	
	<tr>
		<td width="100px">
			<?,	retractall(panne(_)), 
				assert(panne(Pan)),
				forall(procedure(Pro),?> 
					<a href="accueil2.prolog?ps=<?=Pan?>&pro=<?=Pro?>">Procedure<?),?></a>&nbsp;&nbsp;
		<td width="100px">
			<?,
				retractall(panne(_)), 
				assert(panne(Pan)),
				forall(tool(Outil),?> 
					<a href="accueil2.prolog?ps=<?=Pan?>&outil=<?=Outil?>">Outillage<?),?></a>&nbsp;&nbsp;
		<td width="100px">
			<?,
				retractall(panne(_)), 
				assert(panne(Pan)),
				forall(ref(Ref),?> 
					<a href="accueil2.prolog?ps=<?=Pan?>&ref=<?=Ref?>">Reference<?),?></a><br>
	</tr>
	<tr>
		<td width="100px">	<?=Pro1 ?>
		<td width="100px">	<?=Out1 ?>
		<td width="100px">	<?=Ref1 ?>
		</td>
</table>
 
 
</a></td>
 
<!-- fin -->
 
</tr></table>
 
 
</body>
</html>*/

Celà ressemble à ce que tu recherches.

**baouk2000** · 19/03/2009, 22h05

Merci c'est déjà bien pour moi sauf que pour la zone de texte y a-t-il pas un astuce pour qu'on affiche la procedure, outil et reference dans la meme zone de texte sans que celle ci appariasse des le départ comme je l'ai precisé dans les ecrans imprimés dans le post precedent!! Merci encore une fois

**Trap D** · 20/03/2009, 08h18

Bah, en regardant le code que j'ai donné, tu dois pouvoir le faire toi même ...

**baouk2000** · 20/03/2009, 21h02

oui c'est ce que j'ai essayé de faire sauf que la zone de texte apparait des le depart. ce que je voulais savoir si il y a un astuce pour quelle apparaisse seulement au moment d'affichage !!

**baouk2000** · 23/03/2009, 00h09

salut j'ai essayé depuis l'autre jour et j'ai pu trouver un astuce pour que la zone de texte apparaisse seulement au moment d'affichage, mais malheureusement sa fonctionne sous mozilla mais pas sous IE7, ce que j'ai fait c'est de remplacer dans le block du code prolog:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure(procedure1):- panne(panne1).
procedure(procedure2):- panne(panne2).
procedure(procedure3):- panne(panne3).
procedure(procedure4):- panne(panne4).

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure('<textarea>procedure1</textarea>'):- panne(panne1).
procedure('<textarea>procedure2</textarea>'):- panne(panne2).
procedure('<textarea>procedure3</textarea>'):- panne(panne3).
procedure('<textarea>procedure4</textarea>'):- panne(panne4).

ainsi pour les autres (outil et reference), mais un autre problème c'est que je peux pas maitriser les dimensions par (cols="*" et rows="*") à cause des "" qui se mélangent en cours d'exécuton avec celles du lien (href="accueil2.prolog?ps=<?=Pan?>&pro=<?=Pro?>")

est ce qu'il y a une façon de faire pour que cela fonctionne sous IE7 avec possibilités d'appliquer des styles ????

**Trap D** · 23/03/2009, 21h00

Envoyé par baouk2000

est ce qu'il y a une façon de faire pour que cela fonctionne sous IE7 avec possibilités d'appliquer des styles ????

Je pense que c'est plus une question pour les forums Web que Prolog !

Tout ce que je peux te proposer pour le moment, c'est de passer les largeurs de cellules à "200px" au lieu de "100px", ça fait à peu près la bonne largeur.

[EDIT] En regardant un peu plus près, ce que je te propose fonctionne sous IE et FF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
	<tr>
		<td width="200px">	<?, (Pro1\='', ?><textarea><?=Pro1 ?></textarea><?; ?>&nbsp;<?),?>
		<td width="200px">	<?, (Out1\='', ?><textarea><?=Out1 ?></textarea><?; ?>&nbsp;<?),?>
		<td width="200px">	<?, (Ref1\='', ?><textarea><?=Ref1 ?></textarea><?; ?>&nbsp;<?),?>
	</tr>

et tu reprends les anciennes définitions de procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure(procedure1):-panne(panne1).
procedure(procedure2):-panne(panne2).
procedure(procedure3):-panne(panne3).
procedure(procedure4):-panne(panne4).

[/EDIT]

**baouk2000** · 24/03/2009, 00h09

merci je crois que ca me va pour le moment, j'essayerais de voir les forums web plus tard. Merci encore une fois!

[Prolog Server Pages] Utilisation des liens internes

Prolog

Discussions similaires

Partager

Partager