VbzCart/docs/archive/code/files/store.php: Difference between revisions

From Woozle Writes Code
< VbzCart‎ | docs‎ | archive‎ | code‎ | files
Jump to navigation Jump to search
imported>Woozle
(→‎Code - store.php: oops, wrong code (non-working dev code); this is the right one)
m (Woozle moved page VbzCart/VbzCart/archive/code/files/store.php to VbzCart/docs/archive/code/files/store.php without leaving a redirect: correct naming (was no way to import directly to this name))
 
(5 intermediate revisions by one other user not shown)
Line 3: Line 3:
* '''History''':
* '''History''':
** '''2009-03-07''' Transcribed from working code at vbz.net
** '''2009-03-07''' Transcribed from working code at vbz.net
** '''2009-10-06''' Latest code - large chunks working, focus of development no longer on this module
** '''2011-12-18''' long-overdue update
* '''To Do''':
* '''To Do''':
** should be split up into auto-loadable class files, e.g. vbz.title.php, vbz.dept.php, etc.
** should be split up into auto-loadable class files, e.g. vbz.title.php, vbz.dept.php, etc.
Line 8: Line 10:
==Code - store.php==
==Code - store.php==
<php><?php
<php><?php
# PURPOSE: vbz page generator
/*
# VERSION: /topics/
FILE: store.php
PURPOSE: vbz class library - should eventually be subdivided
HISTORY:
  2009-07-11 (Wzl) Lots of cleanup; added types and methods needed for shopping cart page
  2009-10-06 (Wzl) Changed most clsTitle* classes to clsVbzTitle* (conflict with something - w3tpl?)
    Additional changes needed so it would work on Rizzo
  2010-06-12 (Wzl) A little cleanup; clsTopic::Titles()
  2010-06-14 (Wzl) clsVbzTable::GetItem() handles non-numeric IDs by creating new object and passing along ID
  2011-01-18 (Wzl) moved clsTopic(s) to topic.php
*/
define('kEmbeddedPagePrefix','embed:');
 
/*
if (defined( '__DIR__' )) {
  $fpThis = __DIR__;
} else {
  $fpThis = dirname(__FILE__);
}
*/
if (!defined('LIBMGR')) {
    require(KFP_LIB.'/libmgr.php');
}
clsLibMgr::Add('strings', KFP_LIB.'/strings.php',__FILE__,__LINE__);
clsLibMgr::Add('string.tplt', KFP_LIB.'/StringTemplate.php',__FILE__,__LINE__);
clsLibMgr::Add('cache' , KFP_LIB.'/cache.php',__FILE__,__LINE__);
clsLibMgr::Add('dtree', KFP_LIB.'/dtree.php',__FILE__,__LINE__);
clsLibMgr::Add('events', KFP_LIB.'/events.php',__FILE__,__LINE__);
clsLibMgr::Add('vbz.data', KFP_LIB_VBZ.'/vbz-data.php',__FILE__,__LINE__);
clsLibMgr::Add('topic', KFP_LIB_VBZ.'/topic.php',__FILE__,__LINE__);
 
clsLibMgr::Load('strings',__FILE__,__LINE__);
clsLibMgr::Load('string.tplt',__FILE__,__LINE__);
clsLibMgr::Load('cache',__FILE__,__LINE__);
clsLibMgr::Load('dtree',__FILE__,__LINE__);
clsLibMgr::Load('events',__FILE__,__LINE__);
clsLibMgr::Load('vbz.data',__FILE__,__LINE__);
clsLibMgr::Load('topic',__FILE__,__LINE__);
 
define('EN_PGTYPE_NOTFND',-1); // requested item (supp/dept/title) not found
define('EN_PGTYPE_HOME',1); // catalog home page
define('EN_PGTYPE_SUPP',2); // supplier page
define('EN_PGTYPE_DEPT',3); // department page, or possibly title for keyless dept
define('EN_PGTYPE_TITLE',4); // title page
// table names
// - stock
define('ksTbl_stock_places','stk_places');
define('ksTbl_stock_bins','stk_bins');
define('ksQry_stock_bins_wInfo','qryStk_Bins_w_info');
define('ksTbl_stock_items','stk_items');
define('ksTbl_stock_hist_items','stk_history');
define('ksTbl_stock_hist_bins','stk_bin_history');
// - browsing
define('ksTbl_title_topics','brs_titles_x_topics');
 
global $vbgImgSize;
$vbgImgSize = array(
    'th' => 'thumbnail',
    'sm' => 'small',
    'big' => 'large',
    'huge' => 'huge',
    'zoom' => 'detail');
 
// shipping zone data:
global $listShipListDesc,$listItmFactors,$listPkgFactors; // there's got to be a better way to do this...
$listShipListDesc['US'] = 'United States';
$listShipListDesc['CA'] = 'Canada';
$listShipListDesc['INT'] = 'International';
// -- shipping charge adjustment factors:
$listPkgFactors['US'] = 1.0;
$listItmFactors['US'] = 1.0;
$listPkgFactors['CA'] = 2.0;
$listItmFactors['CA'] = 2.0;
$listPkgFactors['INT'] = 4.0;
$listItmFactors['INT'] = 4.0;
// The above is just until we have something more exact and dynamic
 
$intCallDepth = 0;
 
// CALCULATED GLOBALS
$fpTools = '/tools';
$fpPages = '';
$fwpAbsPages = 'http://'.KS_PAGE_SERVER.$fpPages;
$fwpAbsTools = 'http://'.KS_TOOLS_SERVER.$fpTools;
$fwpCart = $fwpAbsPages.'/cart/';
$strCurServer = $_SERVER['SERVER_NAME'];
 
// SET UP DEPENDENT VALUES
/*
if ($strCurServer != KS_TOOLS_SERVER) {
  $fpTools = $fwpAbsTools;
  $fpPages = $fwpAbsPages;
}
*/
$fwpLogo = $fpTools.'/img/logos/v/';
 
/*====
  NOTES:
    2011-02-02 This could use some rewriting. A lot of it is kind of pointless,
      and other parts duplicate RichText objects.
*/
class clsPageOutput {
  public $out;
  private $isOdd;
  public $inTbl;
 
  function __construct() {
    $this->out = '';
    $this->isOdd = false;
    $this->inTbl = 0;
  }
  function Clear() {
    $this->out = '';
  }
  function AddText($iText) {
    $this->out .= $iText;
  }
  function SectionHdr($iTitle) { // this is specifically duplicated
    $this->out .= '<p class="hdr-sub">'.$iTitle.'</p>';
    return $this->out;
  }
  function StartTable($iTitle) {
    if ($iTitle) {
      $this->SectionHdr($iTitle);
      $this->out .= '<table class=content>';
      $this->inTbl++;
    }
  }
  function RowStart($iClass='') {
    if ($iClass) {
      $this->out .= '<tr class="'.$iClass.'">';
    } else {
      $this->out .= '<tr>';
    }
  }
  function RowStop() {
    $this->out .= '</tr>';
    $this->isOdd = !$this->isOdd;
  }
  function ColAdd($iText) {
    if ($this->isOdd) {
      $cellOpen = '<td class=catalog-stripe valign=top>';
    } else {
      $cellOpen = '<td class=catalog valign=top>';
    }
    $this->out .= $cellOpen.$iText.'</td>';
  }
  function EndTable() {
    if ($this->inTbl) {
      $this->out .= '</table>';
      $this->inTbl--;
    }
    return $this->out;
  }
  function ShowImgUnavail() {
    $this->out .= '<table class=border cellpadding="5"><tbody><tr><td><table class="hdr" cellpadding="2"><tbody><tr><td align="center"><span class="page-title">No Images<br>Available<br></span>for this item<br><b>:-(</b></td></tr></tbody></table></td></tr></tbody></table>';
    return $this->out;
  }
}
class clsCacheFile_vbz extends clsCacheFile {
    public function __construct() {
parent::__construct(KFP_CACHE);
    }
}
class clsVbzData extends clsDatabase {
    protected $objPages;
 
    public function __construct($iSpec) {
parent::__construct($iSpec);
$this->Open();
    }
// cache manager
    protected function CacheMgr_empty() {
return new clsCacheMgr($this);
    }
    public function CacheMgr() {
if (empty($this->objCacheMgr)) {
    $objCache = $this->CacheMgr_empty();
    $objCache->SetTables('cache_tables','cache_queries','cache_flow','cache_log');
    $this->objCacheMgr = $objCache;
}
return $this->objCacheMgr;
    }
// table-specific functions
    public function Pages() {
return $this->Make('clsCatPages');
    }
    public function Suppliers() {
return $this->Make('clsSuppliers');
    }
    public function Depts() {
return $this->Make('clsDepts');
    }
    public function Titles($iID=NULL) {
return $this->Make('clsVbzTitles',$iID);
    }
    public function Items() {
return $this->Make('clsItems');
    }
    public function Items_Stock() {
return $this->Make('clsItems_Stock');
    }
    public function Items_Cat() {
return $this->Make('clsItems_info_Cat');
    }
    public function ItTyps() {
return $this->Make('clsItTyps');
    }
    public function ItOpts() {
return $this->Make('clsItOpts');
    }
    public function ShipCosts() {
return $this->Make('clsShipCosts');
    }
    public function Folders() {
return $this->Make('clsVbzFolders');
    }
    public function Images() {
return $this->Make('clsImages');
    }
    public function StkItems() {
return $this->Make('clsStkItems');
    }
    public function Topics($iID=NULL) {
return $this->Make('clsTopics',$iID);
    }
    public function TitleTopic_Titles() {
return $this->Make('clsTitleTopic_Titles');
    }
    public function TitleTopic_Topics() {
return $this->Make('clsTitleTopic_Topics');
    }
    public function VarsGlobal() {
return $this->Make('clsGlobalVars');
    }
    public function Events() {
return $this->Make('clsEvents');
    }
    public function LogEvent($iWhere,$iParams,$iDescr,$iCode,$iIsError,$iIsSevere) {
return $this->Events()->LogEvent($iWhere,$iParams,$iDescr,$iCode,$iIsError,$iIsSevere);
    }
// Page output routines
    public function Formatter() {
if (!isset($this->objFmt)) {
    $this->objFmt = new clsPageOutput();
}
return $this->objFmt;
    }
    public function SectionHdr($iTitle) {
/*
$out = '<p class="hdr-sub">'.$iTitle.'</p>';
return $out;
*/
$this->Formatter()->Clear();
return $this->Formatter()->SectionHdr($iTitle);
    }
    /*----
      NOTES:
2011-02-02 This really should somehow provide a more general service. Right now, it's only used for displaying
  department pages -- but topic pages and searches could make use of it as well, if there were some tidy way
  to abstract the collecting of the price and stock data. This will probably necessitate adding hi/low price
  data to _titles and possibly _dept_ittyps (it's already in _title_ittyps).
      HISTORY:
2011-02-02
  * Removed assertion that $objImgs->Res is a resource, because if there are no thumbnails for this title,
    then apparently it isn't, and apparently RowCount() handles this properly.
  * Also fixed references to qtyForSale -- should be qtyInStock.
    */
    public function ShowTitles($iHdrText,$iList,$objNoImgSect) {
$cntImgs = 0;
$outImgs = '';
foreach ($iList as $i => $row) {
    $objTitle = $this->Titles()->GetItem($row['ID']);
    $objImgs = $objTitle->ListImages('th');
    //assert('is_resource($objImgs->Res); /* TYPE='.get_class($objImgs).' SQL='.$objImgs->sqlMake.' */');
    $currMinPrice = $row['currMinPrice'];
    $currMaxPrice = $row['currMaxPrice'];
    $strPrice = DataCurr($currMinPrice);
    if ($currMinPrice != $currMaxPrice) {
      $strPrice .= '-'.DataCurr($currMaxPrice);
    }
    if ($objImgs->RowCount()) {
      $cntImgs++;
      $strCatNum = $objTitle->CatNum();
      $strTitleTag = '&quot;'.$objTitle->Name.'&quot; ('.$strCatNum.')';
      $strTitleLink = $objTitle->Link();
      while ($objImgs->NextRow()) {
$strImgTag = $strTitleTag.' - '.$strPrice;
$qtyStk = $row['qtyInStock'];
if ($qtyStk) {
  $strImgTag .= ' - '.$qtyStk.' in stock';
}
$outImgs .= $strTitleLink.'<img class="thumb" src="'.$objImgs->WebSpec().'" title="'.$strImgTag.'"></a>';
      }
    } else {
if (!$objNoImgSect->inTbl) {
    $objNoImgSect->StartTable('titles without images:');
    $objNoImgSect->AddText('<tr class=main><th>Cat. #</th><th>Title</th><th>Price<br>Range</th><th>to<br>order</th><th>status</th></tr>');
}
$objNoImgSect->RowStart();
$objNoImgSect->ColAdd('<b>'.$objTitle->CatNum().'</b>');
$objNoImgSect->ColAdd($objTitle->Name);
$objNoImgSect->ColAdd($strPrice);
$objNoImgSect->ColAdd('<b>[</b>'.$objTitle->Link().'order</a><b>]</b>');
$qtyStk = $row['qtyInStock'];
if ($qtyStk) {
    $strStock = '<b>'.$qtyStk.'</b> in stock';
    if ($row['cntInPrint'] == 0) {
$strStock .= ' - OUT OF PRINT!';
    }
    $objNoImgSect->ColAdd($strStock);
} else {
    $objNoImgSect->ColAdd('<a title="explanation..." href="'.KWP_HELP_NO_STOCK_BUT_AVAIL.'">available, not in stock</a>');
// Debugging:
//          $objNoImgSect->ColAdd('ID_Title='.$objTitle->ID.' ID_ItTyp='.$objTitle->idItTyp);
}
$objNoImgSect->RowStop();
    }
}
$out = '';
if ($cntImgs) {
    $out .= $this->SectionHdr($iHdrText);
    $out .= $outImgs;
}
return $out;
    }
}
 
class clsList {
  public $List;
 
  public function Add($iName, $iValue=NULL) {
    $objItem = new clsListItem($iName,$iValue);
    $this->List[] = $objItem;
    return $objItem;
  }
  public function Output($iPfx, $iSep, $iSfx) {
    $out = NULL;
    if (is_array($this->List)) {
      foreach ($this->List as $objItem) {
        if (is_null($objItem->value)) {
          $out .= $iPfx.$iSep.$objItem->name.$iSfx;
        } else {
          $out .= $iPfx.$objItem->name.$iSep.$objItem->value.$iSfx;
        }
      }
    }
    return $out;
  }
}
class clsListItem {
  public $name;
  public $value;
 
  public function __construct($iName, $iValue=NULL) {
    $this->name = $iName;
    $this->value = $iValue;
  }
}
/* ===================
  CLASS: clsVbzSkin
  PURPOSE: Abstract skin class
*/
abstract class clsVbzSkin extends clsVbzData {
    /*-----
      USAGE: Normal main entry point -- should be called from index.php
    */
    public function DoPage() {
try {
    $this->DoPreContent();
    $this->DoContent();
    $this->DoPostContent();
} catch(exception $e) {
    $this->EmailException($e);
}
    }
    /*----
      HISTORY:
2011-03-31 added Page and Cookie to list of reported variables
    */
    protected function EmailException(exception $e) {
$msg = $e->getMessage();
$out = 'Description: '.($e->getMessage());
$out .= "\nStack trace:\n".($e->getTraceAsString());
 
$guest_ip = $_SERVER['REMOTE_ADDR'];
$guest_browser = $_SERVER['HTTP_USER_AGENT'];
$guest_referer = NzArray($_SERVER,'HTTP_REFERER');
$guest_page = $_SERVER['REQUEST_URI'];
$guest_cookie = $_SERVER['HTTP_COOKIE'];
 
$out .= <<<__END__
 
Client information:
- IP Addr: $guest_ip
- Browser: $guest_browser
- Page  : $guest_page
- Cookie : $guest_cookie
- Referer: $guest_referer
__END__;
 
$subj = 'vbz error from IP '.$guest_ip;
$ok = mail(KS_TEXT_EMAIL_ADDR_ERROR,$subj,$out);
 
echo <<<__END__
<b>Ack!</b> We seem to have a small problem here. (If it was a large problem, you wouldn't be seeing this message.)
The webmaster is being alerted about this.
<br>Meanwhile, you might try reloading the page -- a lot of errors are transient,
which makes them hard to fix, which is why there are more of them than the other kind.
<br><br>
We apologize for the nuisance.
<br><br>
<b>Error Message</b>: $msg
__END__;
 
// FUTURE: log the error and whether the email was successful
    }
    /*-----
      ACTION: Displays everything *before* the main page contents
    */
    protected function DoPreContent() {
$this->ParseInput();
$this->HandleInput();
$this->RenderHdrBlocks();
    }
    /*-----
      ACTION: Displays everything *after* the main page contents
    */
    protected function DoPostContent() {
$this->RenderFtrBlocks();
    }
 
// ABSTRACT section //
    /*-----
      ACTION: Displays the main page contents
    */
    protected abstract function DoContent();
    /*-----
      ACTION: Grab any expected input and interpret it
    */
    protected abstract function ParseInput();
    /*-----
      ACTION: Take the parsed input and do any needed processing (e.g. looking up data)
    */
    protected abstract function HandleInput();
    /*-----
      ACTION: Render any output that appears *before* the main content
    */
    protected abstract function RenderHdrBlocks();
    /*-----
      ACTION: Render any output that appears *after* the main content
    */
    protected abstract function RenderFtrBlocks();
}
/* ===================
  CLASS: clsVbzSkin_Standard
  PURPOSE: Standard skin class
    Will later be replaceable with other skins
*/
abstract class clsVbzSkin_Standard extends clsVbzSkin {
/*
    protected function DoContent() {
    }
    protected function ParseInput() {
    }
    protected function HandleInput() {
    }
*/
    protected function RenderHdrBlocks() {
$this->RenderHtmlStart();
$this->RenderContentHdr();
$this->DoSidebar();
    }
    protected function RenderFtrBlocks() {
$this->RenderContentFtr();
$this->RenderHtmlStop();
    }
    protected function RenderContentFtr() {
global $didPage,$fltStart;
 
echo '<div style="clear: both;" align=right>';
$this->DoSepBar();
echo '<table width=100%><tr><td align=right><small><i>';
$fltExecTime = microtime(true)-$fltStart;
$dat = getrusage();
$fltUserTime = $dat["ru_utime.tv_usec"]/1000000;
$strServer = $_SERVER['SERVER_SOFTWARE'];
echo $strServer.' .. ';
echo 'PHP '.phpversion().' .. Generated in <b>'.$fltUserTime.'</b> seconds (script execution '.$fltExecTime.' sec.) .. ';
$strWikiPg = $this->strWikiPg;
if ($strWikiPg) {
    echo 'wiki: <a href="'.KWP_WIKI.kEmbeddedPagePrefix.$this->strWikiPg.'">'.$strWikiPg.'</a> .. ';
}
echo date('Y-m-d H:i:s');
echo '</i></small></td></tr></table>';
echo '</div>';
$didPage = true;
    }
    protected function RenderHtmlStop() {
echo "\n</body>\n</html>";
    }
 
// NEW METHODS for this class //
    protected function DoSidebar() {
$objCache = $this->CacheMgr();
// TO DO: these should be pulled from the [stats] table
/*
if ($objCache->dtNewest) {
    $timeSidebarBuild=$objCache->dtNewest;
} else {
    $timeSidebarBuild = NULL;
}
*/
    $timeSidebarBuild = NULL;
$statsQtyTitlesAvail = 2245;
$statsQtyStockPieces = 1395;
$statsQtyStockItems = 753;
$statsQtyArtists = 136;
$statsQtyTopics = 1048;
//---------
 
echo '<table class=border align=left cellpadding=3 bgcolor="#000000"><tr><td>';
echo '<table class=sidebar bgcolor="#ffffff" cellpadding=5><tr><td>';
echo '<table border=0 class=menu-title width="100%"><tr><td class=menu-title><a href="/">Home</a></td></tr></table>';
echo '<span class=menu-text><dl>';
/*
<span class=menu-text><p style="background: #eeeeee;"><dl>
*/
echo $this->lstTop->Output('<dt><b>','</b>: ','');
//  echo '</p></span></dl>';
echo '</dl>';
if ($this->strSideXtra) {
    echo '<dl style="background: #eeeeee;">'.$this->strSideXtra.'</dl>';
}
echo '<form action="/search/">';
echo 'Search '.$statsQtyTitlesAvail.' items:<br>';
?>
<input size=10 name=search><input type=submit value="Go"><br>
<small><a href="/search/">advanced</a></small>
</form>
<b>Indexes</b>
<?php
echo '<br> ...<a href="'.KWP_SHOP_SUPP.'" title="list of suppliers and what we carry from each one"><b>S</b>uppliers</a>';
/*
echo '<br> ...<a href="/stock/" title="'
  .$statsQtyStockPieces.' pieces, '
  .$statsQtyStockItems.'. items"><b>S</b>tock</a> ('.$statsQtyStockPieces.')';
*/
echo '<br> ...<a href="'.KWP_SHOP_STOCK.'" title="what\'s currently in stock"><b>S</b>tock</a>';
echo '<br> ...<a href="'.KWP_SHOP_TOPICS.'" title="topic master index (topics are like category tags)"><b>T</b>opics</a>';
// echo '<br> ...<a href="/artists/" title="'.$statsQtyArtists.'.artists"><b>A</b>rtists</a> ('.$statsQtyArtists.')';
echo '<p>';
echo '[[ <a href="'.KWP_WIKI.'" title="vbz wiki homepage"><b>wiki</b></a> ]]<br>';
echo '-- [[ <a href="'.KWP_HELP_HOME.'" title="help main index"><b>Help</b></a> ]]<br>';
echo '-- [[ <a href="'.KWP_HELP_ABOUT.'" title="about vbz.net (probably more than you want to know)"><b>About</b></a> ]]<br>';
echo '-- [[ <a href="'.KWP_HELP_CONTACT.'" title="contact vbz.net (several different methods)"><b>Contact</b></a> ]]<br>';
echo '-- [[ <a href="'.KWP_WIKI.'VBZwiki_talk:Community_portal" title="leave your comments and suggestions"><b>Comments</b></a> ]]<br>';
echo '<p>';
echo '<a href="/email/" title="web form for sending us email">email form</a><br>';
echo '<a href="/cart/" title="your shopping cart">shopping cart</a><p>';
echo '</span></td></tr></table></td></tr></table>';
    }
    protected function DoSepBar() {
      echo $this->Render_HLine();
    }
    public function Render_HLine($iHeight=NULL) {
      global $fpTools;
 
      $htHt = is_null($iHeight)?'':('height='.$iHeight);
      return '<img src="'.$fpTools.'/img/bg/hlines/"'.$htHt.' alt="-----" width="100%">';
    }
    private function ToolbarItem($iURL,$iIcon,$iTitle,$iAlt) {
global $fpTools;
return '<a href="'.$iURL.'"><img border=0 src="'.$fpTools.'/img/icons/'.$iIcon.'.050pxh.png" title="'.$iTitle.'" alt="'.$iAlt.'"></a>';
    }
    protected function DoToolbar() {
global $fpPages,$fwpCart;
 
echo $this->ToolbarItem($fpPages.'/','home',KS_STORE_NAME.' home page','home page');
echo $this->ToolbarItem($fpPages.'/search/','search','search page','search page');
echo $this->ToolbarItem($fwpCart,'cart','shopping cart','shopping cart');
echo $this->ToolbarItem(KWP_HELP_HOME,'help','help!','help');
    }
 
// NEW METHODS for this class //
    /*----
      PURPOSE: Renders HTML inside <head></head> section
      HISTORY:
2011-01-11 Created
    */
    protected function RenderHtmlHeaderSection() {
$strTitle = KS_STORE_NAME.' - '.$this->strName;
$out = "\n<title>$strTitle</title>";
 
$arVars = array('sheet' => $this->strSheet);
$objStrTplt = new clsStringTemplate_array(NULL,NULL,$arVars);
$objStrTplt->MarkedValue(KHT_PAGE_STYLE);
$out .= $objStrTplt->Replace();
//$out .= KHT_PAGE_STYLE;
if (!empty($this->strName)) {
    $ftName = ': '.htmlspecialchars($this->strName);
} else {
    $ftName = '';
}
$strContent = KS_STORE_NAME_META.$ftName;
$out .= "\n<meta name=description content=\"$strContent\">";
return $out;
    }
    /*----
      PURPOSE: Renders HTML up to beginning of BODY.
      HISTORY:
2011-01-11 Extracted everything between <head> and </head> into RenderHtmlHeaderSection()
    */
    protected function RenderHtmlStart() {
//$this->strCalcTitle = KS_STORE_NAME.' - '.$this->strName;
$out = KHT_PAGE_DOCTYPE;
$out .= "\n<html>\n<head>";
$out .= $this->RenderHtmlHeaderSection();
$out .= "\n</head>";
$out .= KHT_PAGE_BODY_TAG;
echo $out;
    }
    protected function RenderContentHdr() {
global $fwpLogo;
//$strWikiPg = $this->strWikiPg;
 
      // begin content header
echo '<table width="100%" class=border cellpadding=5><tr><td>';
echo '<table width="100%" class=hdr cellpadding=2><tr>';
      // === LEFT HEADER: Title ===
echo '<td>';
echo '<a href="'.KWP_HOME_ABS.'"><img align=left border=0 src="'.$fwpLogo.'" title="'.KS_STORE_NAME.' home" alt="'.KS_SMALL_LOGO_ALT.'"></a>';
if ($this->strTitleContext) {
  echo '<span class=pretitle><b><a href="/">'.KS_STORE_NAME.'</a></b>: '.$this->strTitleContext.'</span><br>';
}
echo '<span class=page-title>'.$this->strTitle.'</span></td>';
      // === END LEFT HEADER ===
 
      // === RIGHT HEADER: nav icons ===
echo '<td align=right>';
$this->DoToolbar();
echo '</td>';
      // === END RIGHT HEADER ===
echo "\n</tr></table>\n</td></tr></table><!-- end html header -->";
    }
}
/* ===================
  CLASS: clsPage
  PURPOSE: Handles display of different page types
  TO DO: These classes (clsPage and descendants) need to be reorganized (they're a mess)
    and also set up so we can create different skins.
*/
abstract class clsPage extends clsVbzSkin_Standard {
// query
    protected $strReq; // requested page
// page definition
    protected $strName; // short title: {item name} (goes into html title, prefixed with store name)
    protected $strTitle; // longer, descriptive title: {"item name" by Supplier} (goes at top of page)
    protected $strSheet; // name of style sheet to use (without the .css)
    protected $strWikiPg; // name of wiki page to embed, if any (blank = suppress embedding)
    protected $strTitleContext; // context of short title, in HTML: {Supplier: Department:} (goes above title, in small print)
    protected $strHdrXtra; // any extra stuff (HTML) for the header
    protected $strSideXtra; // any extra stuff for the sidebar
    protected $lstTop; // stuff listed at the top of the sidebar
// calculated fields
//    protected $strCalcTitle;
    protected $strContText;
// flags set by wiki contents
    protected $hideImgs;
 
