web/lingvigilo-montri.php
author viric <viriketo@gmail.com>
Mon, 03 Sep 2012 23:35:31 +0200
branchgo
changeset 7 d5750f4e6e8c
parent 0 6371497b4e53
permissions -rw-r--r--
Adding a first attempt at go code
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     1
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     2
<html>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     3
<head>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     4
	<title>Lingvigilo - Frazomontrilo</title>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     5
	<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     6
	<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     7
	<META HTTP-EQUIV="Expires" CONTENT="-1">
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     8
</head>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
     9
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    10
<body>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    11
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    12
<?php
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    13
include('./getdb.inc');
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    14
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    15
?>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    16
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    17
<h1>Montrilo por programo <em>lingvigilo</em></h1>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    18
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    19
<?php
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    20
if (isset($_POST["nova_korekteco"]))
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    21
	$korekteco=$_POST["korekteco"];
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    22
else
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    23
	// Default
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    24
	$korekteco=-2
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    25
?>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    26
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    27
<h2>Agordo</h2>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    28
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    29
<form action="lingvigilo-montri" method="post">
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    30
<p>Montru frazojn
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    31
<select name="korekteco">
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    32
<option value=0 <?php if ($korekteco==0) echo "selected" ?>>Nekorektitajn
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    33
<option value=1 <?php if ($korekteco==1) echo "selected" ?>>Ĝustajn
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    34
<option value=2 <?php if ($korekteco==2) echo "selected" ?>>Malĝustajn
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    35
<option value=3 <?php if ($korekteco==3) echo "selected" ?>>Nekutimajn
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    36
<option value="-2" <?php if ($korekteco==-2) echo "selected" ?>>Malĝustajn kaj
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    37
nekutimajn
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    38
<option value="-1" <?php if ($korekteco==-1) echo "selected" ?>>Ĉiajn
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    39
</select>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    40
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    41
<input type=submit value="Ŝanĝi" name=nova_korekteco>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    42
</p>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    43
</form>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    44
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    45
<h2>Frazoj</h2>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    46
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    47
<?php
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    48
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    49
if($korekteco >= 0)
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    50
	$korektecoj = array($korekteco);
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    51
elseif ($korekteco == -1)
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    52
	$korektecoj = array(0,1,2,3);
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    53
elseif ($korekteco == -2)
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    54
	$korektecoj = array(2,3);
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    55
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    56
?>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    57
<TABLE BORDER=1>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    58
<TR>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    59
        <TH>ID
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    60
        <TH>Vorto
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    61
        <TH>Frazo
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    62
	<TH>Korektist(in)o
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    63
        <TH>Korekto
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    64
        <TH>Ekspliko
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    65
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    66
<?
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    67
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    68
$konekto=konekti();
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    69
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    70
foreach($korektecoj as $k)
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    71
{
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    72
	$frazoj = preni_frazojn($konekto,$k);
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    73
	if ($frazoj != 0)
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    74
		foreach($frazoj as $key => $f)
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    75
		{
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    76
			echo "<tr>\n";
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    77
			echo "\t<td>". $key . "\n";
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    78
			echo "\t<td>". $f["vorto"] . "\n";
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    79
			echo "\t<td>". $f["frazo"] . "\n";
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    80
			echo "\t<td>" . $f["korektisto"] . "\n";
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    81
			echo "\t<td>" . teksto_korekto($f["korekta"]) . "\n";
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    82
			echo "\t<td>" . $f["klarigo"] . "\n";
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    83
		}
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    84
}
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    85
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    86
?>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    87
</table>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    88
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    89
<p>Iru al <a href="index">ĉefa paĝo</a>.</p>
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    90
6371497b4e53 Init from svn. The wxpython is the final one.
viric@llimona
parents:
diff changeset
    91
</body>