#!/usr/bin/perl

require "dudenv.pl";
&profil;

require "dudparse.pl";
&ReadParse;

$sw1=$in{'sw1'};
$sw2=$in{'sw2'};
$bedingung1=$in{'bedingung1'};

require "dudqsub.pl";
&sw_test;


# Neben den eigentlichen Umlauten soll es auch  erlaubt sein, diese
# in TeX-Notation einzugeben:

if ($sw1 =~ /\\/) {
   $sw1=&tex_convert($sw1);
}

if ($sw2 =~ /\\/) {
   $sw2=&tex_convert($sw2);
}

if ($sw1) {
   require "dudrsub.pl";
   $tpq=$in{'tp'};
   $taq=$in{'ta'};

   if ($taq==0) {
      $taq=1999;
   }

   if ($tpq==0) {
      $tpq=900;
   }

   chdir ("$DB_DIR");

   $prozess = $$;
   $ausgabe = "/duderstadt/ergebnis/ergebnis" . "$prozess" . ".htm";
   $ausgabe_lang = "$ENV{'DOCUMENT_ROOT'}" . "$ausgabe";
   if ($OS=~/WIN/i) {
      &dt;
   }
 $zl=1;
 while ($zl==1) {
   $zl=2;
   open (ASK, "|$KL_START");
   if ($sw2) { 
      print ASK ("query name=tektonik;part=/catalogue[rubrentext,start,\"\'$sw1\' $bedingung1 \'$sw2\'\"]\n");
   } else {
      print ASK ("query name=tektonik;part=/catalogue[rubrentext,start,\"$sw1\"]\n");
   }
   print ASK ("write self=no;start=no;
         part=/test[/back[amtsbuch]:laufzeit1=after \"$tpq\" and before \"$taq\"]
            :package[:conversion[:rubrum,text],rubrum] |+
            :package[:text[:summa,number],summa] &+
            :package[/back[folio]:text[:datei],seiten_ref_5] |+ :package[/back[folio]:text[:datei],schliessen5] &+
            :package[/back[amtsbuch]:conversion[:titel,text],amtsbuch] &+
            :package[/back[amtsbuch]:bestellnr,bestellnr_2]\n");
   print ASK ("stop target=\"$ausgabe_lang\";package=ergebnisdatei4;overwrite=yes\n");

   close ASK;

   if (-e $ausgabe_lang) {
       & trefferzahl;   
   } else {
      if ($sw2 && $bedingung1 eq "or") {
         $sw1=$sw2;
         $sw2="";
         $zl=1;
         $sw1=~s/\&//;
      }  else {
          print "Location: /duderstadt/fehler/fehler2t.htm", "\n\n";
      }
   }
  }
} else {
     print "Location: /duderstadt/fehler/fehler1t.htm", "\n\n";
}