    public function __construct($iSpec) {
parent::__construct($iSpec);
$this->lstTop = new clsList();
    }
    protected function HandleInput() {
$this->strSheet = 'browse'; // default
    }
    /*-----
      IMPLEMENTATION: Retrieves request from URL and parses it
URL data identifies page, keyed to cat_pages data
    */
    protected function ParseInput() {
if (isset($_SERVER['PATH_INFO'])) {
    $strReq = $_SERVER['PATH_INFO'];
} else {
    $strReq = '';
}
$this->strReq = $strReq;
if (strrpos($strReq,'/')+1 < strlen($strReq)) {
    $strRedir = KWP_CAT_REL.substr($strReq,1).'/';
    header('Location: '.$strRedir);
    exit; // retry with new URL
}
    }
// DIFFERENT TYPES OF PAGES
    protected function DoNotFound() {
$this->strWikiPg = '';
$this->strTitle = 'Unknown Page';
$this->strName = 'unknown title in catalog';
$this->strTitleContext = 'Tomb of the...';
$this->strHdrXtra = '';
$this->strSideXtra = '<dt><b>Cat #</b>: '.$this->strReq;
    }
// UTILITY
    protected function AddText($iText) {
$this->strContText .= $iText;
    }
    private function DoWikiContent() {
# WIKI CONTENTS
# $txtPage = GetEmbedPage('cat');
if (KF_USE_WIKI) {
    $txtWiki = GetWikiPage($this->strWikiPg);
    if ($txtWiki) {
if (strpos($txtWiki,'__NOIMG__') != -1) {
    $txtWiki = str_replace('__NOIMG__','',$txtWiki);
    $this->hideImgs = true;
}
    }
    if ($txtWiki) {
echo '<table class=main><tr><td>'.$txtWiki.'</td></tr></table>';
    }
}
    }
}
 
class clsPageCat extends clsPage {
    private $objCatPage; // object for identifying page to display
    protected function RenderHdrBlocks() {
if ($this->useSkin) {
    parent::RenderHdrBlocks();
}
    }
    protected function RenderFtrBlocks() {
if ($this->useSkin) {
    parent::RenderFtrBlocks();
}
    }
    protected function HandleInput() {
parent::HandleInput();
$strReq = $this->strReq;
$this->objCatPage = $this->Pages()->GetItem_byKey($strReq);
$objPage = $this->objCatPage;
$this->useSkin = TRUE;
 
if ($this->strReq) {
    if (is_object($objPage)) {
switch ($objPage->Type) {
case 'S':
  $this->DoCatSupp();
  break;
case 'D':
  $this->DoCatDept();
  break;
case 'T':
  $this->DoCatTitle();
  break;
case 'I':
  $this->useSkin = FALSE;
  $this->DoCatImage();
  break;
}
    } else {
$this->DoNotFound();
    }
} else {
    $this->DoCatHome();
}
    }
    public function DoContent() {
  echo $this->strContText;
    }
// SIDEBAR INFO for different types of pages
  private function DoCatIndicia() {
    $this->lstTop->Add('Section','<a href="'.KWP_CAT_REL.'">by supplier</a>');
  }
  private function DoSuppIndicia($iSupp,$isFinal=true) {
    $this->DoCatIndicia();
    if ($isFinal) {
      $this->lstTop->Add('Supplier',$iSupp->Name);
      $this->lstTop->Add('<a href="'.KWP_WIKI.$iSupp->Name.'">more info</a>');
    } else {
      $this->lstTop->Add('Supplier',$iSupp->Link());
    }
  }
  private function DoDeptIndicia($iDept,$isFinal=true) {
    $this->DoSuppIndicia($iDept->Supplier(),false);
    if ($isFinal) {
      $this->lstTop->Add('Dept.',$iDept->Name);
    } else {
      $this->lstTop->Add('Dept.',$iDept->LinkName());
    }
  }
  private function DoTitleIndicia($iTitle) {
    $this->DoDeptIndicia($iTitle->Dept(),false);
    $this->lstTop->Add('Title',$iTitle->Name);
    $this->lstTop->Add(' - catalog #',$iTitle->CatNum());
  }
 
 
  private function DoCatHome() {
    $this->DoCatIndicia();
    $this->strWikiPg = 'cat';
    $this->strTitle = 'Catalog Home';
    $this->strName = 'Catalog main page';
    $this->strTitleContext = 'hello and welcome to the...';
    $this->AddText($this->Suppliers()->DoHomePage());
  }
  private function DoCatSupp() {
    $objSuppTbl = $this->Suppliers();
    $objSupp = $objSuppTbl->GetItem($this->objCatPage->ID_Row);
    assert('is_object($objSupp)');
    $strSuppName = $objSupp->Name;
 
    $this->DoSuppIndicia($objSupp);
    $this->strWikiPg = 'supp:'.strtoupper($objSupp->CatKey);
    $this->strTitle = $strSuppName;
    $this->strName = 'listing for '.$strSuppName;
    $this->strTitleContext = '<a href="'.KWP_CAT_REL.'">Suppliers</a>: <b>'.$strSuppName.'</b>:';
    $this->AddText($objSupp->DoPage());
  }
  private function DoCatDept() {
    CallEnter($this,__LINE__,'clsPage.DoCatDept()');
 
//    $objDeptTbl = VbzClasses::Depts();
    $objDeptTbl = $this->Depts();
    $objDept = $objDeptTbl->GetItem($this->objCatPage->ID_Row);
    assert('is_object($objDept)');
    $objSupp = $objDept->Supplier();
    assert('is_object($objSupp)');
    $strDeptName = $objDept->Name;
    $strSuppName = $objSupp->Name;
    $strDeptLink = $objDept->LinkName();
    $strSuppLink = $objSupp->Link();
 
    $this->DoDeptIndicia($objDept);
    $this->strWikiPg = 'dept:'.strtoupper($objDept->PageKey);
 
    $this->strTitle = $strSuppName;
    $this->strName = $strDeptName.' dept. of '.$strSuppName;
    $this->strTitleContext = 'items <a href="'.KWP_CAT_REL.'">supplied</a> by '.$strSuppLink.'\'s <b>'.$strDeptName.'</b> department:';
    $this->AddText($objDept->DoPage());
    CallExit('clsPage.DoCatDept()');
  }
  private function DoCatTitle() {
    CallEnter($this,__LINE__,'clsPage.DoCatTitle()');
 
    $strPageKey = $this->objCatPage->Path;
//    $objTitleTbl = VbzClasses::Titles();
    $objTitleTbl = $this->Titles();
 
    $idRow = $this->objCatPage->ID_Row;
    $objTitle = $objTitleTbl->GetItem($idRow);
    assert('is_object($objTitle)');
    $objDept = $objTitle->Dept();
    assert('is_object($objDept)');
    $objSupp = $objDept->Supplier();
    assert('is_object($objSupp)');
    $strTitleName = $objTitle->Name;
 
    $this->DoTitleIndicia($objTitle);
 
//    $this->strAbbr = 'title:'.strtoupper($strCatNum);
    $this->strWikiPg = 'title:'.$objTitle->CatNum();
//print 'ABBR='.$this->strAbbr;
    $this->strTitle = $strTitleName;
    $this->strName = $strPageKey.' "'.$strTitleName.'" from '.$objSupp->Name;
    $this->strTitleContext =
      'items <a href="'.KWP_CAT_REL.
      '">supplied</a> by '.$objSupp->Link().'\'s '.
      $objDept->LinkName().' department:';
    $objTitle->hideImgs = $this->hideImgs;
    $this->AddText($objTitle->DoPage());
    CallExit('clsPage.DoCatTitle()');
  }
  private function DoCatImage() {
    CallEnter($this,__LINE__,'clsPage.DoCatImage()');
//    $objImageTbl = VbzClasses::Images();
    $objImageTbl = $this->Images();
    $objImage = $objImageTbl->GetItem($this->objCatPage->ID_Row);
    $objImage->DoPage();
    CallExit('clsPage.DoCatImage()');
  }
}
 
/* ===========================
*** CATALOG DATA CLASSES ***
*/
 
class clsCatPages extends clsVbzTable {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('cat_pages'); // cache
  //$this->Name('qryCat_pages'); // live data
  $this->KeyName('AB');
  $this->ClassSng('clsCatPage');
    }
    public function GetItem_byKey($iKey) {
CallEnter($this,__LINE__,__CLASS__.'.GetItem_byKey('.$iKey.')');
$strKey = trim($iKey,'/');
$strKey = str_replace('-','/',$strKey);
$sqlCatKey = $this->objDB->SafeParam($strKey);
// This function is named wrong, and needs to be rewritten anyway
// $this->Touch('clsCatPages.GetItem_byKey('.$iKey.')');
$objItem = $this->GetData('Path="'.$sqlCatKey.'"');
    //    $objRec = $this->objDB->Query($sql);
assert('is_object($objItem)');
if ($objItem->NextRow()) {
    DumpValue('objItem NumRows',$objItem->hasRows());
    CallExit('clsCatPages.GetItem_byKey('.$iKey.') -> Page '.$objItem->AB);
} else {
    CallExit('clsCatPages.GetItem_byKey('.$iKey.') -> no data');
}
return $objItem;
    }
}
 
class clsCatPage extends clsDataSet {
// == STATIC SECTION
//  const cksIDName = 'AB';
 
}
 
class clsSuppliers extends clsVbzTable {
// ==== STATIC SECTION
 
// ==== DYNAMIC SECTION
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('cat_supp');
  $this->KeyName('ID');
  $this->ClassSng('clsSupplier');
  $this->ActionKey('supp');
    }
    public function GetItem_byKey($iKey) {
CallEnter($this,__LINE__,__CLASS__.'.GetItem_byKey('.$iKey.')');
$sqlCatKey = $this->objDB->SafeParam($iKey);
$objItem = $this->GetData('CatKey="'.$sqlCatKey.'"');
CallExit(__CLASS__.'.GetItem_byKey('.$iKey.') -> new supplier');
return $objItem;
    }
    /*----
      HISTORY
2010-11-12 disabled automatic cache update
    */
    protected function DataSet_forStore($iClass=NULL) {
//$objCache = $this->objDB->CacheMgr();
//$objCache->Update_byName('_supplier_ittyps','clsSuppliers.DoHomePage()');
$sql = 'SELECT * FROM _supplier_ittyps ORDER BY Name, ItemCount DESC';
$objRows = $this->objDB->DataSet($sql,$iClass);
 
return $objRows;
    }
    public function DoHomePage() {
$out = '';
$objRec = $this->DataSet_forStore();
if ($objRec->hasRows()) {
    $objTbl = new clsPageOutput;
    $objTbl->StartTable('Suppliers');
    $strKeyLast = $outCell = '';
    while ($objRec->NextRow()) {
$strKey = $objRec->CatKey;
if ($strKey != $strKeyLast) {
    $strKeyLast = $strKey;
    $strKeyLink = strtolower($strKey).'/';
    if ($outCell) {
$objTbl->ColAdd($outCell);
$objTbl->RowStop();
$outCell = '';
    }
    $objTbl->RowStart();
    $objTbl->ColAdd('<b><a href="'.$strKeyLink.'">'.$objRec->Name.'</a></b>');
    $isFirst = true;
}
if ($isFirst) {
    $isFirst = false;
} else {
    $outCell .= ', ';
}
$strItType = $objRec->ItemType;
if ($strItType == '') {
    $strItType = '?id'.$objRec->ID;
}
$outCell .= ' <b>'.$objRec->ItemCount.'</b> '.$strItType;
    }
    $objTbl->ColAdd($outCell);
    $objTbl->RowStop();
    $out .= $objTbl->EndTable();
}
return $out;
    }
}
 
class clsSupplier extends clsDataSet {
    /*----
      ACTION: Finds the Item for this Supplier with the given supplier CatNum
      RETURNS: object of type requested by user; defaults to clsItem. NULL if not found.
      DEPRECATED -- use GetItem_bySCatNum()
    */
    public function GetItem_bySuppCatNum($iCatNum,$iClass=NULL) {
return $this->GetItem_bySCatNum($iCatNum);
    }
    /*----
      ACTION: Checks the given catalog number to see if it corresponds to a given item for the current supplier
      INPUT: supplier catalog number
      OUTPUT: item object (if found) or NULL (if not found)
      HISTORY:
2011-01-09 Moved here from VbzAdminSupplier; replaces GetItem_bySuppCatNum()
    */
    public function GetItem_bySCatNum($iSCat) {
$objTblItems = $this->objDB->Items();
 
$sqlFind = '(ID_Supp='.$this->ID.') AND (Supp_CatNum="'.$iSCat.'")';
$objItem = $objTblItems->GetData($sqlFind);
if ($objItem->HasRows()) {
    $objItem->NextRow();
    return $objItem;
} else {
    return NULL;
}
    }
    /*----
      ACTION: Finds the Title for this Supplier with the given CatKey
      RETURNS: object of type requested by user; defaults to clsVbzTitle. NULL if not found.
      HISTORY:
2010-11-07 Created for Title editing page -- need to check for duplicate CatKey before saving.
    */
    public function GetTitle_byCatKey($iCatKey,$iClass='clsVbzTitle') {
$sqlCatKey = $this->objDB->SafeParam($iCatKey);
$sqlFilt = '(ID_Supplier='.$this->ID.') AND (CatKey="'.$sqlCatKey.'")';
$objTitle = $this->objDB->Titles_Cat()->GetData($sqlFilt,$iClass);
if ($objTitle->HasRows()) {
    $objTitle->NextRow();
    return $objTitle;
} else {
    return NULL;
}
    }
    /*----
      ACTION: Searches for Titles whose CatKeys include the given string
      PURPOSE: used during renaming of supplier-recycled catalog numbers, so we can see if that number
has been recycled before and avoid having to repeatedly try new names
      HISTORY:
2010-11-08 Created for title editing page
    */
    public function GetTitles_byCatKey($iCatKey,$iClass='clsVbzTitle') {
$sqlCatKey = $this->objDB->SafeParam($iCatKey);
$sqlFilt = '(ID_Supplier='.$this->ID.') AND (CatKey LIKE "%'.$sqlCatKey.'%")';
$objTitle = $this->objDB->Titles_Cat()->GetData($sqlFilt,$iClass);
if ($objTitle->HasRows()) {
    $objTitle->NextRow();
    return $objTitle;
} else {
    return NULL;
}
    }
    protected function DeptsData_forCount($iClass='clsDept') {
$objTbl = $this->objDB->Depts();
$objRows = $objTbl->GetData('isActive AND (ID_Supplier='.$this->ID.')',$iClass,'Sort');
return $objRows;
    }
    /*----
      USED BY: $this->DeptsPage_forStore()
      RETURNS: array of data for the current supplier
array[rows] = source dataset -- each row is an ItTyp within a Department
array[depts][ID_Dept][ID_ItTyp] = count of items for sale by department and item type
array[supp][ID_ItTyp] = count of items for sale by item type
      HISTORY:
2011-02-02 switched data source from qryItTypsDepts_ItTyps to _dept_ittyps
  Page was not displaying at all. Some additional changes were necessary.
    */
    protected function DeptsData_forStore() {
if (is_null($this->arDeptsData)) {
    //$objRows = $this->objDB->DataSet('SELECT * FROM qryItTypsDepts_ItTyps WHERE ID_Supplier='.$this->ID);
    $objRows = $this->objDB->DataSet('SELECT * FROM _dept_ittyps WHERE ID_Supp='.$this->ID);
    while ($objRows->NextRow()) {
$idItTyp = $objRows->ID_ItTyp;
$intCntForSale = $objRows->cntForSale;
 
if (!isset($arObjs[$idItTyp])) {
    $objItTyp = $this->Engine()->ItTyps()->SpawnItem();
    $arObjs[$idItTyp] = $objItTyp;
 
    $objItTyp->Row['NameSng'] = $objRows->Value('ItTypNameSng');
    $objItTyp->Row['NamePlr'] = $objRows->Value('ItTypNamePlr');
    $objItTyp->Row['cntForSale'] = 0; // initialize the count
}
    // accumulate the list of everything this supplier has:
$idSupp = $objRows->ID_Supplier;
$objItTyp->Row['cntForSale'] += $intCntForSale;
    // accumulate the department listing:
$idDept = $objRows->Value('ID_Dept');
$arDeptCntForSale[$idDept][$idItTyp] = $intCntForSale;
    }
    $arOut['rows'] = $objRows;
    $arOut['depts'] = $arDeptCntForSale;
    $arOut['supp'] = $arObjs;
    $this->arDeptsData = $arOut;
}
return $this->arDeptsData;
    }
    /*----
      ACTION: Generates the item-type-count summary for the Supplier's index page
    */
    public function DoPiece_ItTyp_Summary() {
$arData = $this->DeptsData_forStore();
$arObjs = $arData['supp'];
 
$outRow = '';
foreach ($arObjs as $id=>$obj) {
    $objTyp = $obj;
    $cnt = $objTyp->Value('cntForSale');
    if ($cnt > 0) {
$strType = $objTyp->Name($cnt);
if ($outRow != '') {
    $outRow .= ', ';
}
$outRow .= '<b>'.$cnt.'</b> '.$strType;
    }
}
$out = '<span class=catalog-summary>'.$outRow.'</span>';
return $out;
    }
    /*----
      ACTION: Generates the table of departments and the summary of items available for each
    */
    public function DoPiece_Dept_ItTyps() {
$arData = $this->DeptsData_forStore();
$arObjs = $arData['supp'];
$arDeptCntForSale = $arData['depts'];
 
$out = '<table class=depts>';
$isOdd = FALSE;
$fpSupp = KWP_CAT_REL.strtolower($this->Value('CatKey')).'/';
foreach ($arDeptCntForSale as $idDept=>$arCnts) {
    $isOdd = !$isOdd;
    if ($isOdd) {
$cellOpen = '<td class=catalog-stripe valign=top>';
    } else {
$cellOpen = '<td class=catalog valign=top>';
    }
 
    $outRow = '';
    foreach ($arCnts as $id=>$cnt) {
if ($cnt > 0) {
    $objTyp = $arObjs[$id];
    $strType = $objTyp->Name($cnt);
    if ($outRow != '') {
$outRow .= ', ';
    }
    $outRow .= '<b>'.$cnt.'</b> '.$strType;
}
    }
    if ($outRow != '') {
$objDept = $this->objDB->Depts()->GetItem($idDept);
$strPageKey = $objDept->PageKey();
$strName = $objDept->Name;
 
$out .= '<tr>'.$cellOpen.'<a href="'.$fpSupp.strtolower($strPageKey).'/">'.$strName.'</a></td>';
$out .= $cellOpen.$outRow.'</td></tr>';
    }
}
$out .= '</table>';
return $out;
    }
    protected function DeptsPage_forStore() {
$out = $this->DoPiece_ItTyp_Summary();
$out .= $this->Engine()->SectionHdr('Departments:');
$out .= $this->DoPiece_Dept_ItTyps();
return $out;
    }
    public function DoPage() {
$out = '';
assert('$this->ID');
 
    // first, check how many departments supplier has:
//$objDeptTbl = $this->objDB->Depts();
//$objDepts = $objDeptTbl->GetData('isActive AND (ID_Supplier='.$this->ID.')','clsDept','Sort');
$objDepts = $this->DeptsData_forCount();
$intRows = $objDepts->RowCount();
 
if ($intRows == 1) {
    // if there's only one department, display that instead of a department listing
    $objDepts->NextRow(); // get the first/only dept
    $out = $objDepts->DoPage();
} else {
    $out .= $this->DeptsPage_forStore();
}
 
return $out;
    }
 
    public function ShopLink($iText=NULL) {
if (is_null($iText)) {
    $strText = $this->Name;
} else {
    $strText = $iText;
}
$out = '<a href="'.$this->URL().'">'.$strText.'</a>';
return $out;
    }
    public function Link() { return $this->ShopLink(); }
    public function URL() {
return KWP_CAT_REL.strtolower($this->CatKey).'/';
    }
}
class clsDepts extends clsVbzTable {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('cat_depts');
  $this->KeyName('ID');
  $this->ClassSng('clsDept');
  $this->ActionKey('dept');
    }
    protected function _newItem() {
CallStep('clsDepts._newItem()');
return new clsDept($this);
    }
 
// THIS FUNCTION IS DEPRECATED
/*
    public function DoListing_forSupp($iSuppID) {
CallEnter($this,__LINE__,'clsDepts.DoListing_forSupp('.$iSuppID.')');
//$objRows = $this->objDB->DataSet('SELECT * FROM qryItTypsDepts_ItTyps WHERE ID_Supplier='.$iSuppID);
$objRows = $this->Data_forStore();
while ($objRows->NextRow()) {
      $idItTyp = $objRows->ID_ItTyp;
      $intCntForSale = $objRows->cntForSale;
      $arTypSng[$idItTyp] = $objRows->ItTyp_Sng;
      $arTypPlr[$idItTyp] = $objRows->ItTyp_Plr;
 
// accumulate the list of everything this supplier has:
      $idSupp = $objRows->ID_Supplier;
      if (isset($arSuppCntForSale[$idItTyp])) {
  $arSuppCntForSale[$idItTyp] += $intCntForSale;
      } else {
  $arSuppCntForSale[$idItTyp] = $intCntForSale;
      }
 
// accumulate the department listing:
      $idDept = $objRows->ID_Dept;
      $arDeptCntForSale[$idDept][$idItTyp] = $intCntForSale;
}
 
// Now present the accumulated data:
  // - SUPPLIER:
$outRow = '';
foreach ($arSuppCntForSale as $idType=>$cnt) {
    if ($cnt == 1) {
$strType = $arTypSng[$idType];
    } else {
$strType = $arTypPlr[$idType];
    }
    if ($outRow != '') {
$outRow .= ', ';
    }
    $outRow .= '<b>'.$cnt.'</b> '.$strType;
}
$out = '<span class=catalog-summary>'.$outRow.'</span>';
 
  // - DEPARTMENTS:
$out .= '<p class=main><big>Departments:</big></p><table class=depts>';
$isOdd = FALSE;
foreach ($arDeptCntForSale as $idDept=>$arCnts) {
      $isOdd = !$isOdd;
      if ($isOdd) {
  $cellOpen = '<td class=catalog-stripe valign=top>';
      } else {
  $cellOpen = '<td class=catalog valign=top>';
      }
 
      $objDept = $this->objDB->Depts()->GetItem($idDept);
      $strPageKey = $objDept->PageKey();
      $strName = $objDept->Name;
      $out .= '<tr>'.$cellOpen.'<a href="'.strtolower($strPageKey).'/">'.$strName.'</a></td>';
      $outRow = '';
      foreach ($arCnts as $idType=>$cnt) {
  if ($cnt == 1) {
      $strType = $arTypSng[$idType];
  } else {
      $strType = $arTypPlr[$idType];
  }
  if ($outRow != '') {
      $outRow .= ', ';
  }
  $outRow .= '<b>'.$cnt.'</b> '.$strType;
      }
      $out .= $cellOpen.$outRow.'</td></tr>';
}
$out .= '</table>';
 
CallExit('clsDepts.DoListing_forSupp()');
return $out;
    }
/**/
}
class clsDept extends clsDataSet {
// object cache
    private $objSupp;
 
