source: trunk/gsdl/src/recpt/hlistbrowserclass.cpp@ 9620

/**********************************************************************
 *
 * hlistbrowserclass.cpp -- 
 * Copyright (C) 1999  The New Zealand Digital Library Project
 *
 * A component of the Greenstone digital library software
 * from the New Zealand Digital Library Project at the
 * University of Waikato, New Zealand.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *********************************************************************/

#include "hlistbrowserclass.h"
#include <assert.h>
#include "OIDtools.h"

hlistbrowserclass::hlistbrowserclass () {
}

hlistbrowserclass::~hlistbrowserclass () {
}

// returns the name that specifies the browserclass type
text_t hlistbrowserclass::get_browser_name () {
  return "HList";
}

browserclass* hlistbrowserclass::clone()
{
  return new hlistbrowserclass();
}

void hlistbrowserclass::load_metadata_defaults (text_tset &metadata) {
  metadata.insert ("doctype");
}

text_t hlistbrowserclass::get_default_formatstring () {
  return "[link][highlight][Title][/highlight][/link]";
}

// need to change OID to it's child 
void hlistbrowserclass::processOID (cgiargsclass &args, recptproto *collectproto,
                    ostream &logout) {

  text_t OID = args["d"];
  bool is_classify = false;
  if (OID.empty()) {
    is_classify = true;
    OID = args["cl"];
  }

  FilterResponse_t response;
  text_tset metadata;
  metadata.insert ("childtype");
  text_t classifytype = "Invisible";
  text_tarray OIDs;

  while (classifytype == "Invisible" || classifytype == "HList") {
    OIDs.erase (OIDs.begin(), OIDs.end());
    
    OIDs.push_back (OID);
    OIDs.push_back (OID + ".fc");

    get_info (OIDs, args["c"], args["l"], metadata, false, collectproto, response, logout);

    OID = response.docInfo[1].OID;
    classifytype = response.docInfo[1].metadata["childtype"].values[0];
  }
  if (is_classify) args["cl"] = OID;
  else args["d"] = OID;
}

int hlistbrowserclass::output_section_group (ResultDocInfo_t &section, cgiargsclass &args,
                         const text_t& collection, int colnumber, 
                         format_t *formatlistptr, bool use_table, 
                         text_tset &metadata, bool &getParents, 
                         recptproto *collectproto, displayclass &disp, 
                         outconvertclass &outconvert, ostream &textout, 
                         ostream &logout) {

  // expanded contents are going to cause some nasty recursions
  // so we'll only continue if being passed the current section
  if ((args["gc"] == 1) && (section.OID != args["d"])) return 0;

  // get all siblings
  FilterResponse_t response;
  text_t &arg_cl = args["cl"];
  get_children (section.OID + ".pr", args["c"], args["l"], metadata, getParents, 
        collectproto, response, logout);

                    
  if (use_table || colnumber > 0) {
    textout << outconvert << "<table><tr><td>";
    // get tab size
    text_t tab; int itab;
    disp.expandstring (displayclass::defaultpackage, "_tabwidth_", tab);
    itab = tab.getint();
    if (colnumber > 0) textout << outconvert << disp 
                   << "<img src=\"_httpimg_/space.gif\" width=" 
                   << (itab*colnumber) << ">";
    textout << outconvert << "</td>\n";
  }

  textout << outconvert << "<table><tr>\n";

  ResultDocInfo_tarray::iterator tsibling = response.docInfo.begin();
  ResultDocInfo_tarray::iterator esibling = response.docInfo.end();

  text_t icon, link;
  int num_chars=0; // see note below - jrm21
  while (tsibling != esibling) {

    bool highlight = false;
    text_t &doctype = (*tsibling).metadata["doctype"].values[0];

    if ((*tsibling).OID == section.OID) {
      link.clear();
      highlight = true;
    } else {
      link = "<a href=\"_httpdocument_";
      if (doctype == "classify") 
    link += "&cl=" + (*tsibling).OID + "\">";
      else {
    link += "&cl=" + arg_cl + "&d=" + (*tsibling).OID;// + "\">";
    // [modification to allow default document detach settings -- kjdon]
    if (args["xx"]=="1") {
      // documents should be detached
      link += "&x=1\" target=\\_blank>";
    } else {
      link += "\">";
    }
      }
    }

    text_tmap options;
    options["link"] = link;
    options["icon"] = icon;
    if (highlight) options["highlight"] = "1";
    else options["highlight"] = "0";
    
    text_t fmt_str=get_formatted_string (collection, collectproto,
                      *tsibling, disp, formatlistptr,
                      options, logout);

    /* this is awful. Someone please come up with a better way to prevent
       the table of contents when browsing metadata from becoming too wide.
       This is an attempt to add new rows when the number of characters in
       the current row becomes too high. It doesn't know about macros in the
       string, though... -- jrm21 */

    char *tmp_str=fmt_str.getcstr();
    char *end_str=tmp_str+strlen(tmp_str);
    while (tmp_str<end_str) {
      if (*tmp_str=='<') {    // for html tags
    while (*tmp_str!='>') ++tmp_str; 
      } else if (*tmp_str=='&') { // for html entities
    while (*tmp_str!=';') ++tmp_str; 
    ++num_chars;
      } else ++num_chars;
      ++tmp_str;
    }

    if (num_chars>100) { // this is fairly arbitrary...
      textout << outconvert << "</tr>\n<tr>";
      num_chars=0;
    }

    textout << outconvert << "<td>" << disp << fmt_str << "</td>\n";
    ++tsibling;
  }

  textout << outconvert << "</tr></table>\n";
  if (use_table  || colnumber > 0) textout << outconvert << "</tr></table>\n";
  return 0;
}

int hlistbrowserclass::output_section_group (FilterResponse_t &/*sections*/, cgiargsclass &/*args*/,
                         const text_t &/*collection*/, int /*colnumber*/, 
                         format_t * /*formatlistptr*/, bool /*use_table*/, 
                         text_tset &/*metadata*/, bool &/*getParents*/,
                         recptproto * /*collectproto*/, displayclass &/*disp*/, 
                         outconvertclass &/*outconvert*/, ostream &/*textout*/, 
                         ostream &/*logout*/) {
  return 0;
}