/docs/dmscripts/DMSystem.php

Large files files are truncated, but you can click here to view the full file

<?php
$compound_objects = array(
  '/uw/9876' => <<<XML
<cpd>
  <page>
    <pageptr>1609</pageptr>
  </page>
  <page>
    <pageptr>1610</pageptr>
  </page>
</cpd>
XML
);

$items = array(
  '/uw/1609' => <<<XML
<xml>
  <title>Adrian (Mich.)</title>
  <subjec>Adrian High School (Adrian, Mich.); schools</subjec>
  <descri>High School Building in Adrian (Mich.); c. 1920.</descri>
  <creato></creato>
  <date>c. 1920</date>
  <format>Image</format>
  <type>Postcard - Color</type>
  <identi>PH.10458; Town and City Scenes-Adrian-PF.2104</identi>
  <negati>21568</negati>
  <source>Part of the Souvenir Folder of Adrian (Mich.)</source>
  <rights>Use of this image requires the permission of the Archives of Michigan</rights>
  <order>To order please email archives@mi.gov</order>
  <featur></featur>
  <locati></locati>
  <oclc></oclc>
  <answer></answer>
  <ead></ead>
  <fullrs></fullrs>
  <find>1609.jp2</find>
  <dmaccess></dmaccess>
  <dmimage></dmimage>
  <dmcreated>2009-08-28</dmcreated>
  <dmmodified>2009-08-28</dmmodified>
  <dmoclcno></dmoclcno>
  <dmrecord>1607</dmrecord>
</xml>
XML,

  '/uw/1610' => <<<XML
<xml>
  <title>Adrian (Mich.)</title>
  <subjec>Adrian High School (Adrian, Mich.); schools</subjec>
  <descri>High School Building in Adrian (Mich.); c. 1920.</descri>
  <creato></creato>
  <date>c. 1920</date>
  <format>Image</format>
  <type>Postcard - Color</type>
  <identi>PH.10458; Town and City Scenes-Adrian-PF.2104</identi>
  <negati>21568</negati>
  <source>Part of the Souvenir Folder of Adrian (Mich.)</source>
  <rights>Use of this image requires the permission of the Archives of Michigan</rights>
  <order>To order please email archives@mi.gov</order>
  <featur></featur>
  <locati></locati>
  <oclc></oclc>
  <answer></answer>
  <ead></ead>
  <fullrs></fullrs>
  <find>1610.jp2</find>
  <dmaccess></dmaccess>
  <dmimage></dmimage>
  <dmcreated>2009-08-28</dmcreated>
  <dmmodified>2009-08-28</dmmodified>
  <dmoclcno></dmoclcno>
  <dmrecord>1607</dmrecord>
</xml>
XML
);

  $slash = getPath();
  include($slash."dmscripts/DMUser.php");
  define("CATALOG_FILE",$slash."catalog.txt");
  define("DC_FILE",$slash."dc.txt");
  define("IMAGE_FILE",$slash."../conf/imageconf.txt");
  define("PUB_FILE",$slash."../conf/dbpriv.txt");
  define("CONF_DIR",$slash."../conf");
  define("FIND_DIR",$slash."../find");
  define("FINDCONF_FILE",$slash."../conf/findconf.txt");
  define("MAX_FAVORITES",100);
  define("WORDSIZE",32);

  function getPath() {
    $slash = '';
    if ( array_key_exists( "HTTP_HOST", $_SERVER ) ) {
      $num = substr_count($_SERVER["HTTP_HOST"].$_SERVER["PHP_SELF"],'/');
    }
    else {
      $path = str_replace ( '\\', '/', getcwd() );
      unset ($m);
      if ( preg_match( "#.*(/docs/.*)$#is",  $path, $m ) ) {
        $num = substr_count($m[1],'/');
      }
      else {
        die ("Error" . " File: " . __FILE__ . " on line: " . __LINE__);
      }
    }
    for($i=1;$i<$num;$i++) {
      $slash .= '../';
    }
    return $slash;
  }

  /* Read list of collections available on the Server */
  function &dmGetCollectionList() {
    if ((file_exists(PUB_FILE)) && (filesize(PUB_FILE) > 0)) {
      $handle = fopen(PUB_FILE,"r");
      $dbprivlist = fread($handle,filesize(PUB_FILE));
      fclose($handle);
    }
    else
      $dbprivlist = "";

    /* Open the catalog.txt file */
    $catalogFile = fopen(CATALOG_FILE,"r");
    if (!($catalogFile)) {
      print("Error opening catalog file");
      exit;
    }

    $cat = array();
    $n = 0;

    /* Read the collections from the catalog line by line */
    while (!feof($catalogFile)) {
      $s = fgets($catalogFile,512);
      if (substr($s,0,1) == "/") {
        $s = str_replace("\r","",$s);
        $s = str_replace("\n","",$s);
        $alias = strtok($s,"\t");
        $name = strtok("\t");
        $path = strtok("\t");

        $allow = 0;
        $privfile = $path . "/index/etc/priv.txt";
        $fd = fopen($privfile,"r");
        if ($fd) {
          $t = trim(fgets($fd,2048)," \r\n");
          if ($t != "") {
            $rc = CheckUser($t);
            if ($rc > 0) {
              $allow = 1;
            }
          }
          else {
            $allow = 1;
          }
        }
        else {
          $allow = 1;
        }

        if ($allow == 1) {
          $temp = $alias . "\n";
          if ((isset($_COOKIE['DMID'])) || (!strstr($dbprivlist,$temp))) {
            $cat[$n]["alias"] = $alias;
            $cat[$n]["name"] = $name;
            $cat[$n]["path"] = $path;
            $n++;
          }
        }
      }
    }
    fclose($catalogFile);

    return($cat);
  }

  /* Check the user against the permission string */
  /* Returns: 0 = no access, 1 = full access, 2 = metadata only */
  function CheckUser($t) {
    $user = dmGetUser();
    if (isset($_SERVER["REMOTE_ADDR"]))
      $ip = $_SERVER["REMOTE_ADDR"];
    else
      $ip = "";

    $rc = 0;
    $deny = 0;
    $p = trim(strtok($t,";"));
    while ($p != "") {
      if ($p == "deny:file") {
        $deny = 1;
      }
      elseif (substr($p,0,3) == "ip:") {  /* ip address restriction */
        $ipstring = substr($p,3,strlen($p)-3);
        if (CheckIPString($ipstring,$ip)) {
//      $ipstem = explode("*",$ipstring);
//      if ((trim($ipstem[0]) != "") && (strncmp($ip,trim($ipstem[0]),strlen(trim($ipstem[0]))) == 0)) {
          $rc = 1;
          break;
        }
      }
      else {  /* user restriction */
        $luser = strtolower($user);
        $lp = strtolower($p);
        if (strcmp($luser,$lp) == 0) {
          $rc = 1;
          break;
        }
      }
      $p = trim(strtok(";"));
    }
    if (($rc == 0) && ($deny == 1)) {
      $rc = 2;
    }
    return($rc);
  }

  /* Check the IP string */
  function CheckIPString($s,$ip) {
    $rc = 0;
    if (!strstr($s,"*") && !strstr($s,"-")) {
      if (trim($s) == trim($ip))
        $rc = 1;
    }
    else {
      $sbuf = explode(".",$s,4);
      $ipbuf = explode(".",$ip,4);
      $j = count($sbuf);
      if ($j < 4) {
        for ($i = $j; $i < 4; $i++)
          $sbuf[$i] = "";
      }
      $j = count($ipbuf);
      if ($j < 4) {
        for ($i = $j; $i < 4; $i++)
          $ipbuf[$i] = "";
      }

      $j = 0;
      for ($i = 0; $i < 4; $i++) {
        if (($sbuf[$i] == "*") || ($sbuf[$i] == ""))
          $j++;
        elseif (strstr($sbuf[$i],"-")) {
          $range = explode("-",$sbuf[$i],2);
          if (count($range) < 2)
            break;
          if (($ipbuf[$i] >= $range[0]) && ($ipbuf[$i] <= $range[1]))
            $j++;          
        }
        else {
          if ($sbuf[$i] == $ipbuf[$i])
            $j++;
          else
            break;
        }
      }
      if ($j == 4)
        $rc = 1;
    }
    return($rc);
  }

  /* Read the collection parameters for a given collection */
  /* Returns:  -2 = error, -1 = no permission, 1 = full access, 2 = metadata only */
  function dmGetCollectionParameters($alias,&$name,&$path) {
    /* Open the catalog.txt file */
    $catalogFile = fopen(CATALOG_FILE,"r");
    if (!($catalogFile)) {
      print("Error opening catalog file<br>\n");
      exit;
    }

    $rc = -2;

    /* Read the collections from the catalog line by line */
    while (!feof($catalogFile)) {
      $s = fgets($catalogFile,512);
      if (substr($s,0,1) == "/") {
        $s = str_replace("\r","",$s);
        $s = str_replace("\n","",$s);
        $temp = strtok($s,"\t");
        if ($temp == $alias) {
          $name = strtok("\t");
          $path = strtok("\t");
          $rc = 0;
          break;
        }
      }
    }
    fclose($catalogFile);
    if ($rc == 0) {
      $allow = 0;
      $privfile = $path . "/index/etc/priv.txt";

      if (file_exists($privfile)) {
        $fd = fopen($privfile,"r");
        if ($fd) {
          $t = trim(fgets($fd,2048)," \r\n");
          fclose($fd);

          if ($t != "") {
            $rc = CheckUser($t);
            if ($rc > 0) {
              $allow = 1;
            }
          }
          else {
            $allow = 1;
          }
        }
        else {
          $allow = 1;
        }
        if ($allow == 0) {
          $rc = -1;
        }
      }
      else {
        $rc = -2;
      }
    }
    return($rc);
  }

  /* Read the collection field properties */
  function &dmGetCollectionFieldInfo($alias) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      print("Error looking up collection $alias<br>\n");
      if ($rc == -1) {
        print("No permission to access this collection<br>\n");
      }
      exit;
    }

    $conf = array();
    $n = 0;

    $fn = $path . "/index/etc/config.txt";

    $configFile = fopen($fn,"r");
    if (!($configFile)) {
      print("Error opening configuration file $fn<br>\n");
      exit;
    }

    while (!feof($configFile)) {
      $s = fgets($configFile,512);
      $s = str_replace("\r","",$s);
      $s = str_replace("\n","",$s);

      if (strlen($s) > 0) {
        $t = substr($s,0,1);

        if (($t != "*") && ($t != ">") && ($t != " ")) {
          $conf[$n]["name"] = strtok($s,":");
          $conf[$n]["nick"] = strtok(":");
          $conf[$n]["type"] = strtok(":");
          $temp = strtok(":");
          if ($temp == "BIG") {
            $conf[$n]["size"] = 1;
          }
          else {
            $conf[$n]["size"] = 0;
          }
          $temp = strtok(":");
          $conf[$n]["find"] = $temp;

          $temp = strtok(":");
          if (($temp == "REQ") || ($conf[$n]["nick"] == "title")) {
            $conf[$n]["req"] = 1;
          }
          else {
            $conf[$n]["req"] = 0;
          }
          $temp = strtok(":");
          if ($temp == "SEARCH") {
            $conf[$n]["search"] = 1;
          }
          else {
            $conf[$n]["search"] = 0;
          }
          $temp = strtok(":");
          if ($temp == "HIDE") {
            $conf[$n]["hide"] = 1;
          }
          else {
            $conf[$n]["hide"] = 0;
          }
          $conf[$n]["vocdb"] = "";
          $temp = strtok(":");
          if (substr($temp,0,5) == "VOCAB") {
            $conf[$n]["vocab"] = 1;
            if ((strlen($temp) > 5) && (substr($temp,5,1) == "-")) {
              $tsdb = trim(substr($temp,6));
              $conf[$n]["vocdb"] = $tsdb;
            }
          }
          else {
            $conf[$n]["vocab"] = 0;
          }
          $conf[$n]["dc"] = strtok(":");
          $conf[$n]["admin"] = 0;
          $conf[$n]["readonly"] = 0;
          $n++;
        }
      }
    }

    fclose($configFile);

    $fn = $path . "/index/etc/configadmin.txt";
    if (file_exists($fn)) {
      $configFile = fopen($fn,"r");
      if (!($configFile)) {
        print("Error opening configuration file $fn<br>\n");
        exit;
      }

      while (!feof($configFile)) {
        $s = fgets($configFile,512);
        $s = str_replace("\r","",$s);
        $s = str_replace("\n","",$s);

        if (strlen($s) > 0) {
          $t = substr($s,0,1);
  
          if (($t != "*") && ($t != ">") && ($t != " ")) {
            $conf[$n]["name"] = strtok($s,":");
            $conf[$n]["nick"] = strtok(":");

            $conf[$n]["type"] = strtok(":");
            if ($conf[$n]["nick"] == "fullrs")
              $conf[$n]["type"] = "FULLRES";

            $temp = strtok(":");
            if ($temp == "BIG") {
              $conf[$n]["size"] = 1;
            }
            else {
              $conf[$n]["size"] = 0;
            }
            $temp = strtok(":");
            $conf[$n]["find"] = $temp;

            $temp = strtok(":");
            $conf[$n]["req"] = 1;
            $temp = strtok(":");
            if ($temp == "SEARCH") {
              $conf[$n]["search"] = 1;
            }
            else {
              $conf[$n]["search"] = 0;
            }
            $temp = strtok(":");
            if ($temp == "HIDE") {
              $conf[$n]["hide"] = 1;
            }
            else {
              $conf[$n]["hide"] = 0;
            }
            $temp = strtok(":");
            if ($temp == "VOCAB") {
              $conf[$n]["vocab"] = 1;
            }
            else {
              $conf[$n]["vocab"] = 0;
            }
            $conf[$n]["vocdb"] = "";
            $conf[$n]["dc"] = strtok(":");
            $conf[$n]["admin"] = 1;
            if (($conf[$n]["nick"] == "dmoclcno") || ($conf[$n]["nick"] == "fullrs")) {
              $conf[$n]["readonly"] = 0;
              $conf[$n]["req"] = 0;
            }
            else
              $conf[$n]["readonly"] = 1;

            $n++;
          }
        }
      }
      fclose($configFile);
    }
    else {
      $conf[$n]["name"] = "Full resolution";
      $conf[$n]["nick"] = "fullrs";
      $conf[$n]["type"] = "FULLRES";
      $conf[$n]["size"] = 0;
      $conf[$n]["find"] = "";
      $conf[$n]["req"] = 0;
      $conf[$n]["search"] = 0;
      $conf[$n]["hide"] = 1;
      $conf[$n]["vocab"] = 0;
      $conf[$n]["vocdb"] = "";
      $conf[$n]["dc"] = "";
      $conf[$n]["admin"] = 1;
      $conf[$n]["readonly"] = 0;
      $n++;
      $conf[$n]["name"] = "OCLC number";
      $conf[$n]["nick"] = "dmoclcno";
      $conf[$n]["type"] = "TEXT";
      $conf[$n]["size"] = 0;
      $conf[$n]["find"] = "";
      $conf[$n]["req"] = 0;
      $conf[$n]["search"] = 0;
      $conf[$n]["hide"] = 1;
      $conf[$n]["vocab"] = 0;
      $conf[$n]["vocdb"] = "";
      $conf[$n]["dc"] = "";
      $conf[$n]["admin"] = 1;
      $conf[$n]["readonly"] = 0;
      $n++;
      $conf[$n]["name"] = "Date created";
      $conf[$n]["nick"] = "dmcreated";
      $conf[$n]["type"] = "DATE";
      $conf[$n]["size"] = 0;
      $conf[$n]["find"] = "";
      $conf[$n]["req"] = 1;
      $conf[$n]["search"] = 0;
      $conf[$n]["hide"] = 1;
      $conf[$n]["vocab"] = 0;
      $conf[$n]["vocdb"] = "";
      $conf[$n]["dc"] = "";
      $conf[$n]["admin"] = 1;
      $conf[$n]["readonly"] = 1;
      $n++;
      $conf[$n]["name"] = "Date modified";
      $conf[$n]["nick"] = "dmmodified";
      $conf[$n]["type"] = "DATE";
      $conf[$n]["size"] = 0;
      $conf[$n]["find"] = "";
      $conf[$n]["req"] = 1;
      $conf[$n]["search"] = 0;
      $conf[$n]["hide"] = 1;
      $conf[$n]["vocab"] = 0;
      $conf[$n]["vocdb"] = "";
      $conf[$n]["dc"] = "";
      $conf[$n]["admin"] = 1;
      $conf[$n]["readonly"] = 1;
      $n++;
      $conf[$n]["name"] = "CONTENTdm number";
      $conf[$n]["nick"] = "dmrecord";
      $conf[$n]["type"] = "TEXT";
      $conf[$n]["size"] = 0;
      $conf[$n]["find"] = "";
      $conf[$n]["req"] = 1;
      $conf[$n]["search"] = 0;
      $conf[$n]["hide"] = 1;
      $conf[$n]["vocab"] = 0;
      $conf[$n]["vocdb"] = "";
      $conf[$n]["dc"] = "";
      $conf[$n]["admin"] = 1;
      $conf[$n]["readonly"] = 1;
      $n++;
      $conf[$n]["name"] = "CONTENTdm file name";
      $conf[$n]["nick"] = "find";
      $conf[$n]["type"] = "TEXT";
      $conf[$n]["size"] = 0;
      $conf[$n]["find"] = "";
      $conf[$n]["req"] = 1;
      $conf[$n]["search"] = 0;
      $conf[$n]["hide"] = 1;
      $conf[$n]["vocab"] = 0;
      $conf[$n]["vocdb"] = "";
      $conf[$n]["dc"] = "";
      $conf[$n]["admin"] = 1;
      $conf[$n]["readonly"] = 1;
      $n++;
    }
    return($conf);
  }

  /* Read the Dublin Core field properties */
  function &dmGetDublinCoreFieldInfo($lang="") {
    $conf = array();
    $n = 0;

    if ($lang == "")
      $dcfile = DC_FILE;
    else {
      $slash = getPath();
      $dcfile = $slash . "dc_" . $lang . ".txt";
    }
    $configFile = fopen($dcfile,"r");
    if (!($configFile)) {
      print("Error opening Dublin Core configuration file<br>\n");
      exit;
    }

    while (!feof($configFile)) {
      $s = fgets($configFile,512);

      if (strlen($s) > 0) {
        $t = substr($s,0,1);

        if (($t != "*") && ($t != ">") && ($t != " ")) {
          $conf[$n]["name"] = strtok($s,":");
          $conf[$n]["nick"] = strtok(":");
          $conf[$n]["type"] = strtok(":");
          $n++;
        }
      }
    }

    fclose($configFile);
    return($conf);
  }

  /* Read the collection full resolution settings for a given collection */
  function dmGetCollectionArchivalInfo($alias,&$enabled,&$public,&$volprefix,&$volsize,&$oclcsym) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      print("Error looking up collection $alias<br>\n");
      if ($rc == -1) {
        print("No permission to access this collection<br>\n");
      }
      exit;
    }

    $fn = $path . "/index/etc/fullconf.txt";
    if (file_exists($fn)) {
      $configFile = fopen($fn,"r");
      if (!($configFile)) {
        $enabled = 0;
      }
      else {
        $s = fgets($configFile,1024);
        $s = str_replace("\r","",$s);
        $s = str_replace("\n","",$s);
        $temp = strtok($s,":");
        if ($temp == "YES") {
          $enabled = 1;
          $temp = strtok(":");
/*
          if ($temp == "PRIVATE") {
            $public = 0;
          }
          else {
            $public = 1;
          }
*/
          $volprefix = strtok(":");
          $volsize = strtok(":");
          $oclcsym = strtok(":");
          if ($oclcsym == "160x120")
            $oclcsym = "";
        }
        else {
          $enabled = 0;
        }
        fclose($configFile);
      }
    }
    else {
      $enabled = 0;
    }

    $conf = &dmGetCollectionFieldInfo($alias);
    $private = 1;
    for ($i = 0; $i < count($conf); $i++) {
      if ($conf[$i]["nick"] == "fullrs")
        $private = $conf[$i]["hide"];
    }
    if ($private == 1)
      $public = 0;
    else
      $public = 1;
  }

  /* Read the collection display image settings for a given collection */
  function dmGetCollectionDisplayImageSettings($alias,&$enabled,&$format,&$lossy,&$comptype,&$ratio,&$quality,&$tile,&$levels,&$layers,&$jpgdim,&$jpgquality) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      print("Error looking up collection $alias<br>\n");
      if ($rc == -1) {
        print("No permission to access this collection<br>\n");
      }
      exit;
    }

    $fn = $path . "/index/etc/fileconf.txt";
    if (file_exists($fn)) {
      $configFile = fopen($fn,"r");
      if (!($configFile)) {
        $enabled = 0;
      }
      else {
        $s = fgets($configFile,1024);
        $s = str_replace("\r","",$s);
        $s = str_replace("\n","",$s);
        $temp = strtok($s,":");
        if ($temp == "YES") {
          $enabled = 1;
          $temp = strtok(":");  /* format */
          if ($temp == "JPEG2000") {
            $format = "jp2";
            $temp = strtok(":");  /* lossy */
            if ($temp == "LOSSY") {
              $lossy = 1;
              $temp = strtok(":");
              if ($temp == "RATIO") {
                $comptype = "ratio";
                $ratio = strtok(":");
                $temp = strtok(":");
                $quality = "";
              }
              else {
                $comptype = "quality";
                $temp = strtok(":");
                $ratio = "";
                $temp = strtok(":");
                if ($temp == "MIN")
                  $quality = "Minimum";
                elseif ($temp == "LOW")
                  $quality = "Low";
                elseif ($temp == "MED")
                  $quality = "Medium";
                elseif ($temp == "HIGH")
                  $quality = "High";
                else
                  $quality = "Maximum";
              }
            }
            else {
              $lossy = 0;
              $temp = strtok(":");
              $comptype = "";
              $temp = strtok(":");
              $ratio = "";
              $temp = strtok(":");
              $quality = "";
            }
            $tile = strtok(":");
            $levels = strtok(":");
            if ($levels == "AUTO")
              $levels = 0;
            $layers = strtok(":");
            $jpgdim = "";
            $jpgquality = "";
          }
          else {   /* JPEG */
            $format = "jpg";
            $jpgdim = strtok(":");
            $jpgquality = strtok(":");
            $lossy = "";
            $comptype = "";
            $ratio = "";
            $quality = "";
            $tile = "";
            $levels = "";
            $layers = "";
          }
        }
        else {
          $enabled = 0;
        }
        fclose($configFile);
      }
    }
    else {
      $enabled = 0;
    }
  }

  /* Read the collection full resolution settings for a given collection */
  function dmGetCollectionPDFInfo($alias,&$enabled,&$type,&$pagetext,&$start) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      print("Error looking up collection $alias<br>\n");
      if ($rc == -1) {
        print("No permission to access this collection<br>\n");
      }
      exit;
    }

    $fn = $path . "/index/etc/pdfconf.txt";
    if (file_exists($fn)) {
      $configFile = fopen($fn,"r");
      if (!($configFile)) {
        $enabled = 0;
      }
      else {
        $s = fgets($configFile,1024);
        $s = str_replace("\r","",$s);
        $s = str_replace("\n","",$s);

        if ($s == "YES") {
          $enabled = 1;
          $type = "page";
          $pagetext = "Page";
          $start = 1;
        }
        elseif ($s == "NO") {
          $enabled = 0;
        }
        else {
          $temp = strtok($s,":");
          if ($temp == "YES") {
            $enabled = 1;
            $temp = strtok(":");
            if ($temp == "FILE") {
              $type = "file";
            }
            else {
              $type = "page";
            }
            $pagetext = strtok(":");
            if ($type == "file")
              $pagetext = "";
            $start1 = strtok(":");
            $start2 = strtok(":");
            if ($type == "page")
              $start = $start1;
            else
              $start = $start2;
          }
          else {
            $enabled = 0;
          }
        }
        fclose($configFile);
      }
    }
    else {
      $enabled = 0;
    }
  }

  /* Read the collection full resolution settings for a given collection */
  function dmGetCollectionFullResInfo($alias,&$enabled,&$public,&$volprefix,&$volsize,&$displaysize,&$archivesize) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      print("Error looking up collection $alias<br>\n");
      if ($rc == -1) {
        print("No permission to access this collection<br>\n");
      }
      exit;
    }

    $fn = $path . "/index/etc/fullconf.txt";
    if (file_exists($fn)) {
      $configFile = fopen($fn,"r");
      if (!($configFile)) {
        $enabled = 0;
      }
      else {
        /* Read the collections from the catalog line by line */
        $s = fgets($configFile,512);
        $s = str_replace("\r","",$s);
        $s = str_replace("\n","",$s);
        $temp = strtok($s,":");
        if ($temp == "YES") {
          $enabled = 1;
          $temp = strtok(":");
/*
          if ($temp == "PRIVATE") {
            $public = 0;
          }
          else {
            $public = 1;
          }
*/
          $volprefix = strtok(":");
          $volsize = strtok(":");
          $temp = strtok(":");
          $displaysize = strtok(":");
          $archivesize = strtok(":");
        }
        else {
          $enabled = 0;
        }
        fclose($configFile);
      }
    }
    else {
      $enabled = 0;
    }

    $conf = &dmGetCollectionFieldInfo($alias);
    $private = 1;
    for ($i = 0; $i < count($conf); $i++) {
      if ($conf[$i]["nick"] == "fullrs")
        $private = $conf[$i]["hide"];
    }
    if ($private == 1)
      $public = 0;
    else
      $public = 1;
  }

  /* Read the collection parameters for a given collection */
  function dmGetCollectionFullResVolumeInfo($alias,$volname,&$location) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      print("Error looking up collection $alias<br>\n");
      if ($rc == -1) {
        print("No permission to access this collection<br>\n");
      }
      exit;
    }
    $fn = $path . "/index/etc/fullvol.txt";

    $volFile = fopen($fn,"r");
    if (!($volFile)) {
      $location = "";
    }
    else {
      $location = "";
      /* Read the volume info from the file line by line */
      while (!feof($volFile)) {
        $s = fgets($volFile,512);
        $temp = strtok($s,"\t");
        if ($temp == $volname) {
          $temp = strtok("\t");    /* skip volsize */
          $location = strtok("\t");
          $location = str_replace("\r","",$location);
          $location = str_replace("\n","",$location);
          break;
        }
      }
      fclose($volFile);
    }
  }

  /* Read the field vocabulary */
  function &dmGetCollectionFieldVocabulary($alias,$nick,$forcedict,$forcefullvoc) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      print("Error looking up collection $alias<br>\n");
      if ($rc == -1) {
        print("No permission to access this collection<br>\n");
      }
      exit;
    }

    if ($forcedict) {
      $vocabsetting = 0;
    }
    else {
      $conf = &dmGetCollectionFieldInfo($alias);
      $vocabsetting = 0;
      for ($i = 0; $i < count($conf); $i++) {
        if ($conf[$i]["nick"] == $nick) {
          $vocabsetting = $conf[$i]["vocab"];
          break;
        }
      }
    }

    $voc = array();
    $n = 0;

    if ($vocabsetting == 1) {   /* return the controlled vocabulary */
      if ($forcefullvoc) {
        $mapfn = $path . "/index/vocab/" . $nick . ".map";
        if (file_exists($mapfn)) {
          $mapFile = fopen($mapfn,"r");
          if (!($mapFile)) {
            $fn = $path . "/index/vocab/" . $nick . ".txt";
          }
          else {
            $s = fgets($mapFile,10);
            fclose($mapFile);
            $id = trim($s);
            $fn = CONF_DIR . "/vocab/" . $id . ".txt";
          }
        }
        else
          $fn = $path . "/index/vocab/" . $nick . ".txt";
      }
      else {
        $fn = $path . "/index/text_search/voc." . $nick;
      }
      $vocFile = fopen($fn,"r");
      if ($vocFile) {
        while (!feof($vocFile)) {
          $s = fgets($vocFile,512);
          $s = str_replace("\r","",$s);
          $s = str_replace("\n","",$s);
          $base = explode("\t",$s);
          $s = trim($base[0]);
          if (strlen($s) > 0) {
            $voc[$n] = $s;
            $n++;
          }
        }
        fclose($vocFile);
      }
    }
    else {   /* return the field dictionary */
      $fn = $path . "/index/text_search/words." . $nick;
      if (file_exists($fn)) {
        $wordFile = fopen($fn,"r");
        if ($wordFile) {
          while (!feof($wordFile)) {
            $s = fgets($wordFile,512);
            $s = str_replace("\r","",$s);
            $s = str_replace("\n","",$s);
            $base = explode("\t",$s);
            $s = trim($base[0]);
            if (strlen($s) > 0) {
              $voc[$n] = $s;
              $n++;
            }
          }
        }
      }
      else {
        $fn = $path . "/index/text_search/word." . $nick;
        $t = "";
        if (file_exists($fn)) {
          $wordFile = fopen($fn,"r");
          if ($wordFile) {
            while (!feof($wordFile)) {
              $s = fgetc($wordFile);
              if ($s == " ") {
                $voc[$n] = $t;
                $n++;
                for ($i = 0; $i < 4; $i++) {
                  $s = fgetc($wordFile);
                }
                $t = "";
              }
              else {
                $t = $t . $s;
              }
            }
            fclose($wordFile);
          }
        }
      }
    }
    return($voc);
  }

  /* Read the image settings */
  function dmGetCollectionImageSettings($alias,&$enabled,&$minjpegdim,&$zoomlevels,&$maxderivedimg,&$viewer,&$docviewer,&$compareviewer,&$slideshowviewer) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      print("Error looking up collection $alias<br>\n");
      if ($rc == -1) {
        print("No permission to access this collection<br>\n");
      }
      exit;
    }

    $fn = $path . "/index/etc/imageconf.txt";
    if (file_exists($fn)) {   /* try local collection file first */
      $configFile = fopen($fn,"r");
    }
    else {    /* open global file */
      $configFile = fopen(IMAGE_FILE,"r");
    }
    if (!($configFile)) {
      $enabled = 0;
    }
    else {
      $enabled = 0;
      $maxderivedimg = array();
      $viewer = array();
      $docviewer = array();
      $compareviewer = array();
      $slideshowviewer = array();
      $zoomlevels = array();

      $viewer["thumbnail"] = 0;
      $docviewer["thumbnail"] = 0;
      $compareviewer["thumbnail"] = 0;
      $slideshowviewer["thumbnail"] = 0;

      while (!feof($configFile)) {
        $s = fgets($configFile,512);
        $s = str_replace("\r","",$s);
        $s = str_replace("\n","",$s);

        if (strlen($s) > 0) {
          if (substr($s,0,1) != "#") {
            if (substr($s,0,17) == "EnableImageViewer") {
              $temp = TrimValue($s,18);
              if (strcasecmp($temp,"Yes") == 0) {
                $enabled = 1;
              }
            }
            elseif (substr($s,0,16) == "MinJPEGDimension") {
              $minjpegdim = TrimValue($s,17);
            }
            elseif (substr($s,0,20) == "MaxDerivedImageWidth") {
              $maxderivedimg["width"] = TrimValue($s,21);
            }
            elseif (substr($s,0,21) == "MaxDerivedImageHeight") {
              $maxderivedimg["height"] = TrimValue($s,22);
            }
            elseif (substr($s,0,10) == "ZoomLevels") {
              $temp = TrimValue($s,11);
              $temp = $temp . " ";
              $len = strlen($temp);
              $start = 0;
              $n = 0;
              while ($start < $len) {   /* parse out the zoom levels */
                $p = strpos($temp," ",$start);
                if ($p > 0) {
                  $val = substr($temp,$start,$p-$start);
                  if (strlen($val) > 0) {
                    $zoomlevels[$n] = $val;
                    $n++;
                  }
                }
                else {
                  break;
                }
                $start = $p + 1;
              }
            }
            elseif (substr($s,0,11) == "ViewerWidth") {
              $viewer["width"] = TrimValue($s,12);
            }
            elseif (substr($s,0,12) == "ViewerHeight") {
              $viewer["height"] = TrimValue($s,13);
            }
            elseif (substr($s,0,18) == "ViewerDefaultScale") {
              $viewer["scale"] = TrimValue($s,19);
            }
            elseif (substr($s,0,22) == "ViewerDefaultThumbnail") {
              $temp = TrimValue($s,23);
              if (($temp == "On") || ($temp == "ON"))
                $viewer["thumbnail"] = 1;
            }
            elseif (substr($s,0,14) == "DocViewerWidth") {
              $docviewer["width"] = TrimValue($s,15);
            }
            elseif (substr($s,0,15) == "DocViewerHeight") {
              $docviewer["height"] = TrimValue($s,16);
            }
            elseif (substr($s,0,21) == "DocViewerDefaultScale") {
              $docviewer["scale"] = TrimValue($s,22);
            }
            elseif (substr($s,0,25) == "DocViewerDefaultThumbnail") {
              $temp = TrimValue($s,26);
              if (($temp == "On") || ($temp == "ON"))
                $docviewer["thumbnail"] = 1;
            }
            elseif (substr($s,0,20) == "DocViewerNoMenuWidth") {
              $docviewer["nomenuwidth"] = TrimValue($s,21);
            }
            elseif (substr($s,0,21) == "DocViewerNoMenuHeight") {
              $docviewer["nomenuheight"] = TrimValue($s,22);
            }
            elseif (substr($s,0,27) == "DocViewerNoMenuDefaultScale") {
              $docviewer["nomenuscale"] = TrimValue($s,28);
            }
            elseif (substr($s,0,18) == "CompareViewerWidth") {
              $compareviewer["width"] = TrimValue($s,19);
            }
            elseif (substr($s,0,19) == "CompareViewerHeight") {
              $compareviewer["height"] = TrimValue($s,20);
            }
            elseif (substr($s,0,25) == "CompareViewerDefaultScale") {
              $compareviewer["scale"] = TrimValue($s,26);
            }
            elseif (substr($s,0,29) == "CompareViewerDefaultThumbnail") {
              $temp = TrimValue($s,30);
              if (($temp == "On") || ($temp == "ON"))
                $compareviewer["thumbnail"] = 1;
            }
            elseif (substr($s,0,20) == "SlideshowViewerWidth") {
              $slideshowviewer["width"] = TrimValue($s,21);
            }
            elseif (substr($s,0,21) == "SlideshowViewerHeight") {
              $slideshowviewer["height"] = TrimValue($s,22);
            }
            elseif (substr($s,0,27) == "SlideshowViewerDefaultScale") {
              $slideshowviewer["scale"] = TrimValue($s,28);
            }
            elseif (substr($s,0,31) == "SlideshowViewerDefaultThumbnail") {
              $temp = TrimValue($s,32);
              if (($temp == "On") || ($temp == "ON"))
                $slideshowviewer["thumbnail"] = 1;
            }
          }
        }
      }
      if (!array_key_exists("nomenuwidth",$docviewer))
        $docviewer['nomenuwidth'] = $docviewer['width'];
      if (!array_key_exists("nomenuheight",$docviewer))
        $docviewer['nomenuheight'] = $docviewer['height'];
      if (!array_key_exists("nomenuscale",$docviewer))
        $docviewer['nomenuscale'] = $docviewer['scale'];

      fclose($configFile);
    }
  }

  /* Strip off leading and trailing whitespace and trailing comment */
  function TrimValue($s,$i) {
    $temp = trim(substr($s,$i));
    $p = strpos($temp,";");
    if ($p > 0) {
      $temp = trim(substr($temp,0,$p-1));
    }
    return($temp);
  }

  /* Read the item metadata */
  /* Returns: -1 = no permission, 1 = full access, 2 = metadata only */
  function dmGetItemInfo($alias,$ptr,&$xmlbuffer) {
    global $items;
    $xmlbuffer = $items["$alias/$ptr"];
    return($rc);
  }

  /* Read the metadata file */
  /* Returns: -1 = no permission, 1 = full access, 2 = metadata only */
  function ReadItemDesc($path,$ptr,&$xmlbuffer) {
    if (!extension_loaded('dmopr')) {
      if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN')) {
        dl('php_dmoprmod.dll');
      }
      else {
        dl('dmopr.so');
      }
    }
    $oprarg = "getdesc " . $path . "|" . $ptr;
    $buf2 = dmopr($oprarg);
    $xmlbuffer = $buf2;

    $itemperm = GetXMLField("dmaccess",$xmlbuffer);
    if ($itemperm != "") {
      $rc = CheckUser($itemperm);
      if ($rc == 0) {
        $xmlbuffer = "";
      }
    }
    else {
      $rc = 1;
    }
    if ($xmlbuffer == "") {
      return(-1);
    }
    else {
      return($rc);
    }
  }

  /* Read the compound object structure information */
  function dmGetCompoundObjectInfo($alias,$ptr,&$xmlbuffer) {
    global $compound_objects;
    $xmlbuffer = $compound_objects["$alias/$ptr"];
    return(0);
  }

  /* Read the image size */
  function dmGetImageInfo($alias,$ptr,&$filename,&$type,&$width,&$height) {
    $rc = dmGetCollectionParameters($alias,$name,$path);
    if ($rc < 0) {
      return(-1);  /* no collection permission */
    }

    $rc = ReadItemDesc($path,$ptr,$data);
    if ($rc == -1) {
      return(-1);
    }

/*  FIX to decode ampersands in filenames */
    $findval = str_replace("&amp;","&",GetXMLField("find",$data));
    $filename = trim($path . "/image/" . $findval);
    $ext = GetFileExt($filename);
    
    if (($ext == "jpg") || ($ext == "gif") || ($ext == "png")  || ($ext == "jp2") || ($ext == "tif") || ($ext == "tiff")) {
      $type = $ext;
      $size = GetImageDimensions($filename);
      $width = $size["width"];
      $height = $size["height"];
    }
    elseif ($ext == "url") {
      $type = "";
      $width = 0;
      $height = 0;

      if (file_exists($filename)) {
        $urlFile = fopen($filename,"r");
        $n = filesize($filename);
        $urlbuffer = fread($urlFile,$n);
        fclose($urlFile);
        if (strstr($urlbuffer,"about:blank"))
          $type = "null";
      }
    }
    else {
      $type = "";
      $width = 0;
      $height = 0;
    }
  }

  /* Read My Favorites saved items out of the cookie */
  function &dmGetFavorites($field) {
    $record = array();
    $pathmap = array();
    $n = 0;

    if (isset($_COOKIE['BUF'])) {
      $temp = $_COOKIE['BUF'];

      $catlist = &dmGetCollectionList();
      for ($i = 0; $i < count($catlist); $i++) {
        $pathmap[$catlist[$i]["alias"]] = $catlist[$i]["path"];
      }

      /* Parse the cookie data */
      $len = strlen($temp);
      $start = 0;
      $n = 0;
      while ($start < $len) {   /* parse out the zoom levels */
        $p = strpos($temp,">",$start);
        if ($p > 0) {
          $val = substr($temp,$start,$p-$start);
          $l = strlen($val);
          if ($l > 4) {
            $q = strpos($val,"<",0);
            if ($q > 0) {
              $ptr = substr($val,$q+1,$l-$q);
              $alias = substr($val,0,$q);

              if (array_key_exists($alias,$pathmap)) {
                $rc = dmGetItemInfo($alias,$ptr,$data);
                if ($rc >= 0) {
                  $record[$n]["collection"] = $alias;
                  $record[$n]["pointer"] = $ptr;

                  if(!($parser = xml_parser_create()))
                  {
                    print("Error creating XML parser<br>");
                    exit();
                  }
                  xml_parse_into_struct($parser, $data, $structure, $index);
                  xml_parser_free($parser);

                  /* Read the filetype */
                  if (array_key_exists("value",$structure[$index["FIND"][0]]))
                    $record[$n]["filetype"] = GetFileExt($structure[$index["FIND"][0]]["value"]);
                  else
                    $record[$n]["filetype"] = "";

                  $record[$n]["parentobject"] = GetParent($record[$n]["collection"],$record[$n]["pointer"],$pathmap[$record[$n]["collection"]]);

                  /* Read any metadata fields to pass back */
                  for ($j = 0; $j < count($field); $j++) {
                    $tag = strtoupper($field[$j]);
                    if (array_key_exists($tag,$index)) {
                      if (array_key_exists("value",$structure[$index[$tag][0]]))
                        $record[$n][$field[$j]] = $structure[$index[$tag][0]]["value"];
                      else
                        $record[$n][$field[$j]] = "";
                    }
                    else {
                      $record[$n][$field[$j]] = "";
                    }
                  }
                  $n++;
                }
              }
            }
          }
        }
        else {
          break;
        }
        $start = $p + 1;
      }
    }
    return($record);
  }

  /* Parse the favorites out of the cookie string */
  function ParseFavorites($str,&$record) {
    /* Parse the cookie data */
    $len = strlen($str);
    $start = 0;
    $n = 0;
    while ($start < $len) {   /* parse out the records */
      $p = strpos($str,">",$start);
      if ($p > 0) {
        $val = substr($str,$start,$p-$start);
        $l = strlen($val);
        if ($l > 4) {
          $q = strpos($val,"<",0);
          if ($q > 0) {
            $ptr = substr($val,$q+1,$l-$q);
            $alias = substr($val,0,$q);
            $record[$n]["collection"] = $alias;
            $record[$n]["pointer"] = $ptr;
            if ($n < MAX_FAVORITES) {
              $n++;
            }
          }
        }
      }
      else {
        break;
      }
      $start = $p + 1;
    }
  }


  /* Add item(s) to My Favorites */
  function dmAddFavorite($record) {
    if (isset($_COOKIE['BUF'])) {
      $s = $_COOKIE['BUF'];
    }
    else {
      $s = "";
    }

    $n = 0;
    for ($i = 0; $i < strlen($s); $i++) {
      if ($s{$i} == '>') {
        $n++;
      }
    }
    for ($i = 0; $i < count($record); $i++) {
      $t = $record[$i]["collection"] . "<" . $record[$i]["pointer"] . ">";
      if (strstr($s,$t) == "") {
        if ($n < MAX_FAVORITES) {
          $s = $s . $t;
        }
      }
    }
    /* Set the cookie */

    header("Set-Cookie: BUF=$s; path=/; expires=Saturday, 19-Nov-2011 12:00:00 GMT");
  }

  /* Delete item(s) from My Favorites */
  function dmDeleteFavorite($record) {
    if (isset($_COOKIE['BUF'])) {
      $s = $_COOKIE['BUF'];
    }
    else {
      $s = "";
    }

    $buf = array();
    ParseFavorites($s,$buf);

    $cookieval = "";

    for ($i = 0; $i < count($buf); $i++) {
      $found = 0;
      for ($j = 0; $j < count($record); $j++) {
        if ($i == ($record[$j]-1)) {
          $found = 1;
          break;
        }
      }
      if ($found == 0) {
        $cookieval = $cookieval . $buf[$i]["collection"] . "<" . $buf[$i]["pointer"] . ">";
      }
    }

    /* Set the cookie */
    header("Set-Cookie: BUF=$cookieval; path=/; expires=Saturday, 19-Nov-2011 12:00:00 GMT");
  }

  /* Move items in My Favorites */
  function dmMoveFavorite($from,$to) {
    if (isset($_COOKIE['BUF'])) {
      $s = $_COOKIE['BUF'];
    }
    else {
      $s = "";
    }

    $buf = array();
    ParseFavorites($s,$buf);
    $n = count($buf);

    /* Check that the arguments are legal */
    if (($from > 0) && ($from <= $n) && ($to > 0) && ($to <= $n) && ($from != $to)) {
      $from = $from - 1;
      $to = $to - 1;

      if ($from < $to) {
        $tempcol = $buf[$from]["collection"];
        $tempptr = $buf[$from]["pointer"];
        for ($i = $from; $i < $to; $i++) {
          $buf[$i]["collection"] = $buf[$i+1]["collection"];
          $buf[$i]["pointer"] = $buf[$i+1]["pointer"];
        }
        $buf[$to]["collection"] = $tempcol;
        $buf[$to]["pointer"] = $tempptr;
      }
      else {
        $tempcol = $buf[$from]["collection"];
        $tempptr = $buf[$from]["pointer"];
        for ($i = $from; $i > $to; $i--) {
          $buf[$i]["collection"] = $buf[$i-1]["collection"];
          $buf[$i]["pointer"] = $buf[$i-1]["pointer"];
        }
        $buf[$to]["collection"] = $tempcol;
        $buf[$to]["pointer"] = $tempptr;
      }

      $cookieval = "";
      for ($i = 0; $i < $n; $i++) {
        $cookieval = $cookieval . $buf[$i]["collection"] . "<" . $buf[$i]["pointer"] . ">";
      }
      /* Set the cookie */
      header("Set-Cookie: BUF=$cookieval; path=/; expires=Saturday, 19-Nov-2011 12:00:00 GMT");
    }
  }

  /* Perform a text query */
  function &dmQuery($alias,$searchstring,$field,$sortby,$maxrecs,$start,&$total,$suppress=0,$docptr=-1,&$suggest=0,&$facet="") {
    $record = array();
    $pathmap = array();
    $n = 0;
    $numsearchfields = count($searchstring);

    if (($numsearchfields == 0) && (count($alias) != 1)) {  /* can only browse one collection */
      $total = 0;
    }
    else {
      if (count($alias) == 0) {
        print("Error, no collections specified<br>\n");
        exit;
      }
      $catlist = &dmGetCollectionList();
      for ($i = 0; $i < count($catlist); $i++) {
        $pathmap[$catlist[$i]["alias"]] = $catlist[$i]["path"];
      }
      if (($alias[0] == "all") || ((count($alias) == count($catlist)) && (count($catlist) > 1))) {
        $n = GetCatalogCount();
        if (count($catlist) == $n)
          $dblist = "/";
        else {
          $dblist = $catlist[0]["alias"];
          for ($i = 1; $i < count($catlist); $i++) {
            $dblist = $dblist . "," . $catlist[$i]["alias"];
          }
        }
      }
      else {
        $dblist = $alias[0];
        for ($i = 1; $i < count($alias); $i++) {
          $dblist = $dblist . "," . $alias[$i];
        }
      }
      if (count($sortby) == 0) {
        $sortlist = "";
      }
      else {
        $sortlist = $sortby[0];
        for ($i = 1; $i < count($sortby); $i++) {
          $sortlist = $sortlist . " " . $sortby[$i];
        }
      }

      if (($alias[0] == "all") || (count($alias) > 1))
        $temp = "dc";
      else
        $temp = $alias[0];
      $findmap = dmGetFindNick($temp);

      for ($i = 0; $i < 6; $i++) {
        $fieldmap[$i] = -1;
      }
      $multimode = 0;
      for ($i = 0; $i < $numsearchfields; $i++) {
        if (trim($searchstring[$i]["string"]) != "") {
          $searchstring[$i]["string"] = str_replace('"',"",$searchstring[$i]["string"]);
//        $searchstring[$i]["string"] = str_replace(':'," ",$searchstring[$i]["string"]);
          if ($searchstring[$i]["mode"] == "exact") {
            $searchstring[$i]["string"] = str_replace("--"," -- ",$searchstring[$i]["string"]);
            $fieldmap[1] = $i;
          }
          else {
            $searchstring[$i]["string"] = str_replace("--"," - ",$searchstring[$i]["string"]);

            if ($searchstring[$i]["mode"] == "all") {
              $fieldmap[0] = $i;
            }
            elseif ($searchstring[$i]["mode"] == "any") {
              $fieldmap[2] = $i;
            }
            elseif ($searchstring[$i]["mode"] == "none") {
              $fieldmap[3] = $i;
            }
          }
        }
      }
      $searchlist = "";
      if ($multimode == 1) {     /* Search across all fields */
        if ($fieldmap[1] >= 0) {
          if (!strstr($searchstring[$fieldmap[1]]["string"]," near"))
            $searchlist = '"' . $searchstring[$fieldmap[1]]["string"] . '"';
          else
            $searchlist = $searchstring[$fieldmap[1]]["string"];
        }
        if ($fieldmap[0] >= 0) {
          if ($searchlist != "")
            $searchlist = $searchlist . " and ";
          $str = str_replace('('," ",$searchstring[$fieldmap[0]]["string"]);
          $str = str_replace(')'," ",$str);
          $searchlist = $searchlist . AddOperator($str,"and");
        }
        if ($fieldmap[2] >= 0) {
          $str = str_replace('('," ",$searchstring[$fieldmap[2]]["string"]);
          $str = str_replace(')'," ",$str);
          if ($searchlist != "") {
            $searchlist = $searchlist . " and ";
            $searchlist = $searchlist . "(" . AddOperator($str,"or") . ")";
          }
          else
            $searchlist = $searchlist . AddOperator($str,"or");
        }
        if ($fieldmap[3] >= 0) {
          if ($searchlist != "")
            $searchlist = $searchlist . " not ";
          else
            $searchlist = "not ";
          $searchlist = $searchlist . "(" . AddOperator($searchstring[$fieldmap[3]]["string"],"or") . ")";
        }
      }
      else {  /* Selected fields */
        $notclause = "";
        for ($i = 0; $i < $numsearchfields; $i++) {
          if (trim($searchstring[$i]["string"]) != "") {
            if ($i > 0)
              $searchlist = $searchlist . " ";
            $code = "ft";
            $isdate = 0;
            for ($j = 0; $j < count($findmap); $j++) {
              if ($searchstring[$i]["field"] == "CISOSEARCHALL") {
                $code = "ft";
                $isdate = 0;
                break;
              }
              if ($searchstring[$i]["field"] == $findmap[$j]["cdmnick"]) {
                $code = $findmap[$j]["findnick"];
                $isdate = $findmap[$j]["date"];
                break;
              }
            }
            if (($isdate) && (!strstr($searchstring[$i]["string"]," "))) {
              $searchlist = $searchlist . "(" . $code . ":" . FormatDateString($searchstring[$i]["string"]) . ")";
            }
            elseif ($searchstring[$i]["mode"] == "all") {
              $str = str_replace('('," ",$searchstring[$i]["string"]);
              $str = str_replace(')'," ",$str);
              $searchlist = $searchlist . $code . ":" . AddOperator($str,"and");
            }
            elseif ($searchstring[$i]["mode"] == "exact") {
              if (!strstr($searchstring[$i]["string"]," near"))
                $searchlist = $searchlist . $code . ":" . '"' . $searchstring[$i]["string"] . '"';
              else
                $searchlist = $searchlist . $code . ":" . $searchstring[$i]["string"];
            }
            elseif ($searchstring[$i]["mode"] == "any") {
              $str = str_replace('('," ",$searchstring[$i]["string"]);
              $str = str_replace(')'," ",$str);
              $searchlist = $searchlist . "(" . $code . ":" . AddOperator($str,"or") . ")";
            }
            elseif ($searchstring[$i]["mode"] == "none") {
              $notclause = $notclause . " not (" . $code . ":" . AddOperator($searchstring[$i]["string"],"or") . ")";
//            $searchlist = $searchlist . "not (" . $code . ":" . AddOperator($searchstring[$i]["string"],"or") . ")";
            }
          }
        }
        if ($notclause != "") {
          $searchlist = trim($searchlist) . $notclause;
        }
      }

      if (!extension_loaded('DmSearch')) {
        if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN')) {
          dl('php_dmsearchmod.dll');
        }
        else {
          dl('dmsearch.so');
        }
      }
      $dmid = dmGetUser();

      if (isset($_SERVER["REMOTE_ADDR"]))
        $remote_addr = $_SERVER["REMOTE_ADDR"];
      else
        $remote_addr = "";

      if ($suppress == 1)
        $multimode = $multimode + 20;

      /* browse mode */
      if ($numsearchfields == 0) {
        $result = dmsearch($dblist,$searchlist,$multimode,$docptr,$start,$maxrecs,$sortlist,$dmid,$remote_addr);

        if (substr($result,0,1) == "0") {
          $total = 0;
          $n = 0;
          $temp = strtok($result,"\n");
          $p1 = strpos($temp," ");
          if ($p1 != FALSE) {
            $p2 = strpos($temp," ",$p1+1);
            if ($p2 != FALSE) {
              $total = (int) trim(substr($temp,$p2+1));
            }
          }
          while (($temp = strtok("\n")) != FALSE) {
            $p1 = strpos($temp," ");
            $p2 = strpos($temp," ",$p1+1);

            $record[$n]["collection"] = trim(su…