    public function SuppObj() {
if (is_object($this->objSupp)) {
    return $this->objSupp;
} else {
    $idSupp = $this->ID_Supplier;
    if ($idSupp) {
$this->objSupp = $this->objDB->Suppliers()->GetItem($idSupp);
return $this->objSupp;
    } else {
return NULL;
    }
}
    }
    // DEPRECATED -- use SuppObj()
    public function Supplier() {
return $this->SuppObj();
    }
    public function PageKey() {
if ($this->PageKey) {
    return $this->PageKey;
} else {
    return $this->CatKey;
}
    }
    /*----
      PURPOSE: loads data needed to display catalog views for this department
      HISTORY
2010-11-12 disabled automatic cache update
2010-11-16 changed sorting field from cntInPrint to cntForSale
2011-02-02 using _dept_ittyps now instead of qryItTypsDepts_ItTyps
  Also added "AND (cntForSale)" to WHERE clause -- not listing titles with nothing to sell
    */
    protected function Data_forStore() { // was GetDeptData()
//$objCache = $this->objDB->CacheMgr();
//$objCache->Update_byName('_dept_ittyps','clsDept.DoListing() for ID='.$this->ID);
//$sql = 'SELECT * FROM qryItTypsDepts_ItTyps WHERE (ID_Dept='.$this->ID.') ORDER BY cntForSale DESC';
$sql = 'SELECT * FROM _dept_ittyps WHERE (ID_Dept='.$this->ID.') AND (cntForSale) ORDER BY cntForSale DESC';
$objItTyps = $this->objDB->DataSet($sql,'clsItTyp');
return $objItTyps;
    }
    /*-----
      PURPOSE: Print this department's information as part of department list
      HISTORY:
2010-11-16 $cntAvail is now cntForSale, not cntInPrint+qtyInStock
    */
    public function DoListing() {
assert('$this->ID');
$objItTyps = $this->Data_forStore();
$isFirst = true;
$out = '';
while ($objItTyps->NextRow()) {
    if ($isFirst) {
$isFirst = false;
    } else {
$out .= ', ';
    }
    $cntInPrint = $objItTyps->cntInPrint;
    $qtyInStock = $objItTyps->qtyForSale;
    //$cntAvail = $cntInPrint + $qtyInStock;
    $cntForSale = $objItTyps->cntForSale;
    if ($cntAvail == 1) {
$strName = $objItTyps->ItTyp_Sng;
    } else {
$strName = $objItTyps->ItTyp_Plr;
    }
    $out .= ' <b>'.$cntAvail.'</b> '.$strName;
}
return $out;
    }
    /*----
      PURPOSE: Print page for current department
      ACTION:
* Iterates through item types available for this department.
* For each item type, prints header and then a list of titles.
      HISTORY:
2010-11-?? Started using cached table _title_ittyps instead of qryTitles_ItTyps_Titles
2010-11-16 $cntAvail is now cntForSale, not cntInPrint+qtyInStock
2011-02-02 $qtyInStock now set to Row['qtyInStock'], not Row['qtyForSale'] which didn't make sense anyway
    */
    public function DoPage() {
$out = '';
$idDept = $this->ID;
if (empty($idDept)) {
    throw new exception('Department object has no ID');
}
$objSection = new clsPageOutput();
// calculate the list of item types available in this department
$objItTyps = $this->Data_forStore();
$objTitles = new clsVbzTitle($this->objDB);
$objNoImgSect = new clsPageOutput();
$cntSections = 0;
while ($objItTyps->NextRow()) {
    $cntInPrint = $objItTyps->Row['cntInPrint'];
    $qtyInStock = $objItTyps->Row['qtyInStock'];
    $cntAvail = $objItTyps->Row['cntForSale'];
    if ($cntAvail) {
$cntSections++;
$idItTyp = $objItTyps->Row['ID_ItTyp'];
        $sql = 'SELECT *, ID_Title AS ID, TitleName AS Name, cntInStock FROM _title_ittyps WHERE ((cntForSale) AND (ID_ItTyp='.$idItTyp.') AND (ID_Dept='.$idDept.'));';
//$sql = 'SELECT t.ID_Title AS ID, t.* FROM qryTitles_ItTyps_Titles AS t WHERE (ID_ItTyp='.$idItTyp.') AND (ID_Dept='.$idDept.');';
$objTitles->Query($sql);
$arTitles = NULL;
if ($objTitles->hasRows()) {
    while ($objTitles->NextRow()) {
// add title to display list
$arTitles[] = $objTitles->Values(); // save it in a list
    }
    assert('is_array($arTitles)');
 
  // We've generated the list of titles for this section; now display the section header and titles:
    $out .= $this->objDB->ShowTitles($objItTyps->Row['ItTypNamePlr'].':',$arTitles,$objNoImgSect);
} else {
    echo 'ERROR: No titles found! SQL='.$sql;
}
$objSection->Clear();
    } else {
$out .= '<span class=main>Small coding error: this line should never happen.</span>'; // TO DO: log an error
    }
}
if (!$cntSections) {
    $out .= '<span class=main>This department appears to have been emptied of all leftover stock. (Eventually there will be a way to see what items used to be here.)</span>';
}
if ($objNoImgSect->inTbl) {
    $objNoImgSect->EndTable();
    $objSection->AddText($objNoImgSect->out);
    $objSection->EndTable();
    $out .= $objSection->out;
}
return $out;
    }
    public function URL_Rel() {
$strURL = $this->Supplier()->URL();
$strKey = $this->PageKey();
if ($strKey) {
    $strURL .= strtolower($strKey).'/';
}
return $strURL;
    }
    public function URL_Abs() {
return KWP_ROOT.$this->URL_Rel();
    }
    public function LinkName() {
$strURL = $this->URL_Rel();
return '<a href="'.$strURL.'">'.$this->Name.'</a>';
    }
    /*-----
      RETURNS: The string which, when prepended to a Title's CatKey, would form the Title's catalog number
    */
    public function CatPfx() {
$strFull = strtoupper($this->Supplier()->CatKey);
if ($this->AffectsCatNum()) {
    $strFull .= '-'.strtoupper($this->CatKey);
}
return $strFull.'-';
    }
    /*-----
      RETURNS: TRUE if this department affects the catalog number (i.e. if CatKey is non-blank)
    */
    public function AffectsCatNum() {
return ($this->CatKey != '');
    }
}
 
class clsVbzTitles extends clsVbzTable {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('cat_titles');
  $this->KeyName('ID');
  $this->ClassSng('clsVbzTitle');
    }
    public function Search_forText_SQL($iFind) {
return '(Name LIKE "%'.$iFind.'%") OR (`Desc` LIKE "%'.$iFind.'%")';
    }
    public function Search_forText($iFind) {
$sqlFilt = $this->Search_forText_SQL($iFind);
$rs = $this->GetData($sqlFilt);
return $rs;
    }
/*
ACTION: Finds a Title from a CatNum and returns an object for it
TO DO:
    Rename to Get_byCatNum()
    Stop using v_titles
*/
/* 2010-11-07 Is anything actually using this?
  public function GetItem_byCatNum($iCatNum) {
    global $objDataMgr;
 
    CallEnter($this,__LINE__,__CLASS__.'.GetItem_byCatNum('.$iCatNum.')');
    assert('is_object($this->objDB)');
    $sqlCatNum = strtoupper(str_replace('.','-',$iCatNum));
    $sqlCatNum = $this->objDB->SafeParam($sqlCatNum);
    $sql = 'SELECT * FROM v_titles WHERE CatNum="'.$sqlCatNum.'"';
//    $objTitle = new clsVbzTitleExt($this);
    $objTitle = new clsVbzTitle($this);
    // make sure _titles (part of v_titles) is up-to-date
    //$objDataMgr->Update_byName('_titles','GetItem_byCatNum('.$iCatNum.')');
    $objDataMgr->Update_byName('_depts','GetItem_byCatNum('.$iCatNum.')');
    // get data from v_titles
    $objTitle->Query($sql);
    $idTitle = $objTitle->ID;
    assert('is_resource($objTitle->Res)');
    if ($objTitle->RowCount()) {
      assert('$idTitle');
      $sql = 'SELECT * FROM titles WHERE ID='.$idTitle;
      $objTitle->dontLoadBasic = true;
      $objTitle->Query($sql);
      CallExit('clsVbzTitles.GetItem_byCatNum() -> ok');
      return $objTitle;
    } else {
      CallExit('clsVbzTitles.GetItem_byCatNum() -> NULL');
      return NULL;
    }
  }
*/
}
class clsVbzTitle extends clsDataSet {
// object cache
    private $objDept;
    private $objSupp;
// options
    public $hideImgs;
 
    public function Dept() {
$doLoad = FALSE;
if (empty($this->objDept)) {
    $doLoad = TRUE;
} else if (is_object($this->objDept)) {
    if ($this->ID_Dept != $this->objDept->ID) {
$doLoad = TRUE;
    }
} else {
    $doLoad = TRUE;
}
if ($doLoad) {
    $idDept = $this->ID_Dept;
    if (empty($idDept)) {
$objDept = NULL;
    } else {
$objDept = $this->objDB->Depts()->GetItem($idDept);
assert('is_object($objDept)');
    }
    $this->objDept = $objDept;
}
return $this->objDept;
    }
    /*----
      RETURNS: ID of this title's supplier
      HISTORY:
2011-09-28 revised to get ID directly from the new ID_Supp field
  instead of having to look up the Dept and get it from there.
    */
    public function Supplier_ID() {
/*
$objDept = $this->Dept();
$idSupp = $objDept->ID_Supplier;
*/
$idSupp = $this->Value('ID_Supp');
return $idSupp;
    }
    // DEPRECATED -- use SuppObj()
    public function Supplier() {
return $this->SuppObj();
    }
    public function SuppObj() {
$doLoad = FALSE;
if (empty($this->objSupp)) {
    $doLoad = TRUE;
} else if (is_object($this->objSupp)) {
    if ($this->ID_Supplier != $this->objSupp->ID) {
$doLoad = TRUE;
    }
} else {
    $doLoad = TRUE;
}
if ($doLoad) {
    $idSupp = $this->Supplier_ID();
    if (empty($idSupp)) {
$objSupp = NULL;
    } else {
$objSupp = $this->objDB->Suppliers()->GetItem($idSupp);
assert('is_object($objSupp)');
    }
    $this->objSupp = $objSupp;
}
return $this->objSupp;
    }
    public function Items() {
$sqlFilt = 'ID_Title='.$this->ID;
$objTbl = $this->objDB->Items();
$objRows = $objTbl->GetData($sqlFilt);
return $objRows;
    }
    public function Topics() {
$objTbl = $this->Engine()->TitleTopic_Topics();
$objRows = $objTbl->GetTitle($this->KeyValue());
return $objRows;
    }
    public function DoPage() {
$idTitle = $this->KeyValue();
assert('$idTitle');
$objSection = new clsPageOutput();
 
    // show "small" images
if (!$this->hideImgs) {
    $objImgs = $this->ListImages('sm');
    if ($objImgs->hasRows()) {
while ($objImgs->NextRow()) {
    $strImgTag = $objImgs->AttrDispl;
    $urlRel = $objImgs->Spec;
    $idImg = $objImgs->ID;
    //$strImg = '<img src="'.KWP_IMG_MERCH.$urlRel.'"';
    $strImg = '<img src="'.$objImgs->WebSpec().'"';
    if ($strImgTag) {
$strImg .= ' title="'.$strImgTag.'"';
    }
    $strImg .= '>';
    $objImgBig = $objImgs->ImgForSize('big');
    if (is_object($objImgBig)) {
if ($objImgBig->FirstRow()) {
    $strImg = $objImgBig->Href().$strImg.'</a>';
}
    }
    $objSection->AddText($strImg);
}
    } else {
      $objSection->ShowImgUnavail();
    }
}
 
// list topics for this title
$db = $this->Engine();
$tbl = $db->TitleTopic_Topics();
$tbl->doBranch(TRUE);
$rs = $tbl->GetTitle($idTitle);
if ($rs->hasRows()) {
    $txt = '<table align=right style="border: solid 1px; background: black;"><tr><td bgcolor=#333333>';
    $txt .= '<b>'.$db->Topics()->IndexLink('Topics').'</b>:';
    while ($rs->NextRow()) {
$txt .= '<br>- '.$rs->ShopLink();
    }
    $txt .= '</td></tr></table>';
    $objSection->AddText($txt);
}
 
// now list available items as table
//$sql = 'SELECT * FROM qryTitles_ItTyps_ItTyps WHERE (ID_Title='.$idTitle.') ORDER BY ItTyp_Sort IS NULL, ItTyp_Sort;';
$sql = 'SELECT * FROM _title_ittyps WHERE (ID_Title='.$idTitle.') ORDER BY ItTypSort IS NULL, ItTypSort;';
$rsTypes = $this->Engine()->DataSet($sql);
$isItem = FALSE;
if ($rsTypes->hasRows()) {
    if (KF_CART_ABSOLUTE) {
      $urlCart = KWP_CART_ABS;
    } else {
      $urlCart = KWP_CART_REL;
    }
    $objSection->AddText('<form method=post action="'.$urlCart.'"><input type=hidden name=from value=browse-multi>');
 
    $flagDisplayTogether = false; // hard-coded for now
 
    //$objStk = $this->Engine()->Items_Stock();
    $tblItems = $this->Engine()->Items();
    //$txtTblHdr = '<tr><th align=left>Option</th><th>Status</th><th align=right class=title-price>Price</th><th align=center class=orderQty>Order<br>Qty.</th><th><i>list<br>price</th></tr>';
    $txtTblHdr = $tblItems->Render_TableHdr();
    $txtInStock = $txtOutStock = '';
 
    while ($rsTypes->NextRow()) {
$idItTyp = $rsTypes->Value('ID_ItTyp');
assert('$idItTyp');
$sqlFilt = '(ID_Title='.$idTitle.') AND (ID_ItTyp='.$idItTyp.')';
$sqlSort = 'GrpSort,GrpDescr,ItOpt_Sort';
$rsItems = $tblItems->GetData($sqlFilt,NULL,$sqlSort);
//$idItType = 0;
 
$txtLine = '<tr class=typeHdr><td colspan=3><b>'.$rsTypes->Value('ItTypNamePlr').'</b>:</td></tr>';
 
if ($flagDisplayTogether) {
// displaying all items in a single listing
    $txtBoth .= $txtLine;
} else {
// set flags to determine which stock-status sections to show
    $cntInStock = $rsTypes->Value('cntInStock');
    $cntForSale = $rsTypes->Value('cntForSale');
    $cntOutStock = $cntForSale - $cntInStock;
 
    if ($cntInStock > 0) {
$txtInStock .= $txtLine;
    }
    if ($cntOutStock > 0) {
$txtOutStock .= $txtLine;
    }
}
// iterate through items for this type:
$strGrpLast = '';
while ($rsItems->NextRow()) {
    $strGrp = $rsItems->Value('GrpDescr');
    $qtyStk = $rsItems->Value('QtyIn_Stk');
    if ($strGrp != $strGrpLast) {
$strGrpLast = $strGrp;
$strGrpCode = $rsItems->Value('GrpCode');
$out = '<tr class="group">';
$out .= '<td colspan=5> &mdash; '.$strGrp;
if ($strGrpCode) {
    $out .= ' <font color=#666666>(<font color=#666699>'.$strGrpCode.'</font>)</font>';
}
$out .= '</td>';
$out .= '</tr>';
// this should probably be a subroutine...
if ($flagDisplayTogether) {
  $txtBoth .= $out;
} else {
  if ($qtyStk > 0) {
    $txtInStock .= $out;
  } else {
    $txtOutStock .= $out;
  }
}
    }
//echo '<br>GOT TO #1 - qty='.$qtyStk;
    if ($rsItems->Value('isForSale')) {
$isItem = TRUE;
$txtLine = $rsItems->Render_TableRow();
 
if ($flagDisplayTogether) {
    $txtBoth .= $txtLine;
} else {
    if ($qtyStk > 0) {
$txtInStock .= $txtLine;
    } else {
$txtOutStock .= $txtLine;
    }
}
    }
}
    }
 
// DO the actual display of the accumulated text
    $txtTblOpen = '<table class=main><tbody>';
    $txtTblFtr = '<tr><td colspan="4" align="right"><input value="Add to Cart" type="submit"></td></tr>';
    $txtTblShut = '</tbody></table>';
 
    if ($flagDisplayTogether) {
// Display in-stock and backordered items together
$objSection->AddText($txtTblOpen);
$objSection->AddText($txtTblHdr);
$objSection->AddText($txtBoth);
$objSection->AddText($txtTblFtr);
$objSection->AddText($txtTblShut);
    } else {
if ($txtInStock != '') {
    $txtClause = Pluralize($cntInStock,'This item is','These items are');
    $objSection->AddText($txtTblOpen);
    $objSection->AddText('<tr class=inStock><td colspan=5>'.$txtClause.' in stock:</td></tr>');
    $objSection->AddText($txtTblHdr);
    $objSection->AddText($txtInStock);
    $objSection->AddText($txtTblFtr);
    $objSection->AddText($txtTblShut);
}
 
if (!empty($txtOutStock)) {
    if (!empty($txtInStock)) {
$objSection->AddText('<p>');
    }
    $txtClause = Pluralize($cntOutStock,'This item is','These items are');
    $objSection->AddText($txtTblOpen);
    $objSection->AddText('<tr><td colspan=5>'.$txtClause.' <a href="'.KWP_HELP_NO_STOCK_BUT_AVAIL.'"><b>not in stock</b></a>');
    $txtClause = Pluralize($cntOutStock,'it','them');
    $objSection->AddText(', but we can (probably) <a href="'.KWP_HELP_POLICY_SHIP.'">get '.$txtClause.'</a>:</td></tr>');
    $objSection->AddText($txtTblHdr);
    $objSection->AddText($txtOutStock);
    $objSection->AddText($txtTblFtr);
    $objSection->AddText($txtTblShut);
} /**/
    }
    $objSection->AddText('</form>');
}
if (!$isItem) {
    $objSection->SectionHdr('This title is currently unavailable');
}
return $objSection->out."\n<!-- TITLE ID=$idTitle -->\n";
    }
    /*----
      RETURNS: Array containing summary information about this title
    */
    public function Indicia(array $iarAttr=NULL) {
$objItems = $this->Items();
$intActive = 0;
$intRetired = 0;
if ($objItems->HasRows()) {
    while ($objItems->NextRow()) {
if ($objItems->isForSale) {
    $intActive++;
} else {
    $intRetired++;
}
    }
}
// "dark-bg" brings up link colors for a dark background
$arLink = array('class'=>'dark-bg');
// merge in any overrides or additions from iarAttr:
if (is_array($iarAttr)) {
    $arLink = array_merge($arLink,$iarAttr);
}
$htLink = $this->Link($arLink);
$txtCatNum = $this->CatNum();
$txtName = $this->Name;
 
$arOut['cnt.active'] = $intActive;
$arOut['cnt.retired'] = $intRetired;
$arOut['txt.cat.num'] = $txtCatNum;
$arOut['ht.link.open'] = $htLink;
$arOut['ht.cat.line'] = $htLink.$txtCatNum.'</a> '.$txtName;
 
return $arOut;
    }
    /*----
      RETURNS: Array containing summaries of ItTyps in which this Title is available
array['text.!num'] = plaintext version with no numbers (types only)
array['text.cnt'] = plaintext version with line counts
array['html.cnt'] = HTML version with line counts
array['html.qty'] = HTML version with stock quantities
      HISTORY:
2011-01-23 written
    */
    public function Summary_ItTyps($iSep=', ') {
$dsRows = $this->DataSet_ItTyps();
$outTextNoQ = $outTextType = $outTextCnt = $outHTMLCnt = $outHTMLQty = NULL;
if ($dsRows->HasRows()) {
    $isFirst = TRUE;
    while ($dsRows->NextRow()) {
$cntType = $dsRows->Value('cntForSale');
if ($cntType > 0) {
    $qtyStk = $dsRows->Value('qtyInStock');
    $txtSng = $dsRows->Value('ItTypNameSng');
    $txtPlr = $dsRows->Value('ItTypNamePlr');
    $strType = Pluralize($cntType,$txtSng,$txtPlr);
    if ($isFirst) {
$isFirst = FALSE;
    } else {
$outTextType .= $iSep;
$outTextCnt .= $iSep;
$outHTMLCnt .= $iSep;
if (!is_null($outHTMLQty)) {
    $outHTMLQty .= $iSep;
}
    }
    $outTextType .= $txtSng;
    $outTextCnt .= $cntType.' '.$strType;
    $outHTMLCnt .= '<b>'.$cntType.'</b> '.$strType;
    if (!empty($qtyStk)) {
$outHTMLQty .= '<b>'.$qtyStk.'</b> '.Pluralize($qtyStk,$txtSng,$txtPlr);
    }
}
    }
}
$arOut['text.!num'] = $outTextType;
$arOut['text.cnt'] = $outTextCnt;
$arOut['html.cnt'] = $outHTMLCnt;
$arOut['html.qty'] = $outHTMLQty;
return $arOut;
    }
// LATER: change name to DataSet_Images() to clarify that this returns a dataset, not a text list or array
    public function ListImages($iSize) {
$sqlFilt = '(ID_Title='.$this->ID.') AND (Ab_Size="'.$iSize.'") AND isActive';
$objImgs = $this->objDB->Images()->GetData($sqlFilt,'clsImage','AttrSort');
return $objImgs;
    }
    /*----
      RETURNS: dataset of item types for this title
      USES: _title_ittyps (cached table)
      HISTORY:
2011-01-19 written
    */
    public function DataSet_ItTyps() {
$sql = 'SELECT * FROM _title_ittyps WHERE ID_Title='.$this->KeyValue();
$obj = $this->Engine()->DataSet($sql,'clsTitleIttyp');
return $obj;
    }
    /*----
      HISTORY:
2010-10-19 added optimization to fetch answer from CatKey field if it exists.
  This may cause future problems. Remove $iSep field and create individual functions
  if so.
    */
    public function CatNum($iSep='-') {
      if (empty($this->Row['CatNum'])) {
  $objDept = $this->Dept();
  if (is_object($objDept)) {
      $objSupp = $objDept->Supplier();
      $strDeptKey = $objDept->CatKey;
      $strOut = $objSupp->CatKey;
      if ($strDeptKey) {
$strOut .= $iSep.$strDeptKey;
      }
  } else {
      $strOut = '?';
  }
  $strOut .= $iSep.$this->CatKey;
      } else {
  $strOut = $this->CatNum;
      }
      return strtoupper($strOut);
    }
  public function URL_part() {
    return strtolower($this->CatNum('/'));
  }
  public function URL($iBase=KWP_CAT_REL) {
    return $iBase.$this->URL_part();
  }
    public function Link(array $iarAttr=NULL) {
$strURL = $this->URL();
$htAttr = ArrayToAttrs($iarAttr);
return '<a'.$htAttr.' href="'.$strURL.'">';
    }
  public function LinkAbs() {
    $strURL = $this->URL(KWP_CAT);
    return '<a href="'.$strURL.'">';
  }
  public function LinkName() {
    return $this->Link().$this->Name.'</a>';
  }
/* 2010-11-06 if this is needed, use a method in SpecialVbzAdmin
  public function LinkName_wt() {
// TO DO: make this more configurable
    $out = '[[vbznet:cat/'.$this->URL_part().'|'.$this->Name.']]';
    return $out;
  }
*/
}
 
/*====
  PURPOSE: TITLE/ITTYP hybrid
  TABLE: _title_ittyps
*/
class clsTitleIttyp extends clsDataSet {
// object cache
  private $objIttyp;
 
  public function Ittyp() {
    if (is_null($this->objIttyp)) {
      $this->objIttyp = VbzClasses::ItTyps()->GetItem($this->ID_ItTyp);
    }
    return $this->objIttyp;
  }
}
/* -------------------- *\
    ITEM classes
\* -------------------- */
class clsItems extends clsVbzTable {
 
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('cat_items');
  $this->KeyName('ID');
  $this->ClassSng('clsItem');
    }
    /*----
      ACTION: Finds the Item with the given CatNum, and returns a clsItem object
    */
    public function Get_byCatNum($iCatNum) {
$sqlCatNum = $this->objDB->SafeParam(strtoupper($iCatNum));
$objItem = $this->GetData('CatNum="'.$sqlCatNum.'"');
if ($objItem->HasRows()) {
    $objItem->NextRow();
    return $objItem;
} else {
    return NULL;
}
    }
    public function Search_byCatNum($iCatNum) {
$sqlCatNum = $this->objDB->SafeParam(strtoupper($iCatNum));
$objItem = $this->GetData('CatNum LIKE "%'.$sqlCatNum.'%"');
if ($objItem->HasRows()) {
    return $objItem;
} else {
    return NULL;
}
    }
    /*----
      RETURNS: Table header for list of available items on catalog Title pages
      HISTORY:
2011-01-24 created/corrected from code in Title page-display function
    */
    public function Render_TableHdr() {
return '<tr>'
  .'<th align=left>Option</th>'
  .'<th>Status</th>'
  .'<th align=center><i>List<br>Price</th>'
  .'<th align=center class=title-price>Our<br>Price</th>'
  .'<th align=center class=orderQty>Order<br>Qty.</th>'
  .'</tr>';
    }
}
/* ===============
CLASS: clsItem
NOTES:
  * "in stock" always refers to stock for sale, not stock which has already been purchased
  * 2009-12-03: The above note does not clarify anything.
  * Four methods were moved here from clsShopCartLine in shop.php: ItemSpecs(), ItemDesc(), ItemDesc_ht(), ItemDesc_wt()
    They are used for displaying a full description of an item, in both shop.php and SpecialVbzAdmin
*/
class clsItem extends clsDataSet {
// object cache
    private $objTitle;
    private $objItTyp;
    private $objItOpt;
 
    public function CatNum() {
return $this->Value('CatNum');
    }
    public function DescSpecs(array $iSpecs=NULL) {
if (is_null($iSpecs)) {
    $this->objTitle = $this->Title();
    $this->objItTyp = $this->ItTyp();
    $this->objItOpt = $this->ItOpt();
 
    $out['tname'] = $this->objTitle->Name;
    $out['ittyp'] = $this->objItTyp->Name($this->Qty);
    $out['itopt'] = $this->objItOpt->Descr;
    return $out;
} else {
    return $iSpecs;
}
    }
    public function DescLong(array $iSpecs=NULL) { // plaintext
if (is_null($this->Value('Descr'))) {
    $sp = $this->DescSpecs($iSpecs);
 
    $strItOpt = $sp['itopt'];
 
    $out = '"'.$sp['tname'].'" ('.$sp['ittyp'];
    if (!is_null($strItOpt)) {
$out .= ' - '.$strItOpt;
    }
    $out .= ')';
} else {
    $out = $this->Value('Descr');
}
 
return $out;
    }
    public function DescLong_ht(array $iSpecs=NULL) { // as HTML
$sp = $this->DescSpecs($iSpecs);
 
$htTitleName = '<i>'.$this->Title()->LinkName().'</i>';
$strItOpt = $sp['itopt'];
 
$out = $htTitleName.' ('.$sp['ittyp'];
if (!is_null($strItOpt)) {
    $out .= ' - '.$strItOpt;
}
$out .= ')';
 
return $out;
    }
    /*-----
      ASSUMES:
  This item is ForSale, so isForSale = true and (qtyForSale>0 || isInPrint) = true
      HISTORY:
  2011-01-24 Renamed Print_TableRow() -> Render_TableRow; corrected to match header
    */
    public function Render_TableRow() {
$arStat = $this->AvailStatus();
$strCls = $arStat['cls'];


// CONSTANTS
$out = '<tr class='.$strCls.'><!-- ID='.$this->ID.' -->';
// -- KF = boolean flag
$out .= '<td>&emsp;'.$this->Value('ItOpt_Descr').'</td>';
// -- KS = string
$out .= '<td>'.$arStat['html'].'</td>';
// -- KWP = web path (URL including protocol)
$out .= '<td align=right><i>'.DataCurr($this->Value('PriceList')).'</i></td>';
// -- KFP = file path
$out .= '<td align=right>'.DataCurr($this->Value('PriceSell')).'</td>';
// -- KRP = relative path
$out .= '<td>'.'<input size=3 name="qty-'.$this->Value('CatNum').'"></td>';
$fltStart = microtime(true);
$out .= '</tr>';
// debugging activation
return $out;
define('KDO_DEBUG',0);
    }
define('KDO_DEBUG_STACK',0);
    /*----
// debugging options
      ACTION: Returns an array with human-friendly text about the item's availability status
define('KDO_DEBUG_HTML',1);
      RETURNS:
define('KDO_DEBUG_IMMED',1);
array['html']: status text, in HTML format
define('KDO_DEBUG_DARK',0);
array['cls']: class to use for displaying item row in a table
define('KF_USE_WIKI',true);
      USED BY: Render_TableRow()
// 2008-06-07 force absolute URL for cart until we fix the domain-cookie problem
      NOTE: This probably does not actually need to be a separate method; I thought I could reuse it to generate
define('KF_CART_ABSOLUTE',true);
status for titles, but that doesn't make sense. Maybe it will be easier to adapt, though, as a separate method.
      HISTORY:
2010-11-16 Modified truth table for in-print status so that if isInPrint=FALSE, then status always shows
  "out of print" even if isCurrent=FALSE. What happens when a supplier has been discontinued? Maybe we need to
  check that separately. Wait for an example to come up, for easier debugging.
2011-01-24 Corrected to use cat_items fields
    */
    private function AvailStatus() {
//echo 'SQL=['.$this->sqlMake.']';
//echo '<pre>'.print_r($this->Row,TRUE).'</pre>';
      $qtyInStock = $this->Value('QtyIn_Stk');
if ($qtyInStock) {
    $strCls = 'inStock';
    $strStk = $qtyInStock.' in stock';
} else {
    $strCls = 'noStock';
    $strStk = 'none in stock';
}
$isInPrint = $this->Value('isInPrint');
if ($isInPrint) {
    if ($this->Value('isCurrent')) {
    if ($qtyInStock) {
$txt = $strStk.'; more available';
    } else {
$txt = '<a title="explanation..." href="'.KWP_HELP_NO_STOCK_BUT_AVAIL.'">available, not in stock</a>';
    }
    } else {
if ($qtyInStock) {
    $txt = $strStk.'; in-print status uncertain';
} else {
    $txt = $strStk.'; availability uncertain';
}
    }
} else {
    if (is_null($isInPrint)) {
$txt = '<b>'.$strStk.'</b> - <i>possibly out of print</i>';
    } else {
$txt = '<b>'.$strStk.'</b> - <i>out of print!</i>';
    }
}
$arOut['html'] = $txt;
$arOut['cls'] = $strCls;
return $arOut;
    }
 
