<!   AV_GREC.PHP : NEU Aufruf aus GREC.PHP, die eigentliche Funktion >

<?php
function av_grec($urN,$urG,$urS,$urA,&$output,$font)
{
 global $Server,$Port,$Startpage,$Dispar,$CM, $UTF;  // in av_ini.php
/*
  AV_GREC.PHP
  Variablen:
          uebergeben per GET oder POST als:
              $urN=Datensatznummer
        ODER  $urG=Reg.Name (z.B. per oder |1 )
           +  $urS=Reg.Eintrag
              $urA=REMOTE_ADDR
*/
// Datenbankfunktionen:
if(empty($urN)) $urN=0;
if(!isset($CM)) $CM="r";  // read-only, kein Schreibmodus
//   jetzt kommt der avanti-Job:
$job = array(
// Inhalt der PHP_Variablen in die entspr. avanti-Variablen kopieren:
// "var '$uwD'",
// "ins #uwD",
"var '$UTF'",
"ins #uTf",
"switch coding",


"var '$urS'",
"if #uTf xcode u",
"ins #u1",
"var '$urN'",
"ins #urN",
"var '$urA'",
"ins #urA",
"var #urN",


//  iV in #urN kopieren
"if not <1 jump number",
"echo off",
"var 34 '$urG ' #u1 34",    // z.B. "PER shakespeare, william"
"find",    // z.B. PER shakesp?
"if l 1 jump nix",
":gefunden",
"var i",
"ins #urN",
"jump got",
":number",
"var '# ' #urN",

"find",
"if l 1 jump nix",
":got",
// "wri '<center><h3>' T '</h3></center>'",
"wri '<font size=+2><b>'",
//  Name der Startseite:          XXXX
/*
"wri n '<a href=\"$Startpage\">'",
"wri '<i>Neue Suche</i></a> / ' n",
*/
//  hier wird ein Link "Bearbeiten" angezeigt, wenn $CM != 'r'

"var #urA",
"jump edit",
// " if ='127.0.0.1' jump edit",
// " if not ='134.169.20' jump nichts",
"var '$CM'",
"if 'r' jump nichts",
":edit",
"wri '<div align=right><a href=\"edrec.php?urN='",
"wri #urN ",
"wri '\"><font face=\"$font\" size=-1><i>Edit / Bearbeiten</i></font>'",
"wri '</a></div>' n",

":nichts",
"wri '</b></font><br>'",
"xport p $Dispar",   // Anzeigeparameter
"wri '<font face=\"$font\">'",
"var 'htm'",
"ins #uhT",
"dow a",       // Unicode Akzente umdrehen!
"wri '<table>'",
"dow",
"wri '</table>'",
"wri '</font>'",
"var ''",
"ins #uhT",

// wenn Schreibmodus = 'r', keinen Loeschbefehl anbieten

"var '$CM'",
"if ='r' jump exit",

//   Wenn noch die Loeschfunktion angeboten werden soll:
"wri '<p><hr><p><form name=\"Del\" action=\"del.php\" method=POST>' n",
"wri '<input type=\"hidden\" name=\"n\" value=\"' i '\">' n",
"wri '<input class=submit type=\"button\" value=\"Löschen\"' n",
"wri ' onClick=\"if(CheckIn()) document.Del.submit();\">' n",
"wri '   <font color=RED>Codewort:</font> ' n",
"wri '<input name=\"uPw\" type=\"password\" size=10 maxlength=15 value=\"\">' n",
"wri '<font face=\"$font\" size=-1>(ohne Codewort keine Löschung)</font>' n",
"wri '</form>' n",

"jump exit",
"end",
":nix",
//   2. Versuch mit _ vor dem Suchwort
"var 34 '$urG _' #u1 34",    // z.B. "PER shakespeare, william"
"find",
"if g 0 jump gefunden",
"wri 'Suchbefehl  $urG $urS  ohne Erfolg'",

":exit"
);              // Ende des Jobs
// Job senden
$k = sendjob($Server, $Port, $job, $output);
// $k = Anzahl Zeilen der Ausgabe
return $k;
}
?>