\n\n"; echo "

Ursan ohjelmarekisteri

3.3.2000

$\"\"$
\n",$ymp); printf ("%s\n",strtoupper($ymp)); } else { echo "

\n"; echo "Esittely
\n"; echo "Haku"; echo "\n"; } echo "

\n"; ?> \n"; echo "

Ohjelma/tietokantahaku Voit etsiä ohjelmia seuraavilla hakuehdoilla. Ks. tarkempia selityksiä hakuehdoista.
Käyttöympäristö		Ohjelman nimi
Ohjelmaluokka		Haku kuvauksesta
Kieli
\n"; echo "

\n\n"; echo "\n"; echo "\n\n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; do { echo "\n"; printf ("\n", $ohjelma["nro"],$ohjelma["nro"]); if ($ohjelma["nimi"]) {$ohjnimi = $ohjelma["nimi"];} else {$ohjnimi = $ohjelma["tiedosto"];} printf ("\n", $ohjelma["nro"],$ohjnimi); printf ("\n"; printf ("\n",$ohjelma["ymparisto"]); echo "\n\n"; } while ($ohjelma = mysql_fetch_array($result)); if ($lkm > 20) { $haku = $PHP_SELF . "?submit=hae&"; if ($ymp) {$haku .= "ymp=$ymp&";} if ($luokka) {$haku .= "luokka=$luokka&";} if ($kieli) {$haku .= "kieli=$kieli&";} if ($nimi) {$haku .= "nimi=$nimi&";} if ($kuvaus) {$haku .= "kuvaus=$kuvaus&";} echo "

Nro	Nimi	Kuvaus	Ympäristö
\n"; if (!$first) {$first = 0;} $hakuehto = ""; if ($ymp OR $luokka OR $lang OR $nimi OR $kuvaus) {$hakuehto .= "WHERE ";} if ($ymp) {$hakuehto .= "ymparisto = '$ymp' ";}; if ($ymp AND $luokka) {$hakuehto .= "AND ";} if ($luokka) {$hakuehto .= "luokka = '$luokka' ";} if (($ymp OR $luokka) AND $lang) {$hakuehto .= "AND ";} if ($lang) {$hakuehto .= "kielet LIKE '%$lang%' ";} if (($ymp OR $luokka OR $lang) AND $nimi) {$hakuehto .= "AND ";} if ($nimi) {$hakuehto .= "(nimi LIKE '%$nimi%' OR tiedosto LIKE '%$nimi%') ";} if (($ymp OR $luokka OR $lang OR $nimi) AND $kuvaus) {$hakuehto .= "AND ";} if ($kuvaus) {$hakuehto .= "kuvaus LIKE '%$kuvaus%' ";} $sql = "SELECT * , CONCAT(nimi,tiedosto) AS name FROM ohjelma " . $hakuehto . "ORDER BY name LIMIT $first, 20"; $result = mysql_query($sql); $sql = "SELECT COUNT(*) AS lkm FROM ohjelma " . $hakuehto; $result2 = mysql_query($sql); $lkmres = mysql_fetch_array($result2); $lkm = $lkmres["lkm"]; settype($lkmres["lkm"],"integer"); if ($ohjelma = mysql_fetch_array($result)) { printf (" Hakuehdoilla löytyi %d ohjelmaa/tietokantaa:\n",$lkm); echo " \n\n"; echo "
%s	%s	%s",substr($ohjelma["kuvaus"],0,40)); if (strlen($ohjelma["kuvaus"]>40)) {echo "...";} echo "	%s
"; echo " "; if ($first>0) { printf ("Edellinen sivu ", $haku,$first-20); echo " "; } if ($lkm > $first+20) { printf ("Seuraava sivu ", $haku,$first+20); } } } else {echo "Hakuehdoilla ei löytynyt yhtään ohjelmaa/tietokantaa.\n";} } ?>

Esittely
Haku

MSDOS
Win 3.x
Win 9x/NT
Mac
Amiga
Unix

OS/2
HP48
CP/M
Atari
Commodore

Tietokannat

Ursan ohjelmarekisteri

3.3.2000

Ohjelma/tietokantahaku