Projekt

Obecné

Profil

Stáhnout (2.9 KB) Statistiky
| Větev: | Tag: | Revize:
1
<HTML>
2
<HEAD>
3
<META content=text/html;charset=utf-8 http-equiv=Content-Type>
4
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
5
<TITLE>List of OB signs in the scope of OB Graphemic Analyses Project</TITLE>
6
  <LINK REL=StyleSheet HREF="/utf/obtc1.css" TYPE="text/css" MEDIA="screen, print">
7
</HEAD>
8
<body>
9
<H3 align=center>Selected variants <BR>from<BR> the Old Babylonian Graphemic Analyses</H3>
10
<br>
11
<?
12
  @$spojeni = Pg_Connect("user=dbowner dbname=klinopis");
13
  if (! $spojeni)
14
  {
15
    echo ("<br>Nepodarilo se pripojit k datab?zi.<BR>\n");
16
    exit;
17
  }
18
?>
19
<BR>
20
<?  
21
  $borger2 = URLDecode ($borger);
22
  $polozky2="gnazev, lcteni, scteni, bcislo01";
23
  $vysledek2 = Pg_Exec ($spojeni, "SELECT $polozky2 FROM graf01 WHERE (lcteni=' $borger2')");
24
  $pocet = Pg_NumRows ($vysledek2);
25
  if ($pocet == 0)
26
	{
27
//	echo ("Nothing found, try again.");
28
  $vysledek2 = Pg_Exec ($spojeni, "SELECT $polozky2 FROM graf01 WHERE (lcteni like ' $borger2,%' OR lcteni like ' $borger2?,%' OR lcteni like '% $borger2,%' OR lcteni like '% $borger2?,%' OR lcteni like '% $borger2' OR lcteni like '% $borger2?')");
29
	$pocet = Pg_NumRows ($vysledek2);
30
	  for ($i=0; $i < $pocet; $i++)
31
	  {
32
	list ($gnazev, $lcteni, $scteni, $bcislo01) = Pg_Fetch_Array ($vysledek2, $i);
33
  echo "<a href=\"../autor/enter.html\"><small>login to edit - members only</small></a><br>";
34
	echo ("Sign name: &nbsp; <FONT FACE=\"Arial Unicode MS\">$gnazev</FONT><BR>");
35
	echo ("Logographic values: &nbsp; <FONT FACE=\"Arial Unicode MS\">$lcteni</FONT><BR>");
36
	echo ("Syllabic values: &nbsp;<FONT FACE=\"Arial Unicode MS\">$scteni</FONT><BR><BR>");
37

    
38
}
39

    
40
  } else {
41
  echo ("<BR>\n");
42
  for ($i=0; $i < $pocet; $i++)
43
	  {
44
    list ($gnazev, $lcteni, $scteni, $bcislo01) = Pg_Fetch_Array ($vysledek2, $i);
45
    echo ("Sign name: &nbsp; $gnazev<BR>");
46
    echo ("Logographic values: &nbsp; $lcteni<BR>");
47
    echo ("Syllabic values: &nbsp;$scteni<BR>");
48
  	}
49
	}
50

    
51
	$polozky="bcislo, images";
52
  $vysledek = Pg_Exec ($spojeni, "SELECT $polozky FROM images WHERE (bcislo='$bcislo01')");
53
  $pocet2 = Pg_NumRows ($vysledek);
54
  if ($pocet2 == 0)
55
	{
56
	echo ("There are no variants in the present corpus.");
57
  } elseif ($pocet2 == 1) {
58
  echo ("Selected Borger's number: <b>$bcislo01</b>&nbsp; <BR>\n$pocet2 variant(s) found.<br>\n");
59
  echo ("<BR>\n");
60
  for ($i=0; $i < $pocet2; $i++)
61
	  {
62
    list ($bcislo, $images) = Pg_Fetch_Array ($vysledek, $i);
63
    echo ("<img src=\"../png/$images\" WIDTH=40 HEIGHT=40 BORDER=1>");
64
  	}
65
		echo ("<BR><BR>");
66
  } else {
67
  list ($bcislo) = Pg_Fetch_Array ($vysledek, $i);
68
  echo ("Selected Borger's number: <b>$bcislo</b>&nbsp; <BR>\n$pocet2 variant(s) found.<br>\n");
69
  echo ("<BR>\n");
70
  for ($i=0; $i < $pocet2; $i++)
71
	  {
72
    list ($bcislo, $images) = Pg_Fetch_Array ($vysledek, $i);
73
    echo ("<img src=\"../png/$images\" WIDTH=40 HEIGHT=40 BORDER=1>");
74
  	}
75
		echo ("<BR><BR>");
76
	}
77
  Pg_FreeResult ($vysledek2);
78
  Pg_FreeResult ($vysledek);
79
  Pg_Close ($spojeni);
80
?>
81
<br>
82
</FONT>
83
</BODY>
84
</HTML>
(62-62/104)