  public function Title() {
      $doLoad = TRUE;
      if (is_object($this->objTitle)) {
  if ($this->objTitle->ID == $this->ID_Title) {
      $doLoad = FALSE;
  }
      }
      if ($doLoad) {
  $this->objTitle = $this->objDB->Titles()->GetItem($this->ID_Title);
      }
      return $this->objTitle;
  }
  public function Supplier() {
      return $this->Title()->Supplier();
  }
  public function ItTyp() {
      $doLoad = TRUE;
      if (is_object($this->objItTyp)) {
  if ($this->objItTyp->ID == $this->ID_ItTyp) {
      $doLoad = FALSE;
  }
      }
      if ($doLoad) {
  $this->objItTyp = $this->objDB->ItTyps()->GetItem($this->ID_ItTyp);
      }
      return $this->objItTyp;
  }
  public function ItOpt() {
    $doLoad = TRUE;
    if (is_object($this->objItOpt)) {
      if ($this->objItOpt->ID == $this->ID_ItOpt) {
        $doLoad = FALSE;
      }
    }
    if ($doLoad) {
      $this->objItOpt = $this->objDB->ItOpts()->GetItem($this->ID_ItOpt);
    }
    return $this->objItOpt;
  }
    // DEPRECATED - use ShipCostObj()
    public function ShCost() {
return $this->ShipCostObj();
    }
    /*----
      HISTORY:
2010-10-19 created from contents of ShCost()
    */
    public function ShipCostObj() {
$doLoad = FALSE;
if (empty($this->objShCost)) {
    $doLoad = TRUE;
} elseif ($this->objShCost->ID != $this->ID_ShipCost) {
    $doLoad = TRUE;
}
if ($doLoad) {
    $this->objShCost = $this->objDB->ShipCosts()->GetItem($this->ID_ShipCost);
}
return $this->objShCost;
    }
    /*----
      RETURNS: The item's per-item shipping price for the given shipping zone
      FUTURE: Rename to ShPerItm_forZone()
    */
    public function ShipPriceItem($iZone) {
global $listItmFactors;
 
$fltZoneFactor = $listItmFactors[$iZone];
$objSh = $this->ShipCostObj();
return $objSh->PerItem * $fltZoneFactor;
    }
    /*----
      RETURNS: The item's per-package shipping price for the given shipping zone
      FUTURE: Rename to ShPerPkg_forZone()
    */
    public function ShipPricePkg($iZone) {
global $listPkgFactors;
 
$fltZoneFactor = $listPkgFactors[$iZone];
return $this->ShipCostObj()->PerPkg * $fltZoneFactor;
    }
    /*----
      RETURNS: The item's per-item shipping price, with no zone calculations
      FUTURE: need to handle shipping zone more gracefully and rigorously
This function is currently only used in the admin area, so does not need
to be infallible.
    */
    public function ShPerItm() {
return $this->ShipCostObj()->Value('PerItem');
    }
    /*----
      RETURNS: The item's per-package shipping price, with no zone calculations
      FUTURE: need to handle shipping zone more gracefully and rigorously
This function is currently only used in the admin area, so does not need
to be infallible.
    */
    public function ShPerPkg() {
return $this->ShipCostObj()->Value('PerPkg');
    }
}
/*====
  PURPOSE: clsItems with additional catalog information
*/
class clsItems_info_Cat extends clsItems {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('qryCat_Items');
  //$this->ClassSng('clsItem_info_Cat');
    }
}
/* -------------------- *\
    ITEM TYPE classes
\* -------------------- */
class clsItTyps extends clsVbzTable {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('cat_ittyps');
  $this->KeyName('ID');
  $this->ClassSng('clsItTyp');
    }
    // BOILERPLATE - cache
    protected $objCache;
    protected function Cache() {
if (!isset($this->objCache)) {
    $this->objCache = new clsCache_Table($this);
}
return $this->objCache;
    }
    public function GetItem_Cached($iID=NULL,$iClass=NULL) {
return $this->Cache()->GetItem($iID,$iClass);
    }
/*
    public function GetData_Cached($iWhere=NULL,$iClass=NULL,$iSort=NULL) {
return $this->Cache()->GetData($iWhere,$iClass,$iSort);
    }
*/
    /*----
      FUTURE:
* This method really belongs with Admin functions, since it will never be used in the standalone store
* If table ever grows to a significant size, we might end up changing the filtering criteron.
      HISTORY:
2010-11-21 Adapted from clsFolders.
    */
    public function DropDown($iName=NULL,$iDefault=NULL,$iChoose=NULL) {
$strName = is_null($iName)?($this->Table->ActionKey()):$iName;
$arRows = $this->Cache()->GetData_array('isType',NULL,'Sort, NameSng');
$out = $this->DropDown_for_array($arRows,$strName,$iDefault,$iChoose);
return $out;
    }
    /*----
      ACTION: same as clsItTyp::DropDown_for_rows, but takes an array
      HISTORY:
2011-02-11 wrote
    */
    public function DropDown_for_array(array $iRows,$iName=NULL,$iDefault=NULL,$iChoose=NULL) {
$strName = is_null($iName)?($this->Table->ActionKey()):$iName;
$objRow = $this->SpawnItem();
foreach($iRows as $key => $row) {
    $objRow->Values($row);
    $arList[$key] = $objRow->Name();
}
return DropDown_arr($strName,$arList,$iDefault,$iChoose);
    }
}
/*====
  CLASS: Item Type (singular)
*/
class clsItTyp extends clsDataSet_bare {
    /*----
      HISTORY:
2011-02-02 removed the IsNew() check because sometimes we want to use this
  on data which has not been associated with an ID
    */
    public function Name($iCount=NULL) {
if (is_null($iCount)) {
    if (isset($this->Row['cntInPrint'])) {
$iCount = $this->Row['cntInPrint'];
    } else {
$iCount = 1; // default: use singular
    }
}
if ($iCount == 1) {
    $out = array_key_exists('NameSng',$this->Row)?$this->Row['NameSng']:NULL;
} else {
    $out = array_key_exists('NamePlr',$this->Row)?$this->Row['NamePlr']:NULL;
}
return $out;
    }
    /*----
      ACTION: Shows a drop-down selection box contining the rows in the current dataset
      FUTURE:
* This method really belongs with Admin functions, since it will never be used in the standalone store
    */
    public function DropDown_for_rows($iName=NULL,$iDefault=NULL,$iChoose=NULL) {
$strName = is_null($iName)?($this->Table->ActionKey()):$iName;
if ($this->HasRows()) {
    $out = '<select name="'.$strName.'">';
    if (!is_null($iChoose)) {
$out .= '<option>'.$iChoose.'</option>';
    }
    while ($this->NextRow()) {
$id = $this->Row['ID'];
if ($id == $iDefault) {
    $htSelect = " selected";
} else {
    $htSelect = '';
}
$out .= '<option'.$htSelect.' value="'.$id.'">'.$this->Name().'</option>';
    }
    $out .= '</select>';
} else {
    $out = 'No item types found.';
}
return $out;
    }
}
/* -------------------- *\
    ITEM OPTION classes
\* -------------------- */
class clsItOpts extends clsVbzTable {
  public function __construct($iDB) {
    parent::__construct($iDB);
      $this->Name('cat_ioptns');
      $this->KeyName('ID');
      $this->ClassSng('clsItOpt');
  }
    // ==BOILERPLATE - cache
    protected $objCache;
    protected function Cache() {
if (!isset($this->objCache)) {
    $this->objCache = new clsCache_Table($this);
}
return $this->objCache;
    }
    public function GetItem_Cached($iID=NULL,$iClass=NULL) {
return $this->Cache()->GetItem($iID,$iClass);
    }
    // ==/BOILERPLATE
    /*----
      FUTURE:
* This method really belongs with Admin functions, since it will never be used in the standalone store
* If table ever grows to a significant size, we might end up changing the filtering criteron.
* Actually, this should be a boilerplate function with a helper class. The only change from clsItTyps
  is the GetData filter and sorting.
      HISTORY:
2010-11-21 Adapted from clsItTyps
    */
    public function DropDown($iName=NULL,$iDefault=NULL,$iChoose=NULL) {
$strName = is_null($iName)?($this->Table->ActionKey()):$iName;
$arRows = $this->Cache()->GetData_array(NULL,NULL,'Sort');
$out = $this->DropDown_for_array($arRows,$strName,$iDefault,$iChoose);
return $out;
    }
    /*----
      ACTION: same as clsItTyp::DropDown_for_rows, but takes an array
      HISTORY:
2011-02-11 wrote
    */
    public function DropDown_for_array(array $iRows,$iName=NULL,$iDefault=NULL,$iChoose=NULL) {
$strName = is_null($iName)?($this->Table->ActionKey()):$iName;
$objRow = $this->SpawnItem();
foreach($iRows as $key => $row) {
    $objRow->Values($row);
    $arList[$key] = $objRow->ChoiceLine();
}
return DropDown_arr($strName,$arList,$iDefault,$iChoose);
    }
}
class clsItOpt extends clsDataSet {
    /*----
      RETURNS: Approximately as much description as will fit nicely into a choice line for a drop-down or selection box
    */
    public function ChoiceLine() {
return $this->Value('CatKey');
    }
}
/* -------------------- *\
    SHIP COST classes
\* -------------------- */
class clsShipCosts extends clsVbzTable {
  public function __construct($iDB) {
    parent::__construct($iDB);
      $this->Name('cat_ship_cost');
      $this->KeyName('ID');
      $this->ClassSng('clsShipCost');
  }
    // ==BOILERPLATE - cache
    protected $objCache;
    protected function Cache() {
if (!isset($this->objCache)) {
    $this->objCache = new clsCache_Table($this);
}
return $this->objCache;
    }
    public function GetItem_Cached($iID=NULL,$iClass=NULL) {
return $this->Cache()->GetItem($iID,$iClass);
    }
    // ==/BOILERPLATE
    /*----
      FUTURE:
* This method really belongs with Admin functions, since it will never be used in the standalone store
* If table ever grows to a significant size, we might end up changing the filtering criteron.
* Actually, this should be a boilerplate function with a helper class. The only change from clsItTyps
  is the GetData filter and sorting.
      HISTORY:
2010-11-21 Adapted from clsItTyps
    */
    public function DropDown($iName=NULL,$iDefault=NULL,$iChoose=NULL) {
$strName = is_null($iName)?($this->Table->ActionKey()):$iName;
$arRows = $this->Cache()->GetData_array(NULL,NULL,'Sort');
$out = $this->DropDown_for_array($arRows,$strName,$iDefault,$iChoose);
return $out;
    }
    /*----
      ACTION: same as clsItTyp::DropDown_for_rows, but takes an array
      HISTORY:
2011-02-11 wrote
    */
    public function DropDown_for_array(array $iRows,$iName=NULL,$iDefault=NULL,$iChoose=NULL) {
$strName = is_null($iName)?($this->Table->ActionKey()):$iName;
$objRow = $this->SpawnItem();
foreach($iRows as $key => $row) {
    $objRow->Values($row);
    $arList[$key] = $objRow->ChoiceLine();
}
return DropDown_arr($strName,$arList,$iDefault,$iChoose);
    }
}
class clsShipCost extends clsDataSet {
    /*----
      RETURNS: Approximately as much description as will fit nicely into a choice line for a drop-down or selection box
    */
    public function ChoiceLine() {
return $this->Value('Descr');
    }
}
/* -------------------- *\
    STOCK ITEM classes
\* -------------------- */
/*====
  CLASS PAIR: Items_Stock
  PURPOSE: items with stock information (from a query or cache)
    Similar to clsItem, but with different fields
  HISTORY:
    2011-01-24 disabled -- use cat_items (has all necessary fields cached)
*/
/*
class clsItems_Stock extends clsItems {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('qryCat_Items_Stock');
  //$this->Name('_title_ittyps'); // WRONG! This GROUPS the data, no Items.
  $this->KeyName('ID');
  $this->ClassSng('clsItem_Stock');
    }
    public function Render_TableHdr() {
return '<tr>'
  .'<th align=left>Option</th>'
  .'<th>Status</th>'
  .'<th align=right class=title-price>Price</th>'
  .'<th align=center class=orderQty>Order<br>Qty.</th>'
  .'<th><i>list<br>price</th>'
  .'</tr>';
    }
}
*/
//class clsItem_Stock extends clsItem {
    /*-----
      ASSUMES:
  This item is ForSale, so isForSale = true and (qtyForSale>0 || isInPrint) = true
  This item's data was generated by clsItems_Stock
      TO DO: create a separate clsItem_Stock class and move this method there.
      TO DO: this method isn't named or structured canonically; consider refactoring. Whatever that means.
      HISTORY:
  2011-01-24 moved from clsItem to clsItem_Stock
    */
/*
    public function Render_TableRow() {
$arStat = $this->AvailStatus();
$strCls = $arStat['cls'];
 
$out = '<tr class='.$strCls.'><!-- ID='.$this->ID.' -->';
$out .= '<td>&emsp;'.$this->ItOpt_Descr.'</td>';
$out .= '<td>'.$arStat['html'].'</td>';
$out .= '<td>'.DataCurr($this->PriceSell).'</td>';
$out .= '<td>'.'<input size=3 name="qty-'.$this->CatNum.'"></td>';
if ($this->PriceList) {
    $out .= '<td><i>'.DataCurr($this->PriceList).'</i></td>';
}
$out .= '</tr>';
return $out;
    }
*/
    /*----
      ACTION: Returns an array with human-friendly text about the item's availability status
      RETURNS:
array['html']: status text, in HTML format
array['cls']: class to use for displaying item row in a table
      USED BY: Print_TableRow()
      NOTE: This probably does not actually need to be a separate method; I thought I could reuse it to generate
status for titles, but that doesn't make sense. Maybe it will be easier to adapt, though, as a separate method.
      HISTORY:
2010-11-16 Modified truth table for in-print status so that if isInPrint=FALSE, then status always shows
  "out of print" even if isCurrent=FALSE. What happens when a supplier has been discontinued? Maybe we need to
  check that separately. Wait for an example to come up, for easier debugging.
2011-01-24 Adapted from clsItem (was it being used there, for real?) to clsItem_Stock
    */
/*
/*
GET CONNECTED TO LIBRARIES
    private function AvailStatus() {
//echo 'SQL=['.$this->sqlMake.']';
//echo '<pre>'.print_r($this->Row,TRUE).'</pre>';
      $qtyInStock = $this->Value('qtyForSale');
if ($qtyInStock) {
    $strCls = 'inStock';
    $strStk = $qtyInStock.' in stock';
} else {
    $strCls = 'noStock';
    $strStk = 'none in stock';
}
if ($this->Value('isInPrint')) {
    if ($this->Value('isCurrent')) {
    if ($qtyInStock) {
$txt = $strStk.'; more available';
    } else {
$txt = '<a title="explanation..." href="'.KWP_HELP_NO_STOCK_BUT_AVAIL.'">available, not in stock</a>';
    }
    } else {
if ($qtyInStock) {
    $txt = $strStk.'; in-print status uncertain';
} else {
    $txt = $strStk.'; availability uncertain';
}
    }
} else {
    $txt = '<b>'.$strStk.'</b> - <i>out of print!</i>';
}
$arOut['html'] = $txt;
$arOut['cls'] = $strCls;
return $arOut;
    }
}
*/
*/
class clsStkItems extends clsVbzTable {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('stk_items');
  $this->KeyName('ID');
    }
    /*-----
      RETURNS: Recordset containing list of stock for the given item (qtys, bin, bin name, place, place name, notes)
    */
    public function List_forItem($iItemID) {
$sql = 'SELECT '
  .'ID, QtyForSale, QtyForShip, QtyExisting, ID_Bin, ID_Place, BinCode, WhName, Notes '
  .'FROM qryStk_lines_remaining WHERE (ID_Item='.$iItemID.');';
$objStock = $this->objDB->DataSet($sql,$this->ClassSng());
$objStock->Table = $this;
return $objStock;
    }
