|
0
|
1 |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
|
|
|
2 |
<html>
|
|
|
3 |
<head>
|
|
|
4 |
<title>Lingvigilo - Korekta kvizo</title>
|
|
|
5 |
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
|
|
|
6 |
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
|
|
|
7 |
<META HTTP-EQUIV="Expires" CONTENT="-1">
|
|
|
8 |
</head>
|
|
|
9 |
|
|
|
10 |
<body>
|
|
|
11 |
|
|
|
12 |
<?php
|
|
|
13 |
include('./getdb.inc');
|
|
|
14 |
|
|
|
15 |
$konekto=konekti();
|
|
|
16 |
|
|
|
17 |
$frazoj = preni_frazojn($konekto,0)
|
|
|
18 |
?>
|
|
|
19 |
|
|
|
20 |
<h1>Korektilo por programo <em>lingvigilo</em></h1>
|
|
|
21 |
|
|
|
22 |
<?php
|
|
|
23 |
if (isset($_POST["korektu"]))
|
|
|
24 |
{
|
|
|
25 |
|
|
|
26 |
// Konservi datumojn.
|
|
|
27 |
|
|
|
28 |
$body = "";
|
|
|
29 |
// OJU!!!! Aquí falla indentació per mantenir 80 columnes.
|
|
|
30 |
if ($frazoj != 0)
|
|
|
31 |
{
|
|
|
32 |
foreach($frazoj as $key => $f)
|
|
|
33 |
{
|
|
|
34 |
//echo "<p> Key: $key. ";
|
|
|
35 |
if(isset($_POST["korekto"][$key]))
|
|
|
36 |
//echo "farita.";
|
|
|
37 |
if($_POST["korekto"][$key] != 0)
|
|
|
38 |
{
|
|
|
39 |
$query = "UPDATE " . $frazotablo .
|
|
|
40 |
" SET korekta=" .
|
|
|
41 |
$_POST["korekto"][$key] .
|
|
|
42 |
",klarigo='" .
|
|
|
43 |
strtosql($_POST["klarigo"][$key]) .
|
|
|
44 |
"',korektisto='" .
|
|
|
45 |
strtosql($_POST["korektisto"]) .
|
|
|
46 |
"' WHERE id=". $key . ";";
|
|
|
47 |
mysql_query($query, $konekto);
|
|
|
48 |
// Por retletero
|
|
|
49 |
$body = $body .
|
|
|
50 |
"Vorto: " . $f["vorto"] . "\n" .
|
|
|
51 |
"Frazo: " . $f["frazo"] . "\n" .
|
|
|
52 |
"Korekteco: " .
|
|
|
53 |
teksto_korekto($_POST["korekto"][$key])
|
|
|
54 |
. "\n" .
|
|
|
55 |
"Klarigo: " . $_POST["klarigo"][$key] .
|
|
|
56 |
"\n" . "Korektist(in)o: " .
|
|
|
57 |
$_POST["korektisto"] .
|
|
|
58 |
"\n\n";
|
|
|
59 |
|
|
|
60 |
|
|
|
61 |
|
|
|
62 |
}
|
|
|
63 |
//echo "</p>\n";
|
|
|
64 |
}
|
|
|
65 |
// Sendi retleteron
|
|
|
66 |
mail("viric@vicerveza.homeunix.net","Korektado de frazoj", $body,
|
|
|
67 |
"Content-Type: text/plain; charset=utf-8\r\n" .
|
|
|
68 |
"Content-Transfer-Encoding: 8bit");
|
|
|
69 |
}
|
|
|
70 |
|
|
|
71 |
?>
|
|
|
72 |
<p>Dankon pro la korektado!<p>
|
|
|
73 |
<p>Vi povas reiri al frazaro korektenda alitage, ĉiam je la
|
|
|
74 |
<a HREF="http://vicerveza.homeunix.net/~viric/lingvigilo/lingvigilo-korekti">Sama
|
|
|
75 |
adreso</a>.</p>
|
|
|
76 |
<?php
|
|
|
77 |
}
|
|
|
78 |
else
|
|
|
79 |
{
|
|
|
80 |
?>
|
|
|
81 |
|
|
|
82 |
<h2>Frazoj korektendaj</h2>
|
|
|
83 |
|
|
|
84 |
<form action="lingvigilo-korekti" method="post">
|
|
|
85 |
|
|
|
86 |
<TABLE BORDER=1>
|
|
|
87 |
<TR>
|
|
|
88 |
<TH>ID
|
|
|
89 |
<TH>Vorto
|
|
|
90 |
<TH>Frazo
|
|
|
91 |
<TH>Korekto
|
|
|
92 |
<TH>Klarigo
|
|
|
93 |
|
|
|
94 |
<?php
|
|
|
95 |
|
|
|
96 |
function select_korekto($id_frazo)
|
|
|
97 |
{
|
|
|
98 |
echo "<SELECT name=\"korekto[$id_frazo]\">\n";
|
|
|
99 |
echo "<OPTION value=0 selected>Ne korektita\n";
|
|
|
100 |
echo "<OPTION value=1>Ĝusta\n";
|
|
|
101 |
echo "<OPTION value=2>Malĝusta\n";
|
|
|
102 |
echo "<OPTION value=3>Nekutima\n";
|
|
|
103 |
echo "</SELECT>\n";
|
|
|
104 |
}
|
|
|
105 |
|
|
|
106 |
$numfrazoj = 0;
|
|
|
107 |
if ($frazoj != 0)
|
|
|
108 |
foreach($frazoj as $key => $f)
|
|
|
109 |
{
|
|
|
110 |
echo "<tr>\n";
|
|
|
111 |
echo "\t<td>". $key . "\n";
|
|
|
112 |
echo "\t<td>". $f["vorto"] . "\n";
|
|
|
113 |
echo "\t<td>". $f["frazo"] . "\n";
|
|
|
114 |
echo "\t<td>";
|
|
|
115 |
select_korekto($key);
|
|
|
116 |
echo "\t<td><input type=text name=\"klarigo[$key]\" size=30 " .
|
|
|
117 |
"maxlength=254>";
|
|
|
118 |
$numfrazoj++;
|
|
|
119 |
}
|
|
|
120 |
?>
|
|
|
121 |
</table>
|
|
|
122 |
|
|
|
123 |
<p><strong>Estas <?php echo $numfrazoj;?> nekorektitaj frazoj en datumbazo.
|
|
|
124 |
</strong></p>
|
|
|
125 |
|
|
|
126 |
<h2>Prepari sendon</h2>
|
|
|
127 |
|
|
|
128 |
<p>Alklaku <em>Sendu korektaĵojn</em> por sendi ilin. Vi povas igi ĉiujn frazojn
|
|
|
129 |
al elekto <em>Ne korektita</em> kaj forviŝi ĉiujn klarigojn, alklakante butonon
|
|
|
130 |
<em>Forgesu</em>.</p>
|
|
|
131 |
|
|
|
132 |
<p>Antaŭ enmetu datumojn, bonvolu skribi ian nomon por ke mi sciu kiu korektis
|
|
|
133 |
tion ĉi (t.e. kiun demandi)</p>
|
|
|
134 |
|
|
|
135 |
<p><strong>Korektist(in)o:</strong>
|
|
|
136 |
<input type=text name=korektisto size=10 maxlength=30>
|
|
|
137 |
</p>
|
|
|
138 |
|
|
|
139 |
<input type=submit value="Sendu korektaĵojn" name=korektu>
|
|
|
140 |
<input type=reset value="Forgesu">
|
|
|
141 |
</form>
|
|
|
142 |
|
|
|
143 |
<?php
|
|
|
144 |
} // Fino de normala paĝo
|
|
|
145 |
?>
|
|
|
146 |
|
|
|
147 |
<p>Iru al <a href="index">ĉefa paĝo</a>.</p>
|
|
|
148 |
|
|
|
149 |
</body>
|