/* (2010-06-15) This doesn't seem to be used anywhere, and possibly does not work.
    public function QtyInStock_forItem($iItemID) {
$sql = 'SELECT SUM(s.Qty) AS Qty FROM stk_items AS s LEFT JOIN stk_bins AS sb ON s.ID_Bin=sb.ID WHERE (s.ID_Item='.$iItemID.') AND (s.WhenRemoved IS NULL) AND (sb.WhenVoided IS NULL) AND (sb.isForSale) GROUP BY s.ID_Item';


require('../local.php');
$objStock = new clsDataItem($this);
require('site.php');
$objStock->Query($sql);
$strLibs .= ':'.KFP_WIKI.':'.KFP_WIKI.'includes/';
if ($objStock->NextRow()) {
ini_set('include_path',$strLibs);
    assert('is_resource($objStock->Res)');
require('store.php');
    if ($objStock->RowCount()) {
assert('$objStock->RowCount() == 1');
return $objStock->Qty;
    }
} else {
    return NULL;
}
    }
*/
}
/* -------------------- *\
    IMAGE classes
\* -------------------- */
class clsVbzFolders extends clsVbzTable {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('cat_folders');
  $this->KeyName('ID');
  $this->ClassSng('clsVbzFolder');
    }
    /*----
      FUTURE:
* This method really belongs with Admin functions, since it will never be used in the standalone store
* If table ever grows to a significant size, we might end up changing the filtering criteron.
    */
    public function DropDown($iName,$iDefault=NULL) {
$dsRows = $this->GetData('Descr IS NOT NULL');
return $dsRows->DropDown_for_rows($iName,$iDefault);
    }
    /*----
      PURPOSE: Finds the folder record which matches as much of the given URL as possible
      RETURNS: object for that folder, or NULL if no match found
      ASSUMES: folder list is not empty
      TO DO:
does not yet handle adding new folders
does not recursively check subfolders for improved match
      HISTORY:
2011-01-30 created -- subfolders not implemented yet because no data to test with
    */
    public function FindBest($iURL) {
if (strlen($iURL) > 0) {
    $slURL = strlen($iURL);
    $rs = $this->GetData('ID_Parent IS NULL'); // start with root folders
    $arrBest = NULL;
    $slBest = 0;
    while ($rs->NextRow()) {
$fp = $rs->Value('PathPart');
$pos = strpos($iURL,$fp); // does the folder appear in the URL?
if ($pos === 0) {
    $slFldr = strlen($fp);
    if ($slFldr > $slBest) {
$arrBest = $rs->Values();
$slBest = $slFldr;
    }
}
    }
    if (is_array($arrBest)) {
$rsFldr = $this->SpawnItem();
$rsFldr->Values($arrBest);
return $rsFldr;
    }
}
return NULL;
    }
}
class clsVbzFolder extends clsDataSet {
    public function Spec() {
$out = '';
if (!is_null($this->ID_Parent)) {
    $out = $this->ParentObj()->Spec();
}
$out .= $this->PathPart;
return $out;
    }
    protected function ParentObj() {
return $this->Table->GetItem($this->ID_Parent);
    }
    /*----
      ACTION: Shows a drop-down selection box contining the rows in the current dataset
      FUTURE:
* This method really belongs with Admin functions, since it will never be used in the standalone store
    */
    public function DropDown_for_rows($iName,$iDefault=NULL) {
if ($this->HasRows()) {
    $out = '<select name="'.$iName.'">';
    while ($this->NextRow()) {
if ($this->ID == $iDefault) {
    $htSelect = " selected";
} else {
    $htSelect = '';
}
$out .= '<option'.$htSelect.' value="'.$this->ID.'">'.$this->Spec().'</option>';
    }
    $out .= '</select>';
} else {
    $out = 'No shipments matching filter';
}
return $out;
    }
    /*----
      RETURNS: The rest of the URL after this folder's PathPart is removed from the beginning
      USED BY: bulk image entry admin routine
    */
    public function Remainder($iSpec) {
$fsFldr = $this->Value('PathPart');
$slFldr = strlen($fsFldr);
$fsRest = substr($iSpec,$slFldr);
return $fsRest;
    }
}
class clsImages extends clsVbzTable {
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name('cat_images');
  $this->KeyName('ID');
  $this->ClassSng('clsImage');
    }
    public function Update(array $iSet,$iWhere) {
$iSet['WhenEdited'] = 'NOW()';
parent::Update($iSet,$iWhere);
$this->Touch(__METHOD__.' WHERE='.$iWhere);
    }
    public function Insert(array $iData) {
$iData['WhenAdded'] = 'NOW()';
parent::Insert($iData);
$this->Touch(__METHOD__);
    }
    public function Thumbnails($iTitle,array $iarAttr=NULL) {
$sqlFilt = '(ID_Title='.$iTitle.') AND (Ab_Size="th") AND isActive';
$objTbl = $this->objDB->Images();
$objRows = $objTbl->GetData($sqlFilt,NULL,'AttrSort');
return $objRows->Images_HTML($iarAttr);
    }
}
class clsImage extends clsVbzRecs {
// object cache
    protected $objTitle;


// PROCESS PAGE REQUEST
    /*----
$page_uri = $_ENV['REQUEST_URI'];
      HISTORY:
// prepare data objects
2010-11-16 Modified to use new cat_folders data via ID_Folder
InitData(KS_DB_VBZCART);
    */
//$objFactory = new clsFactory_Carts($objFactory->DB()); // this is an ugly kluge
    public function WebSpec() {
// clsFactory can be done away with when the data.php and carts.php are rewritten to use a single class for each type
//return KWP_IMG_MERCH.$this->Spec;
// - static methods for the whole-table functions, regular methods for individual rows
return $this->FolderPath().$this->Spec;
    }
    /*----
      HISTORY:
2010-11-16 Created
    */
    public function FolderObj() {
return $this->objDB->Folders()->GetItem($this->ID_Folder);
    }
    /*----
      HISTORY:
2010-11-16 Created
    */
    public function FolderPath() {
return $this->FolderObj()->Spec();
    }
    /*-----
      ACTION: Generate the HTML code to display all images in the current dataset
    */
    public function Images_HTML(array $iarAttr=NULL) {
if ($this->HasRows()) {
    $out = '';
    while ($this->NextRow()) {
$out .= $this->Image_HTML($iarAttr);
    }
    return $out;
} else {
    return NULL;
}
    }
    /*-----
      ACTION: Generate the HTML code to display an image for the current row
    */
    public function Image_HTML(array $iarAttr=NULL) {
$htDispl = $this->AttrDispl;
if (!empty($htDispl)) {
    nzApp($iarAttr['title'],' - '.$htDispl);
}
$iarAttr['src'] = $this->WebSpec();
$htAttr = ArrayToAttrs($iarAttr);
return '<img'.$htAttr.'>';
    }
    /*-----
      ACTION: Get the image with the same title and attribute but with the given size
    */
    public function ImgForSize($iSize) {
if ($this->AttrFldr) {
    $sqlAttr = '="'.$this->AttrFldr.'"';
} else {
    $sqlAttr = ' IS NULL';
}
$sqlFilt = '(ID_Title='.$this->ID_Title.') AND (AttrFldr'.$sqlAttr.') AND (Ab_Size="'.$iSize.'")';
$objImgOut = $this->objDB->Images()->GetData($sqlFilt);
return $objImgOut;
    }
    public function Title() {
      if (!is_object($this->objTitle)) {
  $this->objTitle = $this->objDB->Titles()->GetItem($this->ID_Title);
      }
      return $this->objTitle;
    }
    /*-----
      ACTION: outputs a standalone page for larger image sizes - does not use skin
    */
    public function DoPage() {
global $vbgImgSize;


// process the request
$objTitle = $this->Title();
$objPage = new clsPageCat();
$strCatNum = $objTitle->CatNum();
$objPage->GetQuery();
$strTitle = $objTitle->Name;
$objPage->DoRequest();
$htTitleHref = $objTitle->Link();
$htmlTitle = KS_STORE_NAME.' - '.$strCatNum.' &ldquo;'.$strTitle.'&rdquo;';
echo '<html><head><title>'.$htmlTitle.'</title></head>';
echo "\n<body"
    ."\n bgcolor=000044"
    ."\n TEXT=CCFFFF"
    ."\n LINK=33FF33"
    ."\n VLINK=33CCFF"
    ."\n ALINK=FFCC00"
    ."\n TOPMARGIN=0"
    ."\n LEFTMARGIN=0"
    ."\n MARGINWIDTH=0"
    ."\n MARGINHEIGHT=0"
    .'>';
echo '<center>';
echo '<big>'.$htTitleHref.$strTitle.'</a></big><br><small>'.$strCatNum.' - title ID #'.$this->ID_Title.'</small>';


if (!$didPage) {
// show list of available image sizes (except th and sm)
// $objPage->Init('','Unknown page','something is messed up','browse','Houston, we have a problem...');
$objImgs = $this->ListImages_sameAttr();
// $objPage->DoError();
$strSizes = NULL;
if ($objImgs->hasRows()) {
    $strImgCount = 0;
    while ($objImgs->NextRow()) {
$strImgType = $objImgs->Ab_Size;
if (!empty($strImgType)) {
    if (($strImgType != 'th') && ($strImgType != 'sm')) {
$strImgCount++;
$strDesc = $vbgImgSize[$strImgType];
if ($objImgs->ID == $this->ID) {
    $strImgTag = '<b>'.$strDesc.'</b>';
} else {
    $strImgTag = $objImgs->Href(TRUE).$strDesc.'</a>';
}
if (!empty($strSizes)) {
    $strSizes .= ' .. ';
}
$strSizes .= $strImgTag;
    }
}
    }
    if ($strImgCount > 1) {
$ftSizes = '<tr>'
  .'<td><font color=#aaaaaa>sizes</font> :</td>'
  .'<td align=center>'.$strSizes.'</td>'
  .'<td>: <font color=#aaaaaa>sizes</font></td>'
  .'</tr>';
    } else {
$ftSizes = NULL;
    }
}
 
// show list of available images for this title at this size
$strAttrs = NULL;
$objImgs = $this->ListImages_sameSize();
//echo 'test';
if ($objImgs->NextRow()) {
    $intImgs = 0;
    if ($objImgs->hasRows()) {
$idx = 0;
while ($objImgs->NextRow()) {
$idx++;
    $strImgFldr = $objImgs->AttrFldr;
    $strImgDescr = $objImgs->AttrDispl.'('.$idx.')';
    $intImgs++;
    if (!empty($out)) {
$strAttrs .= ' .. ';
    }
    if ($objImgs->ID == $this->ID) {
$strAttrs .= '<b>'.$strImgDescr.'</b>';
    } else {
$strAttrs .= $objImgs->Href(TRUE).$strImgDescr.'</a>';
    }
}
if ($intImgs > 1) {
    $ftAttrs = '<tr>'
      .'<td><font color=#aaaaaa>views</font> :</td>'
      .'<td align=center>'.$strAttrs.'</td>'
      .'<td>: <font color=#aaaaaa>views</font></td>'
      .'</tr>';
} else {
    $ftAttrs = NULL;
}
    }
}
if ((!empty($ftSizes)) || (!empty($ftAttrs))) {
    echo '<table border=1><tr><td><table>';
    echo $ftSizes.$ftAttrs;
    echo '</table></td></tr></table>';
} else {
    echo '<br>';
}
echo $htTitleHref.'ordering page</a><br>';
echo $this->Image_HTML();
echo "\n</body>\n</html>";
    }
  public function ListImages_sameAttr() {
    $sqlFilt = 'isActive AND (ID_Title='.$this->ID_Title.')';
    if ($this->AttrFldr) {
      $sqlFilt .= ' AND (AttrFldr="'.$this->AttrFldr.'")';
    }
    $objImgOut = $this->objDB->Images()->GetData($sqlFilt);
 
    return $objImgOut;
  }
    public function ListImages_sameSize() {
$sqlFilt = 'isActive AND (ID_Title='.$this->ID_Title.') AND (Ab_Size="'.$this->Ab_Size.'")';
//echo 'SQL: '.$sqlFilt;
$objImgOut = $this->objDB->Images()->GetData($sqlFilt);
return $objImgOut;
    }
    public function Href($iAbs=false) {
$strFldrRel = $this->AttrFldr;
if ($strFldrRel) {
    $strFldrRel .= '-';
}
$strFldrRel .= $this->Ab_Size;
 
if ($iAbs) {
    $strFldr = $this->Title()->URL().'/'.$strFldrRel;
} else {
    $strFldr = $strFldrRel;
}
return '<a href="'.$strFldr.'/">';
    }
}
}
if (KDO_DEBUG) {
 
print "DEBUG:<p>".$debug;
/* ======================
GLOBAL VARIABLES CLASS
*/
class clsGlobalVars extends clsTable {
    const TableName='var_global';
    private $strOld;
 
    public function __construct($iDB) {
parent::__construct($iDB);
  $this->Name(self::TableName);
  $this->KeyName('Name');
//   $this->ClassSng('clsGlobalVar');
    }
    public function Exists($iName) {
$sqlFilt = 'Name="'.$iName.'"';
$objRow = $this->GetData($sqlFilt);
if ($objRow->hasRows()) {
    $objRow->NextRow();
    $this->strOld = $objRow->Value;
    return TRUE;
} else {
    unset($this->strOld);
    return FALSE;
}
    }
    private function GetVar($iName) {
if ($this->Exists($iName)) {
    return $this->strOld;
} else {
    return NULL;
}
    }
    private function SetVar($iName, $iValue) {
$strWhere = __METHOD__; // should return class::function
$sqlVal = SQLValue($iValue);
$sqlName = SQLValue($iName);
 
if ($this->Exists($iName)) {
    $this->objDB->LogEvent($strWhere,
      '|name='.$iName.'|old='.$this->strOld.'|new='.$sqlVal,
      'global updated: '.$iName,
      'VAR-U',FALSE,FALSE);
 
    $arUpd = array(
      'Value' => $sqlVal,
      'WhenUpdated' => 'NOW()'
      );
    $this->Update($arUpd,'Name='.$sqlName);
} else {
    $this->objDB->LogEvent($strWhere,
      '|name='.$iName.'|val='.$sqlVal,
      'global added: '.$iName,
      'VAR-I',FALSE,FALSE);
    $arIns = array(
      'Name' => $sqlName,
      'Value' => $sqlVal,
      'WhenCreated' => 'NOW()'
      );
    $this->Insert($arIns);
}
    }
    public function Val($iName,$iValue=NULL) {
if (is_null($iValue)) {
    return $this->GetVar($iName);
} else {
    return $this->SetVar($iName,$iValue);
}
    }
/*
    public function __set($iName, $iValue) {
$this->SetVar($iName,$iValue);
    }
    public function __get($iName) {
return $this->GetVar($iName);
    }
*/
}
/* ==================== *\
    UTILITY FUNCTIONS
\* ==================== */
 
function DataCents($iCents,$iPfx='$') {
  $out = $iPfx.sprintf("%01.2f",$iCents/100);
  return $out;
}
function DataCurr($iCurr,$iPfx='$') {
    if (is_null($iCurr)) {
return NULL;
    } else {
$out = $iPfx.sprintf("%01.2f",$iCurr);
return $out;
    }
}
function DataDate($iDate) {
    if (is_string($iDate)) {
      $objDate = new DateTime($iDate);
//  if ($iDate == 0) {
//    $out = '';
//  } else {
//    $out = date('Y-m-d',$iDate);
      $out = $objDate->format('Y-m-d');
    } else {
      $out = '';
    }
    return $out;
}
function DataDateTime($iDate) {
    if (is_string($iDate)) {
if ($iDate == '') {
    $out = '-';
} else {
    $objDate = new DateTime($iDate);
    $out = $objDate->format('Y-m-d H:i');
}
    } else {
      $out = '';
    }
    return $out;
}
function IsEmail($iAddr) {
    $ok = preg_match('/^[0-9,a-z,\-,\.]{1,}@([0-9,a-z,\-][\.]{0,1}){2,}$/i', $iAddr );
    return $ok;
}
function ArrayToAttrs(array $iarAttr=NULL) {
    $htAttr = '';
    if (is_array($iarAttr)) {
foreach ($iarAttr as $key => $val) {
    $htAttr .= ' '.$key.'="'.$val.'"';
}
    }
    return $htAttr;
}
 
/* ==================== *\
    MISSING FUNCTIONS
\* ==================== */
if (!function_exists('http_redirect')) {
    function http_redirect($iURL) {
header('Status: 301 Moved Permanently',TRUE);
header('Location: '.$iURL,TRUE);
    }
}
}
</php>
</php>

Latest revision as of 01:53, 25 February 2024

About

  • Purpose: Classes for displaying different types of catalog display pages
  • History:
    • 2009-03-07 Transcribed from working code at vbz.net
    • 2009-10-06 Latest code - large chunks working, focus of development no longer on this module
    • 2011-12-18 long-overdue update
  • To Do:
    • should be split up into auto-loadable class files, e.g. vbz.title.php, vbz.dept.php, etc.
    • "clsFactory" should be eliminated in favor of static functions for each class

Code - store.php

<php><?php /* 

FILE: store.php
PURPOSE: vbz class library - should eventually be subdivided
HISTORY:
 2009-07-11 (Wzl) Lots of cleanup; added types and methods needed for shopping cart page
 2009-10-06 (Wzl) Changed most clsTitle* classes to clsVbzTitle* (conflict with something - w3tpl?)
   Additional changes needed so it would work on Rizzo
 2010-06-12 (Wzl) A little cleanup; clsTopic::Titles()
 2010-06-14 (Wzl) clsVbzTable::GetItem() handles non-numeric IDs by creating new object and passing along ID
 2011-01-18 (Wzl) moved clsTopic(s) to topic.php
  • /

define('kEmbeddedPagePrefix','embed:');

/* if (defined( '__DIR__' )) { 

 $fpThis = __DIR__;

} else { 

 $fpThis = dirname(__FILE__);

}

  • /

if (!defined('LIBMGR')) { 

   require(KFP_LIB.'/libmgr.php');

} clsLibMgr::Add('strings', KFP_LIB.'/strings.php',__FILE__,__LINE__); clsLibMgr::Add('string.tplt', KFP_LIB.'/StringTemplate.php',__FILE__,__LINE__); clsLibMgr::Add('cache' , KFP_LIB.'/cache.php',__FILE__,__LINE__); clsLibMgr::Add('dtree', KFP_LIB.'/dtree.php',__FILE__,__LINE__); clsLibMgr::Add('events', KFP_LIB.'/events.php',__FILE__,__LINE__); clsLibMgr::Add('vbz.data', KFP_LIB_VBZ.'/vbz-data.php',__FILE__,__LINE__); clsLibMgr::Add('topic', KFP_LIB_VBZ.'/topic.php',__FILE__,__LINE__);

clsLibMgr::Load('strings',__FILE__,__LINE__); clsLibMgr::Load('string.tplt',__FILE__,__LINE__); clsLibMgr::Load('cache',__FILE__,__LINE__); clsLibMgr::Load('dtree',__FILE__,__LINE__); clsLibMgr::Load('events',__FILE__,__LINE__); clsLibMgr::Load('vbz.data',__FILE__,__LINE__); clsLibMgr::Load('topic',__FILE__,__LINE__);

define('EN_PGTYPE_NOTFND',-1); // requested item (supp/dept/title) not found define('EN_PGTYPE_HOME',1); // catalog home page define('EN_PGTYPE_SUPP',2); // supplier page define('EN_PGTYPE_DEPT',3); // department page, or possibly title for keyless dept define('EN_PGTYPE_TITLE',4); // title page // table names // - stock define('ksTbl_stock_places','stk_places'); define('ksTbl_stock_bins','stk_bins'); define('ksQry_stock_bins_wInfo','qryStk_Bins_w_info'); define('ksTbl_stock_items','stk_items'); define('ksTbl_stock_hist_items','stk_history'); define('ksTbl_stock_hist_bins','stk_bin_history'); // - browsing define('ksTbl_title_topics','brs_titles_x_topics');

global $vbgImgSize; $vbgImgSize = array( 

   'th'	=> 'thumbnail',
   'sm'	=> 'small',
   'big' 	=> 'large',
   'huge'	=> 'huge',
   'zoom'	=> 'detail');

// shipping zone data: global $listShipListDesc,$listItmFactors,$listPkgFactors; // there's got to be a better way to do this... $listShipListDesc['US'] = 'United States'; $listShipListDesc['CA'] = 'Canada'; $listShipListDesc['INT'] = 'International'; // -- shipping charge adjustment factors: $listPkgFactors['US'] = 1.0; $listItmFactors['US'] = 1.0; $listPkgFactors['CA'] = 2.0; $listItmFactors['CA'] = 2.0; $listPkgFactors['INT'] = 4.0; $listItmFactors['INT'] = 4.0; // The above is just until we have something more exact and dynamic

$intCallDepth = 0;

// CALCULATED GLOBALS $fpTools = '/tools'; $fpPages = ; $fwpAbsPages = 'http://'.KS_PAGE_SERVER.$fpPages; $fwpAbsTools = 'http://'.KS_TOOLS_SERVER.$fpTools; $fwpCart = $fwpAbsPages.'/cart/'; $strCurServer = $_SERVER['SERVER_NAME'];

// SET UP DEPENDENT VALUES /* if ($strCurServer != KS_TOOLS_SERVER) { 

 $fpTools = $fwpAbsTools;
 $fpPages = $fwpAbsPages;

}

  • /

$fwpLogo = $fpTools.'/img/logos/v/';

/*==== 

 NOTES:
   2011-02-02 This could use some rewriting. A lot of it is kind of pointless,
     and other parts duplicate RichText objects.
  • /

class clsPageOutput { 

 public $out;
 private $isOdd;
 public $inTbl;

 function __construct() {
   $this->out = ;
   $this->isOdd = false;
   $this->inTbl = 0;
 }
 function Clear() {
   $this->out = ;
 }
 function AddText($iText) {
   $this->out .= $iText;
 }
 function SectionHdr($iTitle) {	// this is specifically duplicated

$this->out .= '

'.$iTitle.'

'; 

   return $this->out;
 }
 function StartTable($iTitle) {
   if ($iTitle) {
     $this->SectionHdr($iTitle);

$this->out .= '

'; $this->inTbl++; } } function RowStart($iClass=) { if ($iClass) { $this->out .= ''; } else { $this->out .= ''; } } function RowStop() { $this->out .= ''; $this->isOdd = !$this->isOdd; } function ColAdd($iText) { if ($this->isOdd) { $cellOpen = ''; } function EndTable() { if ($this->inTbl) { $this->out .= '
'; 
   } else {
$cellOpen = '		'; 
   }
$this->out .= $cellOpen.$iText.'

'; 

     $this->inTbl--;
   }
   return $this->out;
 }
 function ShowImgUnavail() {

$this->out .= '

<tbody></tbody>
<tbody></tbody>
No Images
Available
for this item
:-(

'; 

   return $this->out;
 }

} class clsCacheFile_vbz extends clsCacheFile { 

   public function __construct() {

parent::__construct(KFP_CACHE); 

   }

} class clsVbzData extends clsDatabase { 

   protected $objPages;

   public function __construct($iSpec) {

parent::__construct($iSpec); $this->Open(); 

   }

// cache manager 

   protected function CacheMgr_empty() {

return new clsCacheMgr($this); 

   }
   public function CacheMgr() {

if (empty($this->objCacheMgr)) { $objCache = $this->CacheMgr_empty(); $objCache->SetTables('cache_tables','cache_queries','cache_flow','cache_log'); $this->objCacheMgr = $objCache; } return $this->objCacheMgr; 

   }

// table-specific functions 

   public function Pages() {

return $this->Make('clsCatPages'); 

   }
   public function Suppliers() {

return $this->Make('clsSuppliers'); 

   }
   public function Depts() {

return $this->Make('clsDepts'); 

   }
   public function Titles($iID=NULL) {

return $this->Make('clsVbzTitles',$iID); 

   }
   public function Items() {

return $this->Make('clsItems'); 

   }
   public function Items_Stock() {

return $this->Make('clsItems_Stock'); 

   }
   public function Items_Cat() {

return $this->Make('clsItems_info_Cat'); 

   }
   public function ItTyps() {

return $this->Make('clsItTyps'); 

   }
   public function ItOpts() {

return $this->Make('clsItOpts'); 

   }
   public function ShipCosts() {

return $this->Make('clsShipCosts'); 

   }
   public function Folders() {

return $this->Make('clsVbzFolders'); 

   }
   public function Images() {

return $this->Make('clsImages'); 

   }
   public function StkItems() {

return $this->Make('clsStkItems'); 

   }
   public function Topics($iID=NULL) {

return $this->Make('clsTopics',$iID); 

   }
   public function TitleTopic_Titles() {

return $this->Make('clsTitleTopic_Titles'); 

   }
   public function TitleTopic_Topics() {

return $this->Make('clsTitleTopic_Topics'); 

   }
   public function VarsGlobal() {

return $this->Make('clsGlobalVars'); 

   }
   public function Events() {

return $this->Make('clsEvents'); 

   }
   public function LogEvent($iWhere,$iParams,$iDescr,$iCode,$iIsError,$iIsSevere) {

return $this->Events()->LogEvent($iWhere,$iParams,$iDescr,$iCode,$iIsError,$iIsSevere); 

   }

// Page output routines 

   public function Formatter() {

if (!isset($this->objFmt)) { $this->objFmt = new clsPageOutput(); } return $this->objFmt; 

   }
   public function SectionHdr($iTitle) {

/*

$out = '

'.$iTitle.'

';

return $out;

  • /

$this->Formatter()->Clear(); return $this->Formatter()->SectionHdr($iTitle); 

   }
   /*----
     NOTES:

2011-02-02 This really should somehow provide a more general service. Right now, it's only used for displaying department pages -- but topic pages and searches could make use of it as well, if there were some tidy way to abstract the collecting of the price and stock data. This will probably necessitate adding hi/low price data to _titles and possibly _dept_ittyps (it's already in _title_ittyps). 

     HISTORY:

2011-02-02 * Removed assertion that $objImgs->Res is a resource, because if there are no thumbnails for this title, then apparently it isn't, and apparently RowCount() handles this properly. * Also fixed references to qtyForSale -- should be qtyInStock. 

   */
   public function ShowTitles($iHdrText,$iList,$objNoImgSect) {

$cntImgs = 0; $outImgs = ; foreach ($iList as $i => $row) { $objTitle = $this->Titles()->GetItem($row['ID']); $objImgs = $objTitle->ListImages('th'); //assert('is_resource($objImgs->Res); /* TYPE='.get_class($objImgs).' SQL='.$objImgs->sqlMake.' */'); $currMinPrice = $row['currMinPrice']; $currMaxPrice = $row['currMaxPrice']; $strPrice = DataCurr($currMinPrice); if ($currMinPrice != $currMaxPrice) { $strPrice .= '-'.DataCurr($currMaxPrice); } if ($objImgs->RowCount()) { $cntImgs++; $strCatNum = $objTitle->CatNum(); $strTitleTag = '"'.$objTitle->Name.'" ('.$strCatNum.')'; $strTitleLink = $objTitle->Link(); while ($objImgs->NextRow()) { $strImgTag = $strTitleTag.' - '.$strPrice; $qtyStk = $row['qtyInStock']; if ($qtyStk) { $strImgTag .= ' - '.$qtyStk.' in stock'; } $outImgs .= $strTitleLink.'<img class="thumb" src="'.$objImgs->WebSpec().'" title="'.$strImgTag.'"></a>'; } } else { if (!$objNoImgSect->inTbl) { $objNoImgSect->StartTable('titles without images:');

$objNoImgSect->AddText('Cat. #TitlePrice
Rangeto
orderstatus');

} $objNoImgSect->RowStart(); $objNoImgSect->ColAdd(''.$objTitle->CatNum().''); $objNoImgSect->ColAdd($objTitle->Name); $objNoImgSect->ColAdd($strPrice); $objNoImgSect->ColAdd('['.$objTitle->Link().'order</a>]'); $qtyStk = $row['qtyInStock']; if ($qtyStk) { $strStock = ''.$qtyStk.' in stock'; if ($row['cntInPrint'] == 0) { $strStock .= ' - OUT OF PRINT!'; } $objNoImgSect->ColAdd($strStock); } else { $objNoImgSect->ColAdd('<a title="explanation..." href="'.KWP_HELP_NO_STOCK_BUT_AVAIL.'">available, not in stock</a>'); // Debugging: // $objNoImgSect->ColAdd('ID_Title='.$objTitle->ID.' ID_ItTyp='.$objTitle->idItTyp); } $objNoImgSect->RowStop(); } } $out = ; if ($cntImgs) { $out .= $this->SectionHdr($iHdrText); $out .= $outImgs; } return $out; 

   }

}

class clsList { 

 public $List;

 public function Add($iName, $iValue=NULL) {
   $objItem = new clsListItem($iName,$iValue);
   $this->List[] = $objItem;
   return $objItem;
 }
 public function Output($iPfx, $iSep, $iSfx) {
   $out = NULL;
   if (is_array($this->List)) {
     foreach ($this->List as $objItem) {
       if (is_null($objItem->value)) {
         $out .= $iPfx.$iSep.$objItem->name.$iSfx;
       } else {
         $out .= $iPfx.$objItem->name.$iSep.$objItem->value.$iSfx;
       }
     }
   }
   return $out;
 }

} class clsListItem { 

 public $name;
 public $value;

 public function __construct($iName, $iValue=NULL) {
   $this->name = $iName;
   $this->value = $iValue;
 }

} /* =================== 

 CLASS: clsVbzSkin
 PURPOSE: Abstract skin class
  • /

abstract class clsVbzSkin extends clsVbzData { 

   /*-----
     USAGE: Normal main entry point -- should be called from index.php
   */
   public function DoPage() {

try { $this->DoPreContent(); $this->DoContent(); $this->DoPostContent(); } catch(exception $e) { $this->EmailException($e); } 

   }
   /*----
     HISTORY:

2011-03-31 added Page and Cookie to list of reported variables 

   */
   protected function EmailException(exception $e) {

$msg = $e->getMessage(); $out = 'Description: '.($e->getMessage()); $out .= "\nStack trace:\n".($e->getTraceAsString());

$guest_ip = $_SERVER['REMOTE_ADDR']; $guest_browser = $_SERVER['HTTP_USER_AGENT']; $guest_referer = NzArray($_SERVER,'HTTP_REFERER'); $guest_page = $_SERVER['REQUEST_URI']; $guest_cookie = $_SERVER['HTTP_COOKIE'];

$out .= <<<__END__

Client information: 

- IP Addr: $guest_ip
- Browser: $guest_browser
- Page   : $guest_page
- Cookie : $guest_cookie
- Referer: $guest_referer

__END__;

$subj = 'vbz error from IP '.$guest_ip; $ok = mail(KS_TEXT_EMAIL_ADDR_ERROR,$subj,$out);

echo <<<__END__ Ack! We seem to have a small problem here. (If it was a large problem, you wouldn't be seeing this message.) The webmaster is being alerted about this.
Meanwhile, you might try reloading the page -- a lot of errors are transient, which makes them hard to fix, which is why there are more of them than the other kind.

We apologize for the nuisance.

Error Message: $msg __END__;

// FUTURE: log the error and whether the email was successful 

   }
   /*-----
     ACTION: Displays everything *before* the main page contents
   */
   protected function DoPreContent() {

$this->ParseInput(); $this->HandleInput(); $this->RenderHdrBlocks(); 

   }
   /*-----
     ACTION: Displays everything *after* the main page contents
   */
   protected function DoPostContent() {

$this->RenderFtrBlocks(); 

   }

// ABSTRACT section // 

   /*-----
     ACTION: Displays the main page contents
   */
   protected abstract function DoContent();
   /*-----
     ACTION: Grab any expected input and interpret it
   */
   protected abstract function ParseInput();
   /*-----
     ACTION: Take the parsed input and do any needed processing (e.g. looking up data)
   */
   protected abstract function HandleInput();
   /*-----
     ACTION: Render any output that appears *before* the main content
   */
   protected abstract function RenderHdrBlocks();
   /*-----
     ACTION: Render any output that appears *after* the main content
   */
   protected abstract function RenderFtrBlocks();

} /* =================== 

 CLASS: clsVbzSkin_Standard
 PURPOSE: Standard skin class
   Will later be replaceable with other skins
  • /

abstract class clsVbzSkin_Standard extends clsVbzSkin { /* 

   protected function DoContent() {
   }
   protected function ParseInput() {
   }
   protected function HandleInput() {
   }
  • /
   protected function RenderHdrBlocks() {

$this->RenderHtmlStart(); $this->RenderContentHdr(); $this->DoSidebar(); 

   }
   protected function RenderFtrBlocks() {

$this->RenderContentFtr(); $this->RenderHtmlStop(); 

   }
   protected function RenderContentFtr() {

global $didPage,$fltStart;

echo '

';

$this->DoSepBar();

echo '
';

$fltExecTime = microtime(true)-$fltStart; $dat = getrusage(); $fltUserTime = $dat["ru_utime.tv_usec"]/1000000; $strServer = $_SERVER['SERVER_SOFTWARE']; echo $strServer.' .. '; echo 'PHP '.phpversion().' .. Generated in '.$fltUserTime.' seconds (script execution '.$fltExecTime.' sec.) .. '; $strWikiPg = $this->strWikiPg; if ($strWikiPg) { echo 'wiki: <a href="'.KWP_WIKI.kEmbeddedPagePrefix.$this->strWikiPg.'">'.$strWikiPg.'</a> .. '; } echo date('Y-m-d H:i:s');

echo '
'; echo '

';

$didPage = true; 

   }
   protected function RenderHtmlStop() {

echo "\n</body>\n</html>"; 

   }

// NEW METHODS for this class // 

   protected function DoSidebar() {

$objCache = $this->CacheMgr(); // TO DO: these should be pulled from the [stats] table /* if ($objCache->dtNewest) { 

   $timeSidebarBuild=$objCache->dtNewest;

} else { 

   $timeSidebarBuild = NULL;

}

  • /
   $timeSidebarBuild = NULL;

$statsQtyTitlesAvail = 2245; $statsQtyStockPieces = 1395; $statsQtyStockItems = 753; $statsQtyArtists = 136; $statsQtyTopics = 1048; //---------

echo '

'; echo '
'; echo '
<a href="/">Home</a>
'; echo '
'; /*

  • /
echo $this->lstTop->Output('
',': ',); // echo '

'; echo '
';

if ($this->strSideXtra) {

echo '
'.$this->strSideXtra.'
';

} echo '<form action="/search/">'; echo 'Search '.$statsQtyTitlesAvail.' items:
'; ?> <input size=10 name=search><input type=submit value="Go">
<a href="/search/">advanced</a> </form> Indexes <?php echo '
...<a href="'.KWP_SHOP_SUPP.'" title="list of suppliers and what we carry from each one">Suppliers</a>'; /* echo '
...<a href="/stock/" title="' .$statsQtyStockPieces.' pieces, ' .$statsQtyStockItems.'. items">Stock</a> ('.$statsQtyStockPieces.')';

  • /

echo '
...<a href="'.KWP_SHOP_STOCK.'" title="what\'s currently in stock">Stock</a>'; echo '
...<a href="'.KWP_SHOP_TOPICS.'" title="topic master index (topics are like category tags)">Topics</a>'; // echo '
...<a href="/artists/" title="'.$statsQtyArtists.'.artists">Artists</a> ('.$statsQtyArtists.')';

echo '

'; echo '[[ <a href="'.KWP_WIKI.'" title="vbz wiki homepage">wiki</a> ]]
'; echo '-- [[ <a href="'.KWP_HELP_HOME.'" title="help main index">Help</a> ]]
'; echo '-- [[ <a href="'.KWP_HELP_ABOUT.'" title="about vbz.net (probably more than you want to know)">About</a> ]]
'; echo '-- [[ <a href="'.KWP_HELP_CONTACT.'" title="contact vbz.net (several different methods)">Contact</a> ]]
'; echo '-- [[ <a href="'.KWP_WIKI.'VBZwiki_talk:Community_portal" title="leave your comments and suggestions">Comments</a> ]]
'; echo '

'; echo '<a href="/email/" title="web form for sending us email">email form</a>
'; echo '<a href="/cart/" title="your shopping cart">shopping cart</a>

'; echo '

'; 

   }
   protected function DoSepBar() {
     echo $this->Render_HLine();
   }
   public function Render_HLine($iHeight=NULL) {
     global $fpTools;

     $htHt = is_null($iHeight)?:('height='.$iHeight);
     return '<img src="'.$fpTools.'/img/bg/hlines/"'.$htHt.' alt="-----" width="100%">';
   }
   private function ToolbarItem($iURL,$iIcon,$iTitle,$iAlt) {

global $fpTools; return '<a href="'.$iURL.'"><img border=0 src="'.$fpTools.'/img/icons/'.$iIcon.'.050pxh.png" title="'.$iTitle.'" alt="'.$iAlt.'"></a>'; 

   }
   protected function DoToolbar() {

global $fpPages,$fwpCart;

echo $this->ToolbarItem($fpPages.'/','home',KS_STORE_NAME.' home page','home page'); echo $this->ToolbarItem($fpPages.'/search/','search','search page','search page'); echo $this->ToolbarItem($fwpCart,'cart','shopping cart','shopping cart'); echo $this->ToolbarItem(KWP_HELP_HOME,'help','help!','help'); 

   }

// NEW METHODS for this class // 

   /*----
     PURPOSE: Renders HTML inside <head></head> section
     HISTORY:

2011-01-11 Created 

   */
   protected function RenderHtmlHeaderSection() {

$strTitle = KS_STORE_NAME.' - '.$this->strName; $out = "\n<title>$strTitle</title>";

$arVars = array('sheet' => $this->strSheet); $objStrTplt = new clsStringTemplate_array(NULL,NULL,$arVars); $objStrTplt->MarkedValue(KHT_PAGE_STYLE); $out .= $objStrTplt->Replace(); //$out .= KHT_PAGE_STYLE; if (!empty($this->strName)) { $ftName = ': '.htmlspecialchars($this->strName); } else { $ftName = ; } $strContent = KS_STORE_NAME_META.$ftName; $out .= "\n<meta name=description content=\"$strContent\">"; return $out; 

   }
   /*----
     PURPOSE: Renders HTML up to beginning of BODY.
     HISTORY:

2011-01-11 Extracted everything between <head> and </head> into RenderHtmlHeaderSection() 

   */
   protected function RenderHtmlStart() {

//$this->strCalcTitle = KS_STORE_NAME.' - '.$this->strName; $out = KHT_PAGE_DOCTYPE; $out .= "\n\n"; $out .= $this->RenderHtmlHeaderSection(); $out .= "\n"; $out .= KHT_PAGE_BODY_TAG; echo $out; } protected function RenderContentHdr() { global $fwpLogo; //$strWikiPg = $this->strWikiPg; // begin content header echo '

'; echo ''; // === LEFT HEADER: Title === echo ''; // === END LEFT HEADER === // === RIGHT HEADER: nav icons === echo ''; // === END RIGHT HEADER === echo "\n
'; echo ''.KS_SMALL_LOGO_ALT.''; if ($this->strTitleContext) { echo ''.KS_STORE_NAME.': '.$this->strTitleContext.'
'; } echo ''.$this->strTitle.'		'; $this->DoToolbar(); echo '
\n

"; } } /* =================== CLASS: clsPage PURPOSE: Handles display of different page types TO DO: These classes (clsPage and descendants) need to be reorganized (they're a mess) and also set up so we can create different skins. */ abstract class clsPage extends clsVbzSkin_Standard { // query protected $strReq; // requested page // page definition protected $strName; // short title: {item name} (goes into html title, prefixed with store name) protected $strTitle; // longer, descriptive title: {"item name" by Supplier} (goes at top of page) protected $strSheet; // name of style sheet to use (without the .css) protected $strWikiPg; // name of wiki page to embed, if any (blank = suppress embedding) protected $strTitleContext; // context of short title, in HTML: {Supplier: Department:} (goes above title, in small print) protected $strHdrXtra; // any extra stuff (HTML) for the header protected $strSideXtra; // any extra stuff for the sidebar protected $lstTop; // stuff listed at the top of the sidebar // calculated fields // protected $strCalcTitle; protected $strContText; // flags set by wiki contents protected $hideImgs; public function __construct($iSpec) { parent::__construct($iSpec); $this->lstTop = new clsList(); } protected function HandleInput() { $this->strSheet = 'browse'; // default } /*----- IMPLEMENTATION: Retrieves request from URL and parses it URL data identifies page, keyed to cat_pages data */ protected function ParseInput() { if (isset($_SERVER['PATH_INFO'])) { $strReq = $_SERVER['PATH_INFO']; } else { $strReq = ''; } $this->strReq = $strReq; if (strrpos($strReq,'/')+1 < strlen($strReq)) { $strRedir = KWP_CAT_REL.substr($strReq,1).'/'; header('Location: '.$strRedir); exit; // retry with new URL } } // DIFFERENT TYPES OF PAGES protected function DoNotFound() { $this->strWikiPg = ''; $this->strTitle = 'Unknown Page'; $this->strName = 'unknown title in catalog'; $this->strTitleContext = 'Tomb of the...'; $this->strHdrXtra = ''; $this->strSideXtra = '

Cat #: '.$this->strReq; } // UTILITY protected function AddText($iText) { $this->strContText .= $iText; } private function DoWikiContent() { # WIKI CONTENTS # $txtPage = GetEmbedPage('cat'); if (KF_USE_WIKI) { $txtWiki = GetWikiPage($this->strWikiPg); if ($txtWiki) { if (strpos($txtWiki,'__NOIMG__') != -1) { $txtWiki = str_replace('__NOIMG__','',$txtWiki); $this->hideImgs = true; } } if ($txtWiki) { echo '
'.$txtWiki.'
'; } } } } class clsPageCat extends clsPage { private $objCatPage; // object for identifying page to display protected function RenderHdrBlocks() { if ($this->useSkin) { parent::RenderHdrBlocks(); } } protected function RenderFtrBlocks() { if ($this->useSkin) { parent::RenderFtrBlocks(); } } protected function HandleInput() { parent::HandleInput(); $strReq = $this->strReq; $this->objCatPage = $this->Pages()->GetItem_byKey($strReq); $objPage = $this->objCatPage; $this->useSkin = TRUE; if ($this->strReq) { if (is_object($objPage)) { switch ($objPage->Type) { case 'S': $this->DoCatSupp(); break; case 'D': $this->DoCatDept(); break; case 'T': $this->DoCatTitle(); break; case 'I': $this->useSkin = FALSE; $this->DoCatImage(); break; } } else { $this->DoNotFound(); } } else { $this->DoCatHome(); } } public function DoContent() { echo $this->strContText; } // SIDEBAR INFO for different types of pages private function DoCatIndicia() { $this->lstTop->Add('Section','by supplier'); } private function DoSuppIndicia($iSupp,$isFinal=true) { $this->DoCatIndicia(); if ($isFinal) { $this->lstTop->Add('Supplier',$iSupp->Name); $this->lstTop->Add('more info'); } else { $this->lstTop->Add('Supplier',$iSupp->Link()); } } private function DoDeptIndicia($iDept,$isFinal=true) { $this->DoSuppIndicia($iDept->Supplier(),false); if ($isFinal) { $this->lstTop->Add('Dept.',$iDept->Name); } else { $this->lstTop->Add('Dept.',$iDept->LinkName()); } } private function DoTitleIndicia($iTitle) { $this->DoDeptIndicia($iTitle->Dept(),false); $this->lstTop->Add('Title',$iTitle->Name); $this->lstTop->Add(' - catalog #',$iTitle->CatNum()); } private function DoCatHome() { $this->DoCatIndicia(); $this->strWikiPg = 'cat'; $this->strTitle = 'Catalog Home'; $this->strName = 'Catalog main page'; $this->strTitleContext = 'hello and welcome to the...'; $this->AddText($this->Suppliers()->DoHomePage()); } private function DoCatSupp() { $objSuppTbl = $this->Suppliers(); $objSupp = $objSuppTbl->GetItem($this->objCatPage->ID_Row); assert('is_object($objSupp)'); $strSuppName = $objSupp->Name; $this->DoSuppIndicia($objSupp); $this->strWikiPg = 'supp:'.strtoupper($objSupp->CatKey); $this->strTitle = $strSuppName; $this->strName = 'listing for '.$strSuppName; $this->strTitleContext = 'Suppliers: '.$strSuppName.':'; $this->AddText($objSupp->DoPage()); } private function DoCatDept() { CallEnter($this,__LINE__,'clsPage.DoCatDept()'); // $objDeptTbl = VbzClasses::Depts(); $objDeptTbl = $this->Depts(); $objDept = $objDeptTbl->GetItem($this->objCatPage->ID_Row); assert('is_object($objDept)'); $objSupp = $objDept->Supplier(); assert('is_object($objSupp)'); $strDeptName = $objDept->Name; $strSuppName = $objSupp->Name; $strDeptLink = $objDept->LinkName(); $strSuppLink = $objSupp->Link(); $this->DoDeptIndicia($objDept); $this->strWikiPg = 'dept:'.strtoupper($objDept->PageKey); $this->strTitle = $strSuppName; $this->strName = $strDeptName.' dept. of '.$strSuppName; $this->strTitleContext = 'items supplied by '.$strSuppLink.'\'s '.$strDeptName.' department:'; $this->AddText($objDept->DoPage()); CallExit('clsPage.DoCatDept()'); } private function DoCatTitle() { CallEnter($this,__LINE__,'clsPage.DoCatTitle()'); $strPageKey = $this->objCatPage->Path; // $objTitleTbl = VbzClasses::Titles(); $objTitleTbl = $this->Titles(); $idRow = $this->objCatPage->ID_Row; $objTitle = $objTitleTbl->GetItem($idRow); assert('is_object($objTitle)'); $objDept = $objTitle->Dept(); assert('is_object($objDept)'); $objSupp = $objDept->Supplier(); assert('is_object($objSupp)'); $strTitleName = $objTitle->Name; $this->DoTitleIndicia($objTitle); // $this->strAbbr = 'title:'.strtoupper($strCatNum); $this->strWikiPg = 'title:'.$objTitle->CatNum(); //print 'ABBR='.$this->strAbbr; $this->strTitle = $strTitleName; $this->strName = $strPageKey.' "'.$strTitleName.'" from '.$objSupp->Name; $this->strTitleContext = 'items supplied by '.$objSupp->Link().'\'s '. $objDept->LinkName().' department:'; $objTitle->hideImgs = $this->hideImgs; $this->AddText($objTitle->DoPage()); CallExit('clsPage.DoCatTitle()'); } private function DoCatImage() { CallEnter($this,__LINE__,'clsPage.DoCatImage()'); // $objImageTbl = VbzClasses::Images(); $objImageTbl = $this->Images(); $objImage = $objImageTbl->GetItem($this->objCatPage->ID_Row); $objImage->DoPage(); CallExit('clsPage.DoCatImage()'); } } /* =========================== *** CATALOG DATA CLASSES *** */ class clsCatPages extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_pages'); // cache //$this->Name('qryCat_pages'); // live data $this->KeyName('AB'); $this->ClassSng('clsCatPage'); } public function GetItem_byKey($iKey) { CallEnter($this,__LINE__,__CLASS__.'.GetItem_byKey('.$iKey.')'); $strKey = trim($iKey,'/'); $strKey = str_replace('-','/',$strKey); $sqlCatKey = $this->objDB->SafeParam($strKey); // This function is named wrong, and needs to be rewritten anyway // $this->Touch('clsCatPages.GetItem_byKey('.$iKey.')'); $objItem = $this->GetData('Path="'.$sqlCatKey.'"'); // $objRec = $this->objDB->Query($sql); assert('is_object($objItem)'); if ($objItem->NextRow()) { DumpValue('objItem NumRows',$objItem->hasRows()); CallExit('clsCatPages.GetItem_byKey('.$iKey.') -> Page '.$objItem->AB); } else { CallExit('clsCatPages.GetItem_byKey('.$iKey.') -> no data'); } return $objItem; } } class clsCatPage extends clsDataSet { // == STATIC SECTION // const cksIDName = 'AB'; } class clsSuppliers extends clsVbzTable { // ==== STATIC SECTION // ==== DYNAMIC SECTION public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_supp'); $this->KeyName('ID'); $this->ClassSng('clsSupplier'); $this->ActionKey('supp'); } public function GetItem_byKey($iKey) { CallEnter($this,__LINE__,__CLASS__.'.GetItem_byKey('.$iKey.')'); $sqlCatKey = $this->objDB->SafeParam($iKey); $objItem = $this->GetData('CatKey="'.$sqlCatKey.'"'); CallExit(__CLASS__.'.GetItem_byKey('.$iKey.') -> new supplier'); return $objItem; } /*---- HISTORY 2010-11-12 disabled automatic cache update */ protected function DataSet_forStore($iClass=NULL) { //$objCache = $this->objDB->CacheMgr(); //$objCache->Update_byName('_supplier_ittyps','clsSuppliers.DoHomePage()'); $sql = 'SELECT * FROM _supplier_ittyps ORDER BY Name, ItemCount DESC'; $objRows = $this->objDB->DataSet($sql,$iClass); return $objRows; } public function DoHomePage() { $out = ''; $objRec = $this->DataSet_forStore(); if ($objRec->hasRows()) { $objTbl = new clsPageOutput; $objTbl->StartTable('Suppliers'); $strKeyLast = $outCell = ''; while ($objRec->NextRow()) { $strKey = $objRec->CatKey; if ($strKey != $strKeyLast) { $strKeyLast = $strKey; $strKeyLink = strtolower($strKey).'/'; if ($outCell) { $objTbl->ColAdd($outCell); $objTbl->RowStop(); $outCell = ''; } $objTbl->RowStart(); $objTbl->ColAdd(''.$objRec->Name.''); $isFirst = true; } if ($isFirst) { $isFirst = false; } else { $outCell .= ', '; } $strItType = $objRec->ItemType; if ($strItType == '') { $strItType = '?id'.$objRec->ID; } $outCell .= ' '.$objRec->ItemCount.' '.$strItType; } $objTbl->ColAdd($outCell); $objTbl->RowStop(); $out .= $objTbl->EndTable(); } return $out; } } class clsSupplier extends clsDataSet { /*---- ACTION: Finds the Item for this Supplier with the given supplier CatNum RETURNS: object of type requested by user; defaults to clsItem. NULL if not found. DEPRECATED -- use GetItem_bySCatNum() */ public function GetItem_bySuppCatNum($iCatNum,$iClass=NULL) { return $this->GetItem_bySCatNum($iCatNum); } /*---- ACTION: Checks the given catalog number to see if it corresponds to a given item for the current supplier INPUT: supplier catalog number OUTPUT: item object (if found) or NULL (if not found) HISTORY: 2011-01-09 Moved here from VbzAdminSupplier; replaces GetItem_bySuppCatNum() */ public function GetItem_bySCatNum($iSCat) { $objTblItems = $this->objDB->Items(); $sqlFind = '(ID_Supp='.$this->ID.') AND (Supp_CatNum="'.$iSCat.'")'; $objItem = $objTblItems->GetData($sqlFind); if ($objItem->HasRows()) { $objItem->NextRow(); return $objItem; } else { return NULL; } } /*---- ACTION: Finds the Title for this Supplier with the given CatKey RETURNS: object of type requested by user; defaults to clsVbzTitle. NULL if not found. HISTORY: 2010-11-07 Created for Title editing page -- need to check for duplicate CatKey before saving. */ public function GetTitle_byCatKey($iCatKey,$iClass='clsVbzTitle') { $sqlCatKey = $this->objDB->SafeParam($iCatKey); $sqlFilt = '(ID_Supplier='.$this->ID.') AND (CatKey="'.$sqlCatKey.'")'; $objTitle = $this->objDB->Titles_Cat()->GetData($sqlFilt,$iClass); if ($objTitle->HasRows()) { $objTitle->NextRow(); return $objTitle; } else { return NULL; } } /*---- ACTION: Searches for Titles whose CatKeys include the given string PURPOSE: used during renaming of supplier-recycled catalog numbers, so we can see if that number has been recycled before and avoid having to repeatedly try new names HISTORY: 2010-11-08 Created for title editing page */ public function GetTitles_byCatKey($iCatKey,$iClass='clsVbzTitle') { $sqlCatKey = $this->objDB->SafeParam($iCatKey); $sqlFilt = '(ID_Supplier='.$this->ID.') AND (CatKey LIKE "%'.$sqlCatKey.'%")'; $objTitle = $this->objDB->Titles_Cat()->GetData($sqlFilt,$iClass); if ($objTitle->HasRows()) { $objTitle->NextRow(); return $objTitle; } else { return NULL; } } protected function DeptsData_forCount($iClass='clsDept') { $objTbl = $this->objDB->Depts(); $objRows = $objTbl->GetData('isActive AND (ID_Supplier='.$this->ID.')',$iClass,'Sort'); return $objRows; } /*---- USED BY: $this->DeptsPage_forStore() RETURNS: array of data for the current supplier array[rows] = source dataset -- each row is an ItTyp within a Department array[depts][ID_Dept][ID_ItTyp] = count of items for sale by department and item type array[supp][ID_ItTyp] = count of items for sale by item type HISTORY: 2011-02-02 switched data source from qryItTypsDepts_ItTyps to _dept_ittyps Page was not displaying at all. Some additional changes were necessary. */ protected function DeptsData_forStore() { if (is_null($this->arDeptsData)) { //$objRows = $this->objDB->DataSet('SELECT * FROM qryItTypsDepts_ItTyps WHERE ID_Supplier='.$this->ID); $objRows = $this->objDB->DataSet('SELECT * FROM _dept_ittyps WHERE ID_Supp='.$this->ID); while ($objRows->NextRow()) { $idItTyp = $objRows->ID_ItTyp; $intCntForSale = $objRows->cntForSale; if (!isset($arObjs[$idItTyp])) { $objItTyp = $this->Engine()->ItTyps()->SpawnItem(); $arObjs[$idItTyp] = $objItTyp; $objItTyp->Row['NameSng'] = $objRows->Value('ItTypNameSng'); $objItTyp->Row['NamePlr'] = $objRows->Value('ItTypNamePlr'); $objItTyp->Row['cntForSale'] = 0; // initialize the count } // accumulate the list of everything this supplier has: $idSupp = $objRows->ID_Supplier; $objItTyp->Row['cntForSale'] += $intCntForSale; // accumulate the department listing: $idDept = $objRows->Value('ID_Dept'); $arDeptCntForSale[$idDept][$idItTyp] = $intCntForSale; } $arOut['rows'] = $objRows; $arOut['depts'] = $arDeptCntForSale; $arOut['supp'] = $arObjs; $this->arDeptsData = $arOut; } return $this->arDeptsData; } /*---- ACTION: Generates the item-type-count summary for the Supplier's index page */ public function DoPiece_ItTyp_Summary() { $arData = $this->DeptsData_forStore(); $arObjs = $arData['supp']; $outRow = ''; foreach ($arObjs as $id=>$obj) { $objTyp = $obj; $cnt = $objTyp->Value('cntForSale'); if ($cnt > 0) { $strType = $objTyp->Name($cnt); if ($outRow != '') { $outRow .= ', '; } $outRow .= ''.$cnt.' '.$strType; } } $out = ''.$outRow.''; return $out; } /*---- ACTION: Generates the table of departments and the summary of items available for each */ public function DoPiece_Dept_ItTyps() { $arData = $this->DeptsData_forStore(); $arObjs = $arData['supp']; $arDeptCntForSale = $arData['depts']; $out = ''; $isOdd = FALSE; $fpSupp = KWP_CAT_REL.strtolower($this->Value('CatKey')).'/'; foreach ($arDeptCntForSale as $idDept=>$arCnts) { $isOdd = !$isOdd; if ($isOdd) { $cellOpen = ''.$cellOpen.''.$strName.''; $out .= $cellOpen.$outRow.''; } } $out .= '
'; } else { $cellOpen = ''; } $outRow = ''; foreach ($arCnts as $id=>$cnt) { if ($cnt > 0) { $objTyp = $arObjs[$id]; $strType = $objTyp->Name($cnt); if ($outRow != '') { $outRow .= ', '; } $outRow .= ''.$cnt.' '.$strType; } } if ($outRow != '') { $objDept = $this->objDB->Depts()->GetItem($idDept); $strPageKey = $objDept->PageKey(); $strName = $objDept->Name; $out .= '
'; return $out; } protected function DeptsPage_forStore() { $out = $this->DoPiece_ItTyp_Summary(); $out .= $this->Engine()->SectionHdr('Departments:'); $out .= $this->DoPiece_Dept_ItTyps(); return $out; } public function DoPage() { $out = ''; assert('$this->ID'); // first, check how many departments supplier has: //$objDeptTbl = $this->objDB->Depts(); //$objDepts = $objDeptTbl->GetData('isActive AND (ID_Supplier='.$this->ID.')','clsDept','Sort'); $objDepts = $this->DeptsData_forCount(); $intRows = $objDepts->RowCount(); if ($intRows == 1) { // if there's only one department, display that instead of a department listing $objDepts->NextRow(); // get the first/only dept $out = $objDepts->DoPage(); } else { $out .= $this->DeptsPage_forStore(); } return $out; } public function ShopLink($iText=NULL) { if (is_null($iText)) { $strText = $this->Name; } else { $strText = $iText; } $out = ''.$strText.''; return $out; } public function Link() { return $this->ShopLink(); } public function URL() { return KWP_CAT_REL.strtolower($this->CatKey).'/'; } } class clsDepts extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_depts'); $this->KeyName('ID'); $this->ClassSng('clsDept'); $this->ActionKey('dept'); } protected function _newItem() { CallStep('clsDepts._newItem()'); return new clsDept($this); } // THIS FUNCTION IS DEPRECATED /* public function DoListing_forSupp($iSuppID) { CallEnter($this,__LINE__,'clsDepts.DoListing_forSupp('.$iSuppID.')'); //$objRows = $this->objDB->DataSet('SELECT * FROM qryItTypsDepts_ItTyps WHERE ID_Supplier='.$iSuppID); $objRows = $this->Data_forStore(); while ($objRows->NextRow()) { $idItTyp = $objRows->ID_ItTyp; $intCntForSale = $objRows->cntForSale; $arTypSng[$idItTyp] = $objRows->ItTyp_Sng; $arTypPlr[$idItTyp] = $objRows->ItTyp_Plr; // accumulate the list of everything this supplier has: $idSupp = $objRows->ID_Supplier; if (isset($arSuppCntForSale[$idItTyp])) { $arSuppCntForSale[$idItTyp] += $intCntForSale; } else { $arSuppCntForSale[$idItTyp] = $intCntForSale; } // accumulate the department listing: $idDept = $objRows->ID_Dept; $arDeptCntForSale[$idDept][$idItTyp] = $intCntForSale; } // Now present the accumulated data: // - SUPPLIER: $outRow = ''; foreach ($arSuppCntForSale as $idType=>$cnt) { if ($cnt == 1) { $strType = $arTypSng[$idType]; } else { $strType = $arTypPlr[$idType]; } if ($outRow != '') { $outRow .= ', '; } $outRow .= ''.$cnt.' '.$strType; } $out = ''.$outRow.''; // - DEPARTMENTS: $out .= '

Departments:

'; $isOdd = FALSE; foreach ($arDeptCntForSale as $idDept=>$arCnts) { $isOdd = !$isOdd; if ($isOdd) { $cellOpen = ''.$cellOpen.''.$strName.''; $outRow = ''; foreach ($arCnts as $idType=>$cnt) { if ($cnt == 1) { $strType = $arTypSng[$idType]; } else { $strType = $arTypPlr[$idType]; } if ($outRow != '') { $outRow .= ', '; } $outRow .= ''.$cnt.' '.$strType; } $out .= $cellOpen.$outRow.''; } $out .= '
'; } else { $cellOpen = ''; } $objDept = $this->objDB->Depts()->GetItem($idDept); $strPageKey = $objDept->PageKey(); $strName = $objDept->Name; $out .= '
'; CallExit('clsDepts.DoListing_forSupp()'); return $out; } /**/ } class clsDept extends clsDataSet { // object cache private $objSupp; public function SuppObj() { if (is_object($this->objSupp)) { return $this->objSupp; } else { $idSupp = $this->ID_Supplier; if ($idSupp) { $this->objSupp = $this->objDB->Suppliers()->GetItem($idSupp); return $this->objSupp; } else { return NULL; } } } // DEPRECATED -- use SuppObj() public function Supplier() { return $this->SuppObj(); } public function PageKey() { if ($this->PageKey) { return $this->PageKey; } else { return $this->CatKey; } } /*---- PURPOSE: loads data needed to display catalog views for this department HISTORY 2010-11-12 disabled automatic cache update 2010-11-16 changed sorting field from cntInPrint to cntForSale 2011-02-02 using _dept_ittyps now instead of qryItTypsDepts_ItTyps Also added "AND (cntForSale)" to WHERE clause -- not listing titles with nothing to sell */ protected function Data_forStore() { // was GetDeptData() //$objCache = $this->objDB->CacheMgr(); //$objCache->Update_byName('_dept_ittyps','clsDept.DoListing() for ID='.$this->ID); //$sql = 'SELECT * FROM qryItTypsDepts_ItTyps WHERE (ID_Dept='.$this->ID.') ORDER BY cntForSale DESC'; $sql = 'SELECT * FROM _dept_ittyps WHERE (ID_Dept='.$this->ID.') AND (cntForSale) ORDER BY cntForSale DESC'; $objItTyps = $this->objDB->DataSet($sql,'clsItTyp'); return $objItTyps; } /*----- PURPOSE: Print this department's information as part of department list HISTORY: 2010-11-16 $cntAvail is now cntForSale, not cntInPrint+qtyInStock */ public function DoListing() { assert('$this->ID'); $objItTyps = $this->Data_forStore(); $isFirst = true; $out = ''; while ($objItTyps->NextRow()) { if ($isFirst) { $isFirst = false; } else { $out .= ', '; } $cntInPrint = $objItTyps->cntInPrint; $qtyInStock = $objItTyps->qtyForSale; //$cntAvail = $cntInPrint + $qtyInStock; $cntForSale = $objItTyps->cntForSale; if ($cntAvail == 1) { $strName = $objItTyps->ItTyp_Sng; } else { $strName = $objItTyps->ItTyp_Plr; } $out .= ' '.$cntAvail.' '.$strName; } return $out; } /*---- PURPOSE: Print page for current department ACTION: * Iterates through item types available for this department. * For each item type, prints header and then a list of titles. HISTORY: 2010-11-?? Started using cached table _title_ittyps instead of qryTitles_ItTyps_Titles 2010-11-16 $cntAvail is now cntForSale, not cntInPrint+qtyInStock 2011-02-02 $qtyInStock now set to Row['qtyInStock'], not Row['qtyForSale'] which didn't make sense anyway */ public function DoPage() { $out = ''; $idDept = $this->ID; if (empty($idDept)) { throw new exception('Department object has no ID'); } $objSection = new clsPageOutput(); // calculate the list of item types available in this department $objItTyps = $this->Data_forStore(); $objTitles = new clsVbzTitle($this->objDB); $objNoImgSect = new clsPageOutput(); $cntSections = 0; while ($objItTyps->NextRow()) { $cntInPrint = $objItTyps->Row['cntInPrint']; $qtyInStock = $objItTyps->Row['qtyInStock']; $cntAvail = $objItTyps->Row['cntForSale']; if ($cntAvail) { $cntSections++; $idItTyp = $objItTyps->Row['ID_ItTyp']; $sql = 'SELECT *, ID_Title AS ID, TitleName AS Name, cntInStock FROM _title_ittyps WHERE ((cntForSale) AND (ID_ItTyp='.$idItTyp.') AND (ID_Dept='.$idDept.'));'; //$sql = 'SELECT t.ID_Title AS ID, t.* FROM qryTitles_ItTyps_Titles AS t WHERE (ID_ItTyp='.$idItTyp.') AND (ID_Dept='.$idDept.');'; $objTitles->Query($sql); $arTitles = NULL; if ($objTitles->hasRows()) { while ($objTitles->NextRow()) { // add title to display list $arTitles[] = $objTitles->Values(); // save it in a list } assert('is_array($arTitles)'); // We've generated the list of titles for this section; now display the section header and titles: $out .= $this->objDB->ShowTitles($objItTyps->Row['ItTypNamePlr'].':',$arTitles,$objNoImgSect); } else { echo 'ERROR: No titles found! SQL='.$sql; } $objSection->Clear(); } else { $out .= 'Small coding error: this line should never happen.'; // TO DO: log an error } } if (!$cntSections) { $out .= 'This department appears to have been emptied of all leftover stock. (Eventually there will be a way to see what items used to be here.)'; } if ($objNoImgSect->inTbl) { $objNoImgSect->EndTable(); $objSection->AddText($objNoImgSect->out); $objSection->EndTable(); $out .= $objSection->out; } return $out; } public function URL_Rel() { $strURL = $this->Supplier()->URL(); $strKey = $this->PageKey(); if ($strKey) { $strURL .= strtolower($strKey).'/'; } return $strURL; } public function URL_Abs() { return KWP_ROOT.$this->URL_Rel(); } public function LinkName() { $strURL = $this->URL_Rel(); return ''.$this->Name.''; } /*----- RETURNS: The string which, when prepended to a Title's CatKey, would form the Title's catalog number */ public function CatPfx() { $strFull = strtoupper($this->Supplier()->CatKey); if ($this->AffectsCatNum()) { $strFull .= '-'.strtoupper($this->CatKey); } return $strFull.'-'; } /*----- RETURNS: TRUE if this department affects the catalog number (i.e. if CatKey is non-blank) */ public function AffectsCatNum() { return ($this->CatKey != ''); } } class clsVbzTitles extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_titles'); $this->KeyName('ID'); $this->ClassSng('clsVbzTitle'); } public function Search_forText_SQL($iFind) { return '(Name LIKE "%'.$iFind.'%") OR (`Desc` LIKE "%'.$iFind.'%")'; } public function Search_forText($iFind) { $sqlFilt = $this->Search_forText_SQL($iFind); $rs = $this->GetData($sqlFilt); return $rs; } /* ACTION: Finds a Title from a CatNum and returns an object for it TO DO: Rename to Get_byCatNum() Stop using v_titles */ /* 2010-11-07 Is anything actually using this? public function GetItem_byCatNum($iCatNum) { global $objDataMgr; CallEnter($this,__LINE__,__CLASS__.'.GetItem_byCatNum('.$iCatNum.')'); assert('is_object($this->objDB)'); $sqlCatNum = strtoupper(str_replace('.','-',$iCatNum)); $sqlCatNum = $this->objDB->SafeParam($sqlCatNum); $sql = 'SELECT * FROM v_titles WHERE CatNum="'.$sqlCatNum.'"'; // $objTitle = new clsVbzTitleExt($this); $objTitle = new clsVbzTitle($this); // make sure _titles (part of v_titles) is up-to-date //$objDataMgr->Update_byName('_titles','GetItem_byCatNum('.$iCatNum.')'); $objDataMgr->Update_byName('_depts','GetItem_byCatNum('.$iCatNum.')'); // get data from v_titles $objTitle->Query($sql); $idTitle = $objTitle->ID; assert('is_resource($objTitle->Res)'); if ($objTitle->RowCount()) { assert('$idTitle'); $sql = 'SELECT * FROM titles WHERE ID='.$idTitle; $objTitle->dontLoadBasic = true; $objTitle->Query($sql); CallExit('clsVbzTitles.GetItem_byCatNum() -> ok'); return $objTitle; } else { CallExit('clsVbzTitles.GetItem_byCatNum() -> NULL'); return NULL; } } */ } class clsVbzTitle extends clsDataSet { // object cache private $objDept; private $objSupp; // options public $hideImgs; public function Dept() { $doLoad = FALSE; if (empty($this->objDept)) { $doLoad = TRUE; } else if (is_object($this->objDept)) { if ($this->ID_Dept != $this->objDept->ID) { $doLoad = TRUE; } } else { $doLoad = TRUE; } if ($doLoad) { $idDept = $this->ID_Dept; if (empty($idDept)) { $objDept = NULL; } else { $objDept = $this->objDB->Depts()->GetItem($idDept); assert('is_object($objDept)'); } $this->objDept = $objDept; } return $this->objDept; } /*---- RETURNS: ID of this title's supplier HISTORY: 2011-09-28 revised to get ID directly from the new ID_Supp field instead of having to look up the Dept and get it from there. */ public function Supplier_ID() { /* $objDept = $this->Dept(); $idSupp = $objDept->ID_Supplier; */ $idSupp = $this->Value('ID_Supp'); return $idSupp; } // DEPRECATED -- use SuppObj() public function Supplier() { return $this->SuppObj(); } public function SuppObj() { $doLoad = FALSE; if (empty($this->objSupp)) { $doLoad = TRUE; } else if (is_object($this->objSupp)) { if ($this->ID_Supplier != $this->objSupp->ID) { $doLoad = TRUE; } } else { $doLoad = TRUE; } if ($doLoad) { $idSupp = $this->Supplier_ID(); if (empty($idSupp)) { $objSupp = NULL; } else { $objSupp = $this->objDB->Suppliers()->GetItem($idSupp); assert('is_object($objSupp)'); } $this->objSupp = $objSupp; } return $this->objSupp; } public function Items() { $sqlFilt = 'ID_Title='.$this->ID; $objTbl = $this->objDB->Items(); $objRows = $objTbl->GetData($sqlFilt); return $objRows; } public function Topics() { $objTbl = $this->Engine()->TitleTopic_Topics(); $objRows = $objTbl->GetTitle($this->KeyValue()); return $objRows; } public function DoPage() { $idTitle = $this->KeyValue(); assert('$idTitle'); $objSection = new clsPageOutput(); // show "small" images if (!$this->hideImgs) { $objImgs = $this->ListImages('sm'); if ($objImgs->hasRows()) { while ($objImgs->NextRow()) { $strImgTag = $objImgs->AttrDispl; $urlRel = $objImgs->Spec; $idImg = $objImgs->ID; //$strImg = 'WebSpec().'"'; if ($strImgTag) { $strImg .= ' title="'.$strImgTag.'"'; } $strImg .= '>'; $objImgBig = $objImgs->ImgForSize('big'); if (is_object($objImgBig)) { if ($objImgBig->FirstRow()) { $strImg = $objImgBig->Href().$strImg.''; } } $objSection->AddText($strImg); } } else { $objSection->ShowImgUnavail(); } } // list topics for this title $db = $this->Engine(); $tbl = $db->TitleTopic_Topics(); $tbl->doBranch(TRUE); $rs = $tbl->GetTitle($idTitle); if ($rs->hasRows()) { $txt = '
'; $txt .= ''.$db->Topics()->IndexLink('Topics').':'; while ($rs->NextRow()) { $txt .= '
- '.$rs->ShopLink(); } $txt .= '
'; $objSection->AddText($txt); } // now list available items as table //$sql = 'SELECT * FROM qryTitles_ItTyps_ItTyps WHERE (ID_Title='.$idTitle.') ORDER BY ItTyp_Sort IS NULL, ItTyp_Sort;'; $sql = 'SELECT * FROM _title_ittyps WHERE (ID_Title='.$idTitle.') ORDER BY ItTypSort IS NULL, ItTypSort;'; $rsTypes = $this->Engine()->DataSet($sql); $isItem = FALSE; if ($rsTypes->hasRows()) { if (KF_CART_ABSOLUTE) { $urlCart = KWP_CART_ABS; } else { $urlCart = KWP_CART_REL; } $objSection->AddText('
'); $flagDisplayTogether = false; // hard-coded for now //$objStk = $this->Engine()->Items_Stock(); $tblItems = $this->Engine()->Items(); //$txtTblHdr = 'OptionStatusPriceOrder
Qty.list
price'; $txtTblHdr = $tblItems->Render_TableHdr(); $txtInStock = $txtOutStock = ''; while ($rsTypes->NextRow()) { $idItTyp = $rsTypes->Value('ID_ItTyp'); assert('$idItTyp'); $sqlFilt = '(ID_Title='.$idTitle.') AND (ID_ItTyp='.$idItTyp.')'; $sqlSort = 'GrpSort,GrpDescr,ItOpt_Sort'; $rsItems = $tblItems->GetData($sqlFilt,NULL,$sqlSort); //$idItType = 0; $txtLine = ''.$rsTypes->Value('ItTypNamePlr').':'; if ($flagDisplayTogether) { // displaying all items in a single listing $txtBoth .= $txtLine; } else { // set flags to determine which stock-status sections to show $cntInStock = $rsTypes->Value('cntInStock'); $cntForSale = $rsTypes->Value('cntForSale'); $cntOutStock = $cntForSale - $cntInStock; if ($cntInStock > 0) { $txtInStock .= $txtLine; } if ($cntOutStock > 0) { $txtOutStock .= $txtLine; } } // iterate through items for this type: $strGrpLast = ''; while ($rsItems->NextRow()) { $strGrp = $rsItems->Value('GrpDescr'); $qtyStk = $rsItems->Value('QtyIn_Stk'); if ($strGrp != $strGrpLast) { $strGrpLast = $strGrp; $strGrpCode = $rsItems->Value('GrpCode'); $out = ''; $out .= ' — '.$strGrp; if ($strGrpCode) { $out .= ' ('.$strGrpCode.')'; } $out .= ''; $out .= ''; // this should probably be a subroutine... if ($flagDisplayTogether) { $txtBoth .= $out; } else { if ($qtyStk > 0) { $txtInStock .= $out; } else { $txtOutStock .= $out; } } } //echo '
GOT TO #1 - qty='.$qtyStk; if ($rsItems->Value('isForSale')) { $isItem = TRUE; $txtLine = $rsItems->Render_TableRow(); if ($flagDisplayTogether) { $txtBoth .= $txtLine; } else { if ($qtyStk > 0) { $txtInStock .= $txtLine; } else { $txtOutStock .= $txtLine; } } } } } // DO the actual display of the accumulated text $txtTblOpen = ''; $txtTblFtr = ''; $txtTblShut = '
'; if ($flagDisplayTogether) { // Display in-stock and backordered items together $objSection->AddText($txtTblOpen); $objSection->AddText($txtTblHdr); $objSection->AddText($txtBoth); $objSection->AddText($txtTblFtr); $objSection->AddText($txtTblShut); } else { if ($txtInStock != '') { $txtClause = Pluralize($cntInStock,'This item is','These items are'); $objSection->AddText($txtTblOpen); $objSection->AddText(''.$txtClause.' in stock:'); $objSection->AddText($txtTblHdr); $objSection->AddText($txtInStock); $objSection->AddText($txtTblFtr); $objSection->AddText($txtTblShut); } if (!empty($txtOutStock)) { if (!empty($txtInStock)) { $objSection->AddText('

'); } $txtClause = Pluralize($cntOutStock,'This item is','These items are'); $objSection->AddText($txtTblOpen); $objSection->AddText(''.$txtClause.' not in stock'); $txtClause = Pluralize($cntOutStock,'it','them'); $objSection->AddText(', but we can (probably) get '.$txtClause.':'); $objSection->AddText($txtTblHdr); $objSection->AddText($txtOutStock); $objSection->AddText($txtTblFtr); $objSection->AddText($txtTblShut); } /**/ } $objSection->AddText('

'); } if (!$isItem) { $objSection->SectionHdr('This title is currently unavailable'); } return $objSection->out."\n\n"; } /*---- RETURNS: Array containing summary information about this title */ public function Indicia(array $iarAttr=NULL) { $objItems = $this->Items(); $intActive = 0; $intRetired = 0; if ($objItems->HasRows()) { while ($objItems->NextRow()) { if ($objItems->isForSale) { $intActive++; } else { $intRetired++; } } } // "dark-bg" brings up link colors for a dark background $arLink = array('class'=>'dark-bg'); // merge in any overrides or additions from iarAttr: if (is_array($iarAttr)) { $arLink = array_merge($arLink,$iarAttr); } $htLink = $this->Link($arLink); $txtCatNum = $this->CatNum(); $txtName = $this->Name; $arOut['cnt.active'] = $intActive; $arOut['cnt.retired'] = $intRetired; $arOut['txt.cat.num'] = $txtCatNum; $arOut['ht.link.open'] = $htLink; $arOut['ht.cat.line'] = $htLink.$txtCatNum.' '.$txtName; return $arOut; } /*---- RETURNS: Array containing summaries of ItTyps in which this Title is available array['text.!num'] = plaintext version with no numbers (types only) array['text.cnt'] = plaintext version with line counts array['html.cnt'] = HTML version with line counts array['html.qty'] = HTML version with stock quantities HISTORY: 2011-01-23 written */ public function Summary_ItTyps($iSep=', ') { $dsRows = $this->DataSet_ItTyps(); $outTextNoQ = $outTextType = $outTextCnt = $outHTMLCnt = $outHTMLQty = NULL; if ($dsRows->HasRows()) { $isFirst = TRUE; while ($dsRows->NextRow()) { $cntType = $dsRows->Value('cntForSale'); if ($cntType > 0) { $qtyStk = $dsRows->Value('qtyInStock'); $txtSng = $dsRows->Value('ItTypNameSng'); $txtPlr = $dsRows->Value('ItTypNamePlr'); $strType = Pluralize($cntType,$txtSng,$txtPlr); if ($isFirst) { $isFirst = FALSE; } else { $outTextType .= $iSep; $outTextCnt .= $iSep; $outHTMLCnt .= $iSep; if (!is_null($outHTMLQty)) { $outHTMLQty .= $iSep; } } $outTextType .= $txtSng; $outTextCnt .= $cntType.' '.$strType; $outHTMLCnt .= ''.$cntType.' '.$strType; if (!empty($qtyStk)) { $outHTMLQty .= ''.$qtyStk.' '.Pluralize($qtyStk,$txtSng,$txtPlr); } } } } $arOut['text.!num'] = $outTextType; $arOut['text.cnt'] = $outTextCnt; $arOut['html.cnt'] = $outHTMLCnt; $arOut['html.qty'] = $outHTMLQty; return $arOut; } // LATER: change name to DataSet_Images() to clarify that this returns a dataset, not a text list or array public function ListImages($iSize) { $sqlFilt = '(ID_Title='.$this->ID.') AND (Ab_Size="'.$iSize.'") AND isActive'; $objImgs = $this->objDB->Images()->GetData($sqlFilt,'clsImage','AttrSort'); return $objImgs; } /*---- RETURNS: dataset of item types for this title USES: _title_ittyps (cached table) HISTORY: 2011-01-19 written */ public function DataSet_ItTyps() { $sql = 'SELECT * FROM _title_ittyps WHERE ID_Title='.$this->KeyValue(); $obj = $this->Engine()->DataSet($sql,'clsTitleIttyp'); return $obj; } /*---- HISTORY: 2010-10-19 added optimization to fetch answer from CatKey field if it exists. This may cause future problems. Remove $iSep field and create individual functions if so. */ public function CatNum($iSep='-') { if (empty($this->Row['CatNum'])) { $objDept = $this->Dept(); if (is_object($objDept)) { $objSupp = $objDept->Supplier(); $strDeptKey = $objDept->CatKey; $strOut = $objSupp->CatKey; if ($strDeptKey) { $strOut .= $iSep.$strDeptKey; } } else { $strOut = '?'; } $strOut .= $iSep.$this->CatKey; } else { $strOut = $this->CatNum; } return strtoupper($strOut); } public function URL_part() { return strtolower($this->CatNum('/')); } public function URL($iBase=KWP_CAT_REL) { return $iBase.$this->URL_part(); } public function Link(array $iarAttr=NULL) { $strURL = $this->URL(); $htAttr = ArrayToAttrs($iarAttr); return ''; } public function LinkAbs() { $strURL = $this->URL(KWP_CAT); return ''; } public function LinkName() { return $this->Link().$this->Name.''; } /* 2010-11-06 if this is needed, use a method in SpecialVbzAdmin public function LinkName_wt() { // TO DO: make this more configurable $out = '[[vbznet:cat/'.$this->URL_part().'|'.$this->Name.']]'; return $out; } */ } /*==== PURPOSE: TITLE/ITTYP hybrid TABLE: _title_ittyps */ class clsTitleIttyp extends clsDataSet { // object cache private $objIttyp; public function Ittyp() { if (is_null($this->objIttyp)) { $this->objIttyp = VbzClasses::ItTyps()->GetItem($this->ID_ItTyp); } return $this->objIttyp; } } /* -------------------- *\ ITEM classes \* -------------------- */ class clsItems extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_items'); $this->KeyName('ID'); $this->ClassSng('clsItem'); } /*---- ACTION: Finds the Item with the given CatNum, and returns a clsItem object */ public function Get_byCatNum($iCatNum) { $sqlCatNum = $this->objDB->SafeParam(strtoupper($iCatNum)); $objItem = $this->GetData('CatNum="'.$sqlCatNum.'"'); if ($objItem->HasRows()) { $objItem->NextRow(); return $objItem; } else { return NULL; } } public function Search_byCatNum($iCatNum) { $sqlCatNum = $this->objDB->SafeParam(strtoupper($iCatNum)); $objItem = $this->GetData('CatNum LIKE "%'.$sqlCatNum.'%"'); if ($objItem->HasRows()) { return $objItem; } else { return NULL; } } /*---- RETURNS: Table header for list of available items on catalog Title pages HISTORY: 2011-01-24 created/corrected from code in Title page-display function */ public function Render_TableHdr() { return '' .'Option' .'Status' .'List
Price' .'Our
Price' .'Order
Qty.' .''; } } /* =============== CLASS: clsItem NOTES: * "in stock" always refers to stock for sale, not stock which has already been purchased * 2009-12-03: The above note does not clarify anything. * Four methods were moved here from clsShopCartLine in shop.php: ItemSpecs(), ItemDesc(), ItemDesc_ht(), ItemDesc_wt() They are used for displaying a full description of an item, in both shop.php and SpecialVbzAdmin */ class clsItem extends clsDataSet { // object cache private $objTitle; private $objItTyp; private $objItOpt; public function CatNum() { return $this->Value('CatNum'); } public function DescSpecs(array $iSpecs=NULL) { if (is_null($iSpecs)) { $this->objTitle = $this->Title(); $this->objItTyp = $this->ItTyp(); $this->objItOpt = $this->ItOpt(); $out['tname'] = $this->objTitle->Name; $out['ittyp'] = $this->objItTyp->Name($this->Qty); $out['itopt'] = $this->objItOpt->Descr; return $out; } else { return $iSpecs; } } public function DescLong(array $iSpecs=NULL) { // plaintext if (is_null($this->Value('Descr'))) { $sp = $this->DescSpecs($iSpecs); $strItOpt = $sp['itopt']; $out = '"'.$sp['tname'].'" ('.$sp['ittyp']; if (!is_null($strItOpt)) { $out .= ' - '.$strItOpt; } $out .= ')'; } else { $out = $this->Value('Descr'); } return $out; } public function DescLong_ht(array $iSpecs=NULL) { // as HTML $sp = $this->DescSpecs($iSpecs); $htTitleName = ''.$this->Title()->LinkName().''; $strItOpt = $sp['itopt']; $out = $htTitleName.' ('.$sp['ittyp']; if (!is_null($strItOpt)) { $out .= ' - '.$strItOpt; } $out .= ')'; return $out; } /*----- ASSUMES: This item is ForSale, so isForSale = true and (qtyForSale>0 || isInPrint) = true HISTORY: 2011-01-24 Renamed Print_TableRow() -> Render_TableRow; corrected to match header */ public function Render_TableRow() { $arStat = $this->AvailStatus(); $strCls = $arStat['cls']; $out = ''; $out .= ' '.$this->Value('ItOpt_Descr').''; $out .= ''.$arStat['html'].''; $out .= ''.DataCurr($this->Value('PriceList')).''; $out .= ''.DataCurr($this->Value('PriceSell')).''; $out .= ''.''; $out .= ''; return $out; } /*---- ACTION: Returns an array with human-friendly text about the item's availability status RETURNS: array['html']: status text, in HTML format array['cls']: class to use for displaying item row in a table USED BY: Render_TableRow() NOTE: This probably does not actually need to be a separate method; I thought I could reuse it to generate status for titles, but that doesn't make sense. Maybe it will be easier to adapt, though, as a separate method. HISTORY: 2010-11-16 Modified truth table for in-print status so that if isInPrint=FALSE, then status always shows "out of print" even if isCurrent=FALSE. What happens when a supplier has been discontinued? Maybe we need to check that separately. Wait for an example to come up, for easier debugging. 2011-01-24 Corrected to use cat_items fields */ private function AvailStatus() { //echo 'SQL=['.$this->sqlMake.']'; //echo '
'.print_r($this->Row,TRUE).'
'; $qtyInStock = $this->Value('QtyIn_Stk'); if ($qtyInStock) { $strCls = 'inStock'; $strStk = $qtyInStock.' in stock'; } else { $strCls = 'noStock'; $strStk = 'none in stock'; } $isInPrint = $this->Value('isInPrint'); if ($isInPrint) { if ($this->Value('isCurrent')) { if ($qtyInStock) { $txt = $strStk.'; more available'; } else { $txt = 'available, not in stock'; } } else { if ($qtyInStock) { $txt = $strStk.'; in-print status uncertain'; } else { $txt = $strStk.'; availability uncertain'; } } } else { if (is_null($isInPrint)) { $txt = ''.$strStk.' - possibly out of print'; } else { $txt = ''.$strStk.' - out of print!'; } } $arOut['html'] = $txt; $arOut['cls'] = $strCls; return $arOut; } public function Title() { $doLoad = TRUE; if (is_object($this->objTitle)) { if ($this->objTitle->ID == $this->ID_Title) { $doLoad = FALSE; } } if ($doLoad) { $this->objTitle = $this->objDB->Titles()->GetItem($this->ID_Title); } return $this->objTitle; } public function Supplier() { return $this->Title()->Supplier(); } public function ItTyp() { $doLoad = TRUE; if (is_object($this->objItTyp)) { if ($this->objItTyp->ID == $this->ID_ItTyp) { $doLoad = FALSE; } } if ($doLoad) { $this->objItTyp = $this->objDB->ItTyps()->GetItem($this->ID_ItTyp); } return $this->objItTyp; } public function ItOpt() { $doLoad = TRUE; if (is_object($this->objItOpt)) { if ($this->objItOpt->ID == $this->ID_ItOpt) { $doLoad = FALSE; } } if ($doLoad) { $this->objItOpt = $this->objDB->ItOpts()->GetItem($this->ID_ItOpt); } return $this->objItOpt; } // DEPRECATED - use ShipCostObj() public function ShCost() { return $this->ShipCostObj(); } /*---- HISTORY: 2010-10-19 created from contents of ShCost() */ public function ShipCostObj() { $doLoad = FALSE; if (empty($this->objShCost)) { $doLoad = TRUE; } elseif ($this->objShCost->ID != $this->ID_ShipCost) { $doLoad = TRUE; } if ($doLoad) { $this->objShCost = $this->objDB->ShipCosts()->GetItem($this->ID_ShipCost); } return $this->objShCost; } /*---- RETURNS: The item's per-item shipping price for the given shipping zone FUTURE: Rename to ShPerItm_forZone() */ public function ShipPriceItem($iZone) { global $listItmFactors; $fltZoneFactor = $listItmFactors[$iZone]; $objSh = $this->ShipCostObj(); return $objSh->PerItem * $fltZoneFactor; } /*---- RETURNS: The item's per-package shipping price for the given shipping zone FUTURE: Rename to ShPerPkg_forZone() */ public function ShipPricePkg($iZone) { global $listPkgFactors; $fltZoneFactor = $listPkgFactors[$iZone]; return $this->ShipCostObj()->PerPkg * $fltZoneFactor; } /*---- RETURNS: The item's per-item shipping price, with no zone calculations FUTURE: need to handle shipping zone more gracefully and rigorously This function is currently only used in the admin area, so does not need to be infallible. */ public function ShPerItm() { return $this->ShipCostObj()->Value('PerItem'); } /*---- RETURNS: The item's per-package shipping price, with no zone calculations FUTURE: need to handle shipping zone more gracefully and rigorously This function is currently only used in the admin area, so does not need to be infallible. */ public function ShPerPkg() { return $this->ShipCostObj()->Value('PerPkg'); } } /*==== PURPOSE: clsItems with additional catalog information */ class clsItems_info_Cat extends clsItems { public function __construct($iDB) { parent::__construct($iDB); $this->Name('qryCat_Items'); //$this->ClassSng('clsItem_info_Cat'); } } /* -------------------- *\ ITEM TYPE classes \* -------------------- */ class clsItTyps extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_ittyps'); $this->KeyName('ID'); $this->ClassSng('clsItTyp'); } // BOILERPLATE - cache protected $objCache; protected function Cache() { if (!isset($this->objCache)) { $this->objCache = new clsCache_Table($this); } return $this->objCache; } public function GetItem_Cached($iID=NULL,$iClass=NULL) { return $this->Cache()->GetItem($iID,$iClass); } /* public function GetData_Cached($iWhere=NULL,$iClass=NULL,$iSort=NULL) { return $this->Cache()->GetData($iWhere,$iClass,$iSort); } */ /*---- FUTURE: * This method really belongs with Admin functions, since it will never be used in the standalone store * If table ever grows to a significant size, we might end up changing the filtering criteron. HISTORY: 2010-11-21 Adapted from clsFolders. */ public function DropDown($iName=NULL,$iDefault=NULL,$iChoose=NULL) { $strName = is_null($iName)?($this->Table->ActionKey()):$iName; $arRows = $this->Cache()->GetData_array('isType',NULL,'Sort, NameSng'); $out = $this->DropDown_for_array($arRows,$strName,$iDefault,$iChoose); return $out; } /*---- ACTION: same as clsItTyp::DropDown_for_rows, but takes an array HISTORY: 2011-02-11 wrote */ public function DropDown_for_array(array $iRows,$iName=NULL,$iDefault=NULL,$iChoose=NULL) { $strName = is_null($iName)?($this->Table->ActionKey()):$iName; $objRow = $this->SpawnItem(); foreach($iRows as $key => $row) { $objRow->Values($row); $arList[$key] = $objRow->Name(); } return DropDown_arr($strName,$arList,$iDefault,$iChoose); } } /*==== CLASS: Item Type (singular) */ class clsItTyp extends clsDataSet_bare { /*---- HISTORY: 2011-02-02 removed the IsNew() check because sometimes we want to use this on data which has not been associated with an ID */ public function Name($iCount=NULL) { if (is_null($iCount)) { if (isset($this->Row['cntInPrint'])) { $iCount = $this->Row['cntInPrint']; } else { $iCount = 1; // default: use singular } } if ($iCount == 1) { $out = array_key_exists('NameSng',$this->Row)?$this->Row['NameSng']:NULL; } else { $out = array_key_exists('NamePlr',$this->Row)?$this->Row['NamePlr']:NULL; } return $out; } /*---- ACTION: Shows a drop-down selection box contining the rows in the current dataset FUTURE: * This method really belongs with Admin functions, since it will never be used in the standalone store */ public function DropDown_for_rows($iName=NULL,$iDefault=NULL,$iChoose=NULL) { $strName = is_null($iName)?($this->Table->ActionKey()):$iName; if ($this->HasRows()) { $out = ''; } else { $out = 'No item types found.'; } return $out; } } /* -------------------- *\ ITEM OPTION classes \* -------------------- */ class clsItOpts extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_ioptns'); $this->KeyName('ID'); $this->ClassSng('clsItOpt'); } // ==BOILERPLATE - cache protected $objCache; protected function Cache() { if (!isset($this->objCache)) { $this->objCache = new clsCache_Table($this); } return $this->objCache; } public function GetItem_Cached($iID=NULL,$iClass=NULL) { return $this->Cache()->GetItem($iID,$iClass); } // ==/BOILERPLATE /*---- FUTURE: * This method really belongs with Admin functions, since it will never be used in the standalone store * If table ever grows to a significant size, we might end up changing the filtering criteron. * Actually, this should be a boilerplate function with a helper class. The only change from clsItTyps is the GetData filter and sorting. HISTORY: 2010-11-21 Adapted from clsItTyps */ public function DropDown($iName=NULL,$iDefault=NULL,$iChoose=NULL) { $strName = is_null($iName)?($this->Table->ActionKey()):$iName; $arRows = $this->Cache()->GetData_array(NULL,NULL,'Sort'); $out = $this->DropDown_for_array($arRows,$strName,$iDefault,$iChoose); return $out; } /*---- ACTION: same as clsItTyp::DropDown_for_rows, but takes an array HISTORY: 2011-02-11 wrote */ public function DropDown_for_array(array $iRows,$iName=NULL,$iDefault=NULL,$iChoose=NULL) { $strName = is_null($iName)?($this->Table->ActionKey()):$iName; $objRow = $this->SpawnItem(); foreach($iRows as $key => $row) { $objRow->Values($row); $arList[$key] = $objRow->ChoiceLine(); } return DropDown_arr($strName,$arList,$iDefault,$iChoose); } } class clsItOpt extends clsDataSet { /*---- RETURNS: Approximately as much description as will fit nicely into a choice line for a drop-down or selection box */ public function ChoiceLine() { return $this->Value('CatKey'); } } /* -------------------- *\ SHIP COST classes \* -------------------- */ class clsShipCosts extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_ship_cost'); $this->KeyName('ID'); $this->ClassSng('clsShipCost'); } // ==BOILERPLATE - cache protected $objCache; protected function Cache() { if (!isset($this->objCache)) { $this->objCache = new clsCache_Table($this); } return $this->objCache; } public function GetItem_Cached($iID=NULL,$iClass=NULL) { return $this->Cache()->GetItem($iID,$iClass); } // ==/BOILERPLATE /*---- FUTURE: * This method really belongs with Admin functions, since it will never be used in the standalone store * If table ever grows to a significant size, we might end up changing the filtering criteron. * Actually, this should be a boilerplate function with a helper class. The only change from clsItTyps is the GetData filter and sorting. HISTORY: 2010-11-21 Adapted from clsItTyps */ public function DropDown($iName=NULL,$iDefault=NULL,$iChoose=NULL) { $strName = is_null($iName)?($this->Table->ActionKey()):$iName; $arRows = $this->Cache()->GetData_array(NULL,NULL,'Sort'); $out = $this->DropDown_for_array($arRows,$strName,$iDefault,$iChoose); return $out; } /*---- ACTION: same as clsItTyp::DropDown_for_rows, but takes an array HISTORY: 2011-02-11 wrote */ public function DropDown_for_array(array $iRows,$iName=NULL,$iDefault=NULL,$iChoose=NULL) { $strName = is_null($iName)?($this->Table->ActionKey()):$iName; $objRow = $this->SpawnItem(); foreach($iRows as $key => $row) { $objRow->Values($row); $arList[$key] = $objRow->ChoiceLine(); } return DropDown_arr($strName,$arList,$iDefault,$iChoose); } } class clsShipCost extends clsDataSet { /*---- RETURNS: Approximately as much description as will fit nicely into a choice line for a drop-down or selection box */ public function ChoiceLine() { return $this->Value('Descr'); } } /* -------------------- *\ STOCK ITEM classes \* -------------------- */ /*==== CLASS PAIR: Items_Stock PURPOSE: items with stock information (from a query or cache) Similar to clsItem, but with different fields HISTORY: 2011-01-24 disabled -- use cat_items (has all necessary fields cached) */ /* class clsItems_Stock extends clsItems { public function __construct($iDB) { parent::__construct($iDB); $this->Name('qryCat_Items_Stock'); //$this->Name('_title_ittyps'); // WRONG! This GROUPS the data, no Items. $this->KeyName('ID'); $this->ClassSng('clsItem_Stock'); } public function Render_TableHdr() { return '' .'Option' .'Status' .'Price' .'Order
Qty.' .'list
price' .''; } } */ //class clsItem_Stock extends clsItem { /*----- ASSUMES: This item is ForSale, so isForSale = true and (qtyForSale>0 || isInPrint) = true This item's data was generated by clsItems_Stock TO DO: create a separate clsItem_Stock class and move this method there. TO DO: this method isn't named or structured canonically; consider refactoring. Whatever that means. HISTORY: 2011-01-24 moved from clsItem to clsItem_Stock */ /* public function Render_TableRow() { $arStat = $this->AvailStatus(); $strCls = $arStat['cls']; $out = ''; $out .= ' '.$this->ItOpt_Descr.''; $out .= ''.$arStat['html'].''; $out .= ''.DataCurr($this->PriceSell).''; $out .= ''.''; if ($this->PriceList) { $out .= ''.DataCurr($this->PriceList).''; } $out .= ''; return $out; } */ /*---- ACTION: Returns an array with human-friendly text about the item's availability status RETURNS: array['html']: status text, in HTML format array['cls']: class to use for displaying item row in a table USED BY: Print_TableRow() NOTE: This probably does not actually need to be a separate method; I thought I could reuse it to generate status for titles, but that doesn't make sense. Maybe it will be easier to adapt, though, as a separate method. HISTORY: 2010-11-16 Modified truth table for in-print status so that if isInPrint=FALSE, then status always shows "out of print" even if isCurrent=FALSE. What happens when a supplier has been discontinued? Maybe we need to check that separately. Wait for an example to come up, for easier debugging. 2011-01-24 Adapted from clsItem (was it being used there, for real?) to clsItem_Stock */ /* private function AvailStatus() { //echo 'SQL=['.$this->sqlMake.']'; //echo '
'.print_r($this->Row,TRUE).'
'; $qtyInStock = $this->Value('qtyForSale'); if ($qtyInStock) { $strCls = 'inStock'; $strStk = $qtyInStock.' in stock'; } else { $strCls = 'noStock'; $strStk = 'none in stock'; } if ($this->Value('isInPrint')) { if ($this->Value('isCurrent')) { if ($qtyInStock) { $txt = $strStk.'; more available'; } else { $txt = 'available, not in stock'; } } else { if ($qtyInStock) { $txt = $strStk.'; in-print status uncertain'; } else { $txt = $strStk.'; availability uncertain'; } } } else { $txt = ''.$strStk.' - out of print!'; } $arOut['html'] = $txt; $arOut['cls'] = $strCls; return $arOut; } } */ class clsStkItems extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('stk_items'); $this->KeyName('ID'); } /*----- RETURNS: Recordset containing list of stock for the given item (qtys, bin, bin name, place, place name, notes) */ public function List_forItem($iItemID) { $sql = 'SELECT ' .'ID, QtyForSale, QtyForShip, QtyExisting, ID_Bin, ID_Place, BinCode, WhName, Notes ' .'FROM qryStk_lines_remaining WHERE (ID_Item='.$iItemID.');'; $objStock = $this->objDB->DataSet($sql,$this->ClassSng()); $objStock->Table = $this; return $objStock; } /* (2010-06-15) This doesn't seem to be used anywhere, and possibly does not work. public function QtyInStock_forItem($iItemID) { $sql = 'SELECT SUM(s.Qty) AS Qty FROM stk_items AS s LEFT JOIN stk_bins AS sb ON s.ID_Bin=sb.ID WHERE (s.ID_Item='.$iItemID.') AND (s.WhenRemoved IS NULL) AND (sb.WhenVoided IS NULL) AND (sb.isForSale) GROUP BY s.ID_Item'; $objStock = new clsDataItem($this); $objStock->Query($sql); if ($objStock->NextRow()) { assert('is_resource($objStock->Res)'); if ($objStock->RowCount()) { assert('$objStock->RowCount() == 1'); return $objStock->Qty; } } else { return NULL; } } */ } /* -------------------- *\ IMAGE classes \* -------------------- */ class clsVbzFolders extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_folders'); $this->KeyName('ID'); $this->ClassSng('clsVbzFolder'); } /*---- FUTURE: * This method really belongs with Admin functions, since it will never be used in the standalone store * If table ever grows to a significant size, we might end up changing the filtering criteron. */ public function DropDown($iName,$iDefault=NULL) { $dsRows = $this->GetData('Descr IS NOT NULL'); return $dsRows->DropDown_for_rows($iName,$iDefault); } /*---- PURPOSE: Finds the folder record which matches as much of the given URL as possible RETURNS: object for that folder, or NULL if no match found ASSUMES: folder list is not empty TO DO: does not yet handle adding new folders does not recursively check subfolders for improved match HISTORY: 2011-01-30 created -- subfolders not implemented yet because no data to test with */ public function FindBest($iURL) { if (strlen($iURL) > 0) { $slURL = strlen($iURL); $rs = $this->GetData('ID_Parent IS NULL'); // start with root folders $arrBest = NULL; $slBest = 0; while ($rs->NextRow()) { $fp = $rs->Value('PathPart'); $pos = strpos($iURL,$fp); // does the folder appear in the URL? if ($pos === 0) { $slFldr = strlen($fp); if ($slFldr > $slBest) { $arrBest = $rs->Values(); $slBest = $slFldr; } } } if (is_array($arrBest)) { $rsFldr = $this->SpawnItem(); $rsFldr->Values($arrBest); return $rsFldr; } } return NULL; } } class clsVbzFolder extends clsDataSet { public function Spec() { $out = ''; if (!is_null($this->ID_Parent)) { $out = $this->ParentObj()->Spec(); } $out .= $this->PathPart; return $out; } protected function ParentObj() { return $this->Table->GetItem($this->ID_Parent); } /*---- ACTION: Shows a drop-down selection box contining the rows in the current dataset FUTURE: * This method really belongs with Admin functions, since it will never be used in the standalone store */ public function DropDown_for_rows($iName,$iDefault=NULL) { if ($this->HasRows()) { $out = ''; } else { $out = 'No shipments matching filter'; } return $out; } /*---- RETURNS: The rest of the URL after this folder's PathPart is removed from the beginning USED BY: bulk image entry admin routine */ public function Remainder($iSpec) { $fsFldr = $this->Value('PathPart'); $slFldr = strlen($fsFldr); $fsRest = substr($iSpec,$slFldr); return $fsRest; } } class clsImages extends clsVbzTable { public function __construct($iDB) { parent::__construct($iDB); $this->Name('cat_images'); $this->KeyName('ID'); $this->ClassSng('clsImage'); } public function Update(array $iSet,$iWhere) { $iSet['WhenEdited'] = 'NOW()'; parent::Update($iSet,$iWhere); $this->Touch(__METHOD__.' WHERE='.$iWhere); } public function Insert(array $iData) { $iData['WhenAdded'] = 'NOW()'; parent::Insert($iData); $this->Touch(__METHOD__); } public function Thumbnails($iTitle,array $iarAttr=NULL) { $sqlFilt = '(ID_Title='.$iTitle.') AND (Ab_Size="th") AND isActive'; $objTbl = $this->objDB->Images(); $objRows = $objTbl->GetData($sqlFilt,NULL,'AttrSort'); return $objRows->Images_HTML($iarAttr); } } class clsImage extends clsVbzRecs { // object cache protected $objTitle; /*---- HISTORY: 2010-11-16 Modified to use new cat_folders data via ID_Folder */ public function WebSpec() { //return KWP_IMG_MERCH.$this->Spec; return $this->FolderPath().$this->Spec; } /*---- HISTORY: 2010-11-16 Created */ public function FolderObj() { return $this->objDB->Folders()->GetItem($this->ID_Folder); } /*---- HISTORY: 2010-11-16 Created */ public function FolderPath() { return $this->FolderObj()->Spec(); } /*----- ACTION: Generate the HTML code to display all images in the current dataset */ public function Images_HTML(array $iarAttr=NULL) { if ($this->HasRows()) { $out = ''; while ($this->NextRow()) { $out .= $this->Image_HTML($iarAttr); } return $out; } else { return NULL; } } /*----- ACTION: Generate the HTML code to display an image for the current row */ public function Image_HTML(array $iarAttr=NULL) { $htDispl = $this->AttrDispl; if (!empty($htDispl)) { nzApp($iarAttr['title'],' - '.$htDispl); } $iarAttr['src'] = $this->WebSpec(); $htAttr = ArrayToAttrs($iarAttr); return ''; } /*----- ACTION: Get the image with the same title and attribute but with the given size */ public function ImgForSize($iSize) { if ($this->AttrFldr) { $sqlAttr = '="'.$this->AttrFldr.'"'; } else { $sqlAttr = ' IS NULL'; } $sqlFilt = '(ID_Title='.$this->ID_Title.') AND (AttrFldr'.$sqlAttr.') AND (Ab_Size="'.$iSize.'")'; $objImgOut = $this->objDB->Images()->GetData($sqlFilt); return $objImgOut; } public function Title() { if (!is_object($this->objTitle)) { $this->objTitle = $this->objDB->Titles()->GetItem($this->ID_Title); } return $this->objTitle; } /*----- ACTION: outputs a standalone page for larger image sizes - does not use skin */ public function DoPage() { global $vbgImgSize; $objTitle = $this->Title(); $strCatNum = $objTitle->CatNum(); $strTitle = $objTitle->Name; $htTitleHref = $objTitle->Link(); $htmlTitle = KS_STORE_NAME.' - '.$strCatNum.' “'.$strTitle.'”'; echo ''.$htmlTitle.''; echo "\n'; echo '
'; echo ''.$htTitleHref.$strTitle.'
'.$strCatNum.' - title ID #'.$this->ID_Title.''; // show list of available image sizes (except th and sm) $objImgs = $this->ListImages_sameAttr(); $strSizes = NULL; if ($objImgs->hasRows()) { $strImgCount = 0; while ($objImgs->NextRow()) { $strImgType = $objImgs->Ab_Size; if (!empty($strImgType)) { if (($strImgType != 'th') && ($strImgType != 'sm')) { $strImgCount++; $strDesc = $vbgImgSize[$strImgType]; if ($objImgs->ID == $this->ID) { $strImgTag = ''.$strDesc.''; } else { $strImgTag = $objImgs->Href(TRUE).$strDesc.''; } if (!empty($strSizes)) { $strSizes .= ' .. '; } $strSizes .= $strImgTag; } } } if ($strImgCount > 1) { $ftSizes = '' .'sizes :' .''.$strSizes.'' .': sizes' .''; } else { $ftSizes = NULL; } } // show list of available images for this title at this size $strAttrs = NULL; $objImgs = $this->ListImages_sameSize(); //echo 'test'; if ($objImgs->NextRow()) { $intImgs = 0; if ($objImgs->hasRows()) { $idx = 0; while ($objImgs->NextRow()) { $idx++; $strImgFldr = $objImgs->AttrFldr; $strImgDescr = $objImgs->AttrDispl.'('.$idx.')'; $intImgs++; if (!empty($out)) { $strAttrs .= ' .. '; } if ($objImgs->ID == $this->ID) { $strAttrs .= ''.$strImgDescr.''; } else { $strAttrs .= $objImgs->Href(TRUE).$strImgDescr.''; } } if ($intImgs > 1) { $ftAttrs = '' .'views :' .''.$strAttrs.'' .': views' .''; } else { $ftAttrs = NULL; } } } if ((!empty($ftSizes)) || (!empty($ftAttrs))) { echo '
'; echo $ftSizes.$ftAttrs; echo '
'; } else { echo '
'; } echo $htTitleHref.'ordering page
'; echo $this->Image_HTML(); echo "\n\n"; 

   }
 public function ListImages_sameAttr() {
   $sqlFilt = 'isActive AND (ID_Title='.$this->ID_Title.')';
   if ($this->AttrFldr) {
     $sqlFilt .= ' AND (AttrFldr="'.$this->AttrFldr.'")';
   }
   $objImgOut = $this->objDB->Images()->GetData($sqlFilt);

   return $objImgOut;
 }
   public function ListImages_sameSize() {

$sqlFilt = 'isActive AND (ID_Title='.$this->ID_Title.') AND (Ab_Size="'.$this->Ab_Size.'")'; //echo 'SQL: '.$sqlFilt; $objImgOut = $this->objDB->Images()->GetData($sqlFilt); return $objImgOut; 

   }
   public function Href($iAbs=false) {

$strFldrRel = $this->AttrFldr; if ($strFldrRel) { $strFldrRel .= '-'; } $strFldrRel .= $this->Ab_Size;

if ($iAbs) { $strFldr = $this->Title()->URL().'/'.$strFldrRel; } else { $strFldr = $strFldrRel; } return '<a href="'.$strFldr.'/">'; 

   }

}

/* ====================== 

GLOBAL VARIABLES CLASS
  • /

class clsGlobalVars extends clsTable { 

   const TableName='var_global';
   private $strOld;

   public function __construct($iDB) {

parent::__construct($iDB); $this->Name(self::TableName); $this->KeyName('Name'); // $this->ClassSng('clsGlobalVar'); 

   }
   public function Exists($iName) {

$sqlFilt = 'Name="'.$iName.'"'; $objRow = $this->GetData($sqlFilt); if ($objRow->hasRows()) { $objRow->NextRow(); $this->strOld = $objRow->Value; return TRUE; } else { unset($this->strOld); return FALSE; } 

   }
   private function GetVar($iName) {

if ($this->Exists($iName)) { return $this->strOld; } else { return NULL; } 

   }
   private function SetVar($iName, $iValue) {

$strWhere = __METHOD__; // should return class::function $sqlVal = SQLValue($iValue); $sqlName = SQLValue($iName);

if ($this->Exists($iName)) { $this->objDB->LogEvent($strWhere, '|name='.$iName.'|old='.$this->strOld.'|new='.$sqlVal, 'global updated: '.$iName, 'VAR-U',FALSE,FALSE);

$arUpd = array( 'Value' => $sqlVal, 'WhenUpdated' => 'NOW()' ); $this->Update($arUpd,'Name='.$sqlName); } else { $this->objDB->LogEvent($strWhere, '|name='.$iName.'|val='.$sqlVal, 'global added: '.$iName, 'VAR-I',FALSE,FALSE); $arIns = array( 'Name' => $sqlName, 'Value' => $sqlVal, 'WhenCreated' => 'NOW()' ); $this->Insert($arIns); } 

   }
   public function Val($iName,$iValue=NULL) {

if (is_null($iValue)) { return $this->GetVar($iName); } else { return $this->SetVar($iName,$iValue); } 

   }

/* 

   public function __set($iName, $iValue) {

$this->SetVar($iName,$iValue); 

   }
   public function __get($iName) {

return $this->GetVar($iName); 

   }
  • /

} /* ==================== *\ 

   UTILITY FUNCTIONS

\* ==================== */

function DataCents($iCents,$iPfx='$') { 

 $out = $iPfx.sprintf("%01.2f",$iCents/100);
 return $out;

} function DataCurr($iCurr,$iPfx='$') { 

   if (is_null($iCurr)) {

return NULL; 

   } else {

$out = $iPfx.sprintf("%01.2f",$iCurr); return $out; 

   }

} function DataDate($iDate) { 

   if (is_string($iDate)) {
     $objDate = new DateTime($iDate);

// if ($iDate == 0) { // $out = ; // } else { // $out = date('Y-m-d',$iDate); 

     $out = $objDate->format('Y-m-d');
   } else {
     $out = ;
   }
   return $out;

} function DataDateTime($iDate) { 

   if (is_string($iDate)) {

if ($iDate == ) { $out = '-'; } else { $objDate = new DateTime($iDate); $out = $objDate->format('Y-m-d H:i'); } 

   } else {
     $out = ;
   }
   return $out;

} function IsEmail($iAddr) { 

   $ok = preg_match('/^[0-9,a-z,\-,\.]{1,}@([0-9,a-z,\-][\.]{0,1}){2,}$/i', $iAddr );
   return $ok;

} function ArrayToAttrs(array $iarAttr=NULL) { 

   $htAttr = ;
   if (is_array($iarAttr)) {

foreach ($iarAttr as $key => $val) { $htAttr .= ' '.$key.'="'.$val.'"'; } 

   }
   return $htAttr;

}

/* ==================== *\ 

   MISSING FUNCTIONS

\* ==================== */ if (!function_exists('http_redirect')) { 

   function http_redirect($iURL) {

header('Status: 301 Moved Permanently',TRUE); header('Location: '.$iURL,TRUE); 

   }

} </php>

Retrieved from "https://wooz.dev/mw/index.php?title=VbzCart/docs/archive/code/files/store.php&oldid=6624"