kleentex/source/prod_control.hpp

Go to the documentation of this file.

#include "page_control.hpp"
#include "ocTypes.h"
#include "lookup.hpp"
#include "../admin/Category.hpp"
#include "page_enhancements.hpp"
#include "shoppingCart.hpp"
#include "../admin/ItemDetail.hpp"
#include "../admin/Style.hpp"
#include "../admin/Size_Price.hpp"
#include "../admin/Promotion.hpp"
#include "Session.hpp"
/*

  prod_control.hpp
  ===================
  Custom page controller for buying stuff online
  at rainbow custom logomats.
  ...
  Copyright (c) 2005 by David K. McCombs
  davidmc@w3sys.com
  
*/

class virtualStore : public read_base
{
protected:
  
  string c,p;
  identifier crtid;
  ocString sql;
  
public:
  double discount;
  bool freeShipping;
  
  virtualStore():read_base(),crtid(0),
  discount(0.0),freeShipping(false)
  { 
    ;       
  }
  ~virtualStore()
  {
    ;
  }
  void setArgs( cgiScript & script )
  {
    cgiInput & inputArgs = script.ClientArguments();    
    if( inputArgs.count("c") ) // chosen category
    {
      c = inputArgs["c"].c_str();
    }
    if( inputArgs.count("p") ) // chosen product
    {
      p = inputArgs["p"].c_str();
    }
    if( inputArgs.count("crtid") )
    { 
      crtid = atoll(inputArgs["crtid"].c_str());    
    }
    
   
  }
  bool baseCategoryFixup( cgiScript & script )
  {
    setArgs(script);
    if( c.length() == 0 &&  p.length() == 0 )
    {
      // see if one is associated with the base URL
      sql = "select Id from Category where Base_URL = '";
      sql += baseUrl;
      sql += script.PathInfo().c_str();
      sql +="'";
      
      if( rs.open(sql) )
      {
        c = rs.getField(0).format();
        rs.close();
        if( script.QueryString().length() == 0 )
        {
          // makes sure enhanced content based on query string is emitted
          script.QueryString() = "c=";
          script.QueryString() += c.c_str();
        }
      }
    }
  }
  
  void showCategories( cgiScript & script, ocString & mitem )
  {        
    Category_Obj cat_obj;
      
    if( c.length()) 
    {
      // get this cat
      cat_obj.key(atoll(c.c_str()));
       
      if(  cat_obj.get_data() )
      {     
        sql = "select c.Id, c.Description, c.Display_Order, c.Display_Level  ";
        sql += " from Category c where Display_Order > ";
        sql.append( cat_obj.Display_Order );            
        sql += " order by c.Display_Order ";
        bool isExpanding = false;

        bool opened = rs.open(sql);
        int iFirstLevel = -1;

        while( opened )
        { 
          // only allow immediate children     
          int iLevel = atol(rs.getField(3).format().c_str());
          if( iLevel <= cat_obj.Display_Level ) break;        
          if( iFirstLevel == -1 ) iFirstLevel = iLevel;
          if( iFirstLevel == iLevel )
          {          
            // get the current c 
            string current_c = rs.getField(0).format();
            // get current level
            string level=rs.getField(3).format();
            string classTag = "pcat"+level;
            // the major menu item should have replacements for $c$ and $label            
            script << mitem.replace( "$c$", current_c.c_str() )
                          .replace( "$id", current_c )
                          .replace( "$cat", classTag )
                          .replace( "$label", rs.getField(1).format().c_str() );    
          }
          opened = rs.next();

        }
        rs.close();
      }
    }
  }
  
  void showProducts( page & pg, cgiScript & script, ocString & prodTemplate, 
                     ocString listTemplate, ocString & prodListWrap, 
                     string contentTag, ocString headingTemplate)
  {
    setArgs(script);
    // do we have a 'p' (product id)
    if( p.length() )
    {
      showProduct( script, prodTemplate );
    }
    else if( c.length() )
    {
      showProducts(  pg, script, listTemplate, prodListWrap, headingTemplate );
    }
    else // default
    {             
      pg.emitContent( contentTag, "$content" );
    }
  }
  
  void showDesigner( cgiScript & script )
  {
    cgiTemplates design;
    if(design.load("Templates/designer.html"))
    {
      string Id = rs.getField(0).format(); // product
      string Name = rs.getField(2).format(); // product name
      string Lines_Custom_Text = rs.getField(3).format(); // lines
      
      cgiInput & inputArgs = script.ClientArguments(); 
      string sstyle = inputArgs["style"];
      string ssize = inputArgs["size"];
      string orientation = inputArgs["orientation"];
      
      rs.close();
      ocString sql;
      Style_Obj style;
      style.key( atoll(sstyle.c_str()) );
      style.get_data();
      
      Size_Price_Obj size;
      size.key( atoll(ssize.c_str()) );
      size.get_data();
      // be lazy and assume size in foot units
      ocString Real_Height, Real_Width, Design_No;
      if( orientation == "Horizontal" )
      {
        Real_Width.append( size.X * 12 );
        Real_Height.append( size.Y * 12 );
      }
      else
      {
        Real_Width.append( size.Y * 12 );
        Real_Height.append( size.X * 12 );     
      }
      Design_No = style.Manufacturer_Design_No;
      
      // For now, Get just one design per product listing, 
      // System can in future handle multiples for different sizes
      // (DKMc... The future is now, this is what we are doing as of 1/22/06)
      sql = "select Id , Pixel_Height , Pixel_Width , "
            "Text_Top_Left_X , Text_Top_Left_Y , Text_Bot_Right_X , Text_Bot_Right_Y , "
            "Pattern_Image from Designer where Product_Id = ";
      sql += Id;
      sql += " and Size = " + ssize + " and Style = " + sstyle + " and Orientation = '" +
             orientation + "'";
      bool opened = rs.open(sql);
      if( opened )
      {          
        ocString form = design.getParagraph("end");        
        script << design.getParagraph("top");
        script << "var myDesigner = new designer(" + Lines_Custom_Text + ");" << endl;  
                //id, no,       pattern,      rW,rH,pW,  pH,t1X,t1Y,t2X,t2Y
        script << "myDesigner.addDesign('" <<
                                        rs.getField("Id").format() << "', '" <<
                                        Design_No << "','" <<
                                        rs.getField("Pattern_Image").format() << "'," <<
                                        Real_Width << "," <<
                                        Real_Height << "," <<
                                        rs.getField("Pixel_Width").format()  << "," <<
                                        rs.getField("Pixel_Height").format() << "," <<
                                        rs.getField("Text_Top_Left_X").format() << "," <<
                                        rs.getField("Text_Top_Left_Y").format() << "," <<
                                        rs.getField("Text_Bot_Right_X").format() << "," <<
                                        rs.getField("Text_Bot_Right_Y").format() << ");" << endl;
        rs.close();
        
        /* add extra parameters
             string sstyle = inputArgs["style"];
             string ssize = inputArgs["size"];
             string orientation = inputArgs["orientation"];
        */
        script << "myDesigner.addParameter( 'style' , '" << sstyle << "' );" << endl;
        script << "myDesigner.addParameter( 'size' , '" << ssize << "' );" << endl;
        script << "myDesigner.addParameter( 'orientation' , '" << orientation << "' );" << endl;
        script << "myDesigner.addParameter( 'p' , '" << Id << "' );" << endl;
                              
        // get the fonts
        sql = "select Name, External_Id from "
              "Font f inner join  Product_Fonts pf on f.Id = pf.Font where pf.Product = ";              
        sql += Id; 
        script << endl << "//" << sql << endl;
        opened = rs.open(sql);
        while(opened)
        {
          script << "myDesigner.addFont('" 
                 << rs.getField("Name").format() << "','" 
                 << rs.getField("External_Id").format()   << "');" << endl;
          opened = rs.next();
        }
        // get the backgrounds
        sql = "select Name,RGB,Image "
              "from Color c inner join Product_Backgrounds pb on pb.Color = c.Id where pb.Product = ";
        sql += Id; 
        opened = rs.open(sql);
        // script << endl << "//" << sql << endl;
        while(opened)
        {
          script << "myDesigner.addBackground('" 
                 << rs.getField("RGB").format() 
                 << "','"
                 << rs.getField("Image").format()
                 << "','"
                 << rs.getField("Name").format()
                 << "');" << endl; 
                
          opened = rs.next();
        }
         // get the backgrounds
        sql = "select Name,RGB,Image "
              "from Color c inner join Product_Colors pc on pc.Color = c.Id where pc.Product = ";
        sql += Id; 
        opened = rs.open(sql);
        // script << endl << "//" << sql << endl;
        while(opened)
        {
          script << "myDesigner.addColor('" << rs.getField("RGB").format() << "','"
                << rs.getField("Image").format() << "','" 
                << rs.getField("Name").format() << "');" << endl;
          opened = rs.next();
        }
        script << "myDesigner.setDefaults();";           
        script << form.replaceAll("$id$",Id).replace("$label",Name.c_str());      
      }
    }   
  }
  void showProduct( cgiScript & script, ocString & prodTemplate )
  {

    /*
      select Id, Product_Line, Name, Description, Lines_Custom_Text, SKU, Designer, Manufacturer from  Product;
      select Id, Product, Category, Position, Leading_Text from Product_Categories;
    */  
    // script << "  | detail: " << prodTemplate << endl; // DBG 
    // 'c' args and/or 'p' args
    ocString productsSQL = "select p.Id, p.Product_Line, p.Name, p.Lines_Custom_Text, "
                            "p.Designer, p.Description from Product p ";                            
    string criteria = " where p.Id = ";
    criteria += p;
    sql = productsSQL + criteria;    
    
    /*script << "<!-- sql: "  << sql 
           << "-->" << endl ;  // DBG */
    
    bool opened = rs.open(sql);
    if( opened )
    { 
      bool isDesignerMode = atol(rs.getField(4).format().c_str()) != 0;

      // show the designer if not a call back confirmation
      if( isDesignerMode && crtid == 0 )
      {        
        showDesigner(script);
      }  
      else
      {

        // get the cart, last item
        ShoppingCart crt;
        crt.key( crtid );
        if(crt.get_data() )
        {  
          // get the last node
          xmlParser parser( crt.XML );
          parser.parse();
          node_vector & xnodes = parser.nodeList();
          ItemDetail details;
          details = xnodes.back();
          string Price;
          string Shipping;
          if(  discount > 0.0 && discount < 100.0 )
          {
            money reducedPrice;
            reducedPrice.amount() = details.Price().amount();
            reducedPrice.amount() *= (100-discount);
            reducedPrice.amount() /=100.0;
            Price = "<del>";
            Price += details.Price().format("%n");
            Price += "</del> &nbsp; <ins>";
            Price += reducedPrice.format("%n");
            Price += "</ins>";
            details.Price().amount() = reducedPrice.amount();
          }
          else
          {
            Price = details.Price().format("%n");
          }
          if( freeShipping )
          {
            Shipping = "<del>";
            Shipping += details.Shipping().format("%n");
            Shipping += "</del> &nbsp; <ins>Free Shipping!</ins>";
            details.Shipping().amount() = 0.0;
          }
          else
          {
            Shipping = details.Shipping().format("%n");
          }
          

          script << prodTemplate.replace("$PRD$", rs.getField("Name").format())
                                .replace("$IMG$", details.StyleImage())
                                .replace("$TXT$", details.CustomText().replaceAll("\n","<br>\n"))
                                .replace("$SZ$", details.strSize()) 
                                .replace("$ORNT$", details.Orientation())
                                .replace("$PRC$", Price )
                                .replace("$SHP$", Shipping )
                                .replace("$QNT$", details.strCount())
                                .replace("$TOT$", details.Total().format("%n"));

        }
      }
      rs.close();
    }
  } 
  void showProducts( page & pg, cgiScript & script, 
                     ocString & listTemplate, 
                     ocString & prodListWrap, 
                     ocString & prodHeading )
  {  
    // 'c' args and/or 'p' args
    /*
      select Id, Product_Line, Name, Description, Lines_Custom_Text, SKU, Designer, Manufacturer from  Product;
      select Id, Product, Category, Position, Leading_Text from Product_Categories;
    */
    ocString productsSQL = "select p.Id, "    // 0
                           "p.Description, "  // 1
                           "p.Name, "         // 2
                           "p.Lines_Custom_Text, " // 3
                           "p.Designer, "     // 4
                           "pc.Category, "    // 5
                           "pc.Leading_Text "   // 6
                   "from Product p inner join Product_Categories pc on pc.Product = p.Id ";
    string criteria; 
    criteria = " where pc.Category = ";
    criteria += c; 
    string order = " order by pc.Position ";    
    sql = productsSQL + criteria + order; 
    // cerr << "showProducts( productsSQL =  " << sql << " )" << endl;    
    bool opened = rs.open(sql);
    int i=0;
    while( opened )
    {     
      string PID = rs.getField(0).format().c_str();
      string Description = rs.getField(1).format().c_str();
      string Name = rs.getField(2).format();
      int LinesOfText = atol(rs.getField(3).format().c_str());
      bool Designer =  rs.getField(4).format() != "0";
      string Category = rs.getField(5).format(); 
      string LeadingText = rs.getField(6).format(); 
      if( LeadingText.length() )
      {
        i=0;
        script << prodHeading.replace("$content",LeadingText.c_str());
      }
      script << listTemplate.replaceAll("$title",Name.c_str())
                            .replaceAll("$description", Description.c_str()); 
      putForm( pg, script, PID, LinesOfText, Designer );                       
      i++;                      
      opened = rs.next(); 
    }   
  }   

  

  void putForm( page & pg, cgiScript & script, string & PID, int LinesOfText, bool Designer )
  {
    // pieces parts
    paragraphMap & paras = pg.get_template().getParagraphs();
    ocString prodstart;
    if( Designer ) prodstart = paras["dpushstart"];
    else prodstart = paras["prodstart"];
    ocString style = paras["style"];
    ocString style_end = paras["style_end"];
    ocString texthead = paras["texthead"];
    ocString textentry;
    if( !Designer )  textentry= paras["textentry"]; 
    ocString sizehead;
    if( Designer ) sizehead = paras["dpushsizehead"];
    else  sizehead = paras["sizehead"];
    ocString sizeval = paras["sizeval"];    
    ocString prodend;
    if( Designer ) prodend = paras["dpushend"];
    else prodend = paras["prodend"];
    string check;
               
    // start of form
    script << prodstart.replaceAll("$P$",PID.c_str());
    
    ocString query = "select Id, Name, Image from Style where Product = " + PID;
    // styles
    quickQuery qqy;
    openRS & rs = qqy.getData ( query );
    if( qqy.opened )
    {
      bool first = true;
      do {  
        if( first )
        {
          check="checked=\"yes_please\"";
          first = false;
        }  
        else
        {
          check="";
        }         
        script << style.replace("$STL$",rs.getField(0).format().c_str())
                       .replace("$IMG$",rs.getField(2).format().c_str())
                       .replace("$NAME$",rs.getField(1).format().c_str())
                       .replace("$CHECK$",check.c_str());
      } while( rs.next() );
    }
    rs.close();
    script << style_end;
                  
    query = "select p.Id, p.X, p.Y, u.Abbreviation, p.Price, p.Max_Chars_X, Max_Chars_Y from Size_Price p "
            "inner join Product_Sizes ps on p.Id = ps.Size "
            "inner join Unit u on u.Id = p.Units "
            "where  ps.Product = " + PID;
   

    // Sizes Query OK? 
    if( rs.open(query) )
    {
       // custom lines of text
      if( LinesOfText &&  !Designer )
      {
        script << texthead
            .replaceAll("$XMAX$",rs.getField("Max_Chars_X").format())
            .replaceAll("$YMAX$",rs.getField("Max_Chars_Y").format());
        for( int line=1; line <= LinesOfText; line++ )
        {
          ocString line_no;
          line_no.append(line);
          script << textentry.replace("$NUM$",line_no.c_str() ).replaceAll("$XMAX$",rs.getField("Max_Chars_X").format().c_str());
        }
      }
      // Sizes Control 
      script << sizehead;
      bool first = true; 
      do {
        if( first )
        {
          check="checked=\"yes_please\"";
          first = false;
        }  
        else
        {
          check="";
        }
          money mny = atof(rs.getField("Price").format().c_str());
          script << sizeval.replace("$ID$",rs.getField("Id").format().c_str())
                           .replace("$X$",rs.getField("X").format().c_str())
                           .replace("$Y$",rs.getField("Y").format().c_str())
                           .replaceAll("$XMAX$",rs.getField("Max_Chars_X").format().c_str())
                           .replaceAll("$YMAX$",rs.getField("Max_Chars_Y").format().c_str())
                           .replaceAll("$U$",rs.getField("Abbreviation").format().c_str())
                           .replace("$AMT$",mny.format("%n").c_str())
                           .replace("$CHECK$",check.c_str());
        } while( rs.next() );
    }
    
    // the rest
    script << prodend;

  }
};

class detail_functor: public base_functor
{
protected:
  cgiScript & script;
  virtualStore store;
  Promotion_Obj pro;
public:
  detail_functor(page & ipg,cgiScript & scriptIn):base_functor(ipg),script(scriptIn)
  {
    // See if a promo is in force
    Session_Obj sess(false);
    string proId = sess.GetData( "Promotion");
    if( proId.length() )
    {
      pro.key( atoll(proId.c_str() ) );
      if( pro.get_data() )
      {
        store.discount = pro.Percent_Discount;
        store.freeShipping = pro.Free_Shipping;
      }
    }
    store.baseCategoryFixup( script );
  }
  virtual ~detail_functor(){;}
  
  virtual  bool operator()( xmlNode & node )
  {
    bool bRet = false;

    ocString defContentName = getXmlAttribute(node,"items");
    ocString prodListName = getXmlAttribute(node,"products");
    ocString prodListWrapName = getXmlAttribute(node,"productsWrapped");
    ocString prodHeading = getXmlAttribute(node,"productsWrapped");    
    ocString prodDetailName = getXmlAttribute(node,"aproduct");
    string heading =  getXmlAttribute(node,"heading");
    // script << " name of detail " << prodDetailName << endl; // DBG
    if( prodDetailName.length() )
    {
      ocString prodDetail = pg.paragraph_string(prodDetailName);      
      ocString prodList = pg.paragraph_string(prodListName);
      ocString prodListWrap = pg.paragraph_string(prodListWrapName);     
      ocString pHeading = pg.paragraph_string(heading);
      store.showProducts( pg, script, prodDetail, prodList, prodListWrap, defContentName, pHeading);
      bRet = true;        
    }      
    else
    {
      script << "no items" << endl;
    }
    return bRet;    
  }    
};

class index_functor: public base_functor
{
protected:
  cgiScript & script;
  virtualStore store;
public:
  index_functor(page & ipg,cgiScript & scriptIn):base_functor(ipg),script(scriptIn){;}
  virtual ~index_functor(){;}
  
  virtual  bool operator()( xmlNode & node )
  {
    bool bRet = false;

    string mitemName = getXmlAttribute(node,"navitems");
             
    if( mitemName.length() > 0 )          
    {      
      ocString mitem = pg.paragraph_string(mitemName);
      store.showCategories( script, mitem );
      bRet = true;         
    }      
    else
    {
      script << "no items" << endl;
    }
    return bRet;    
  }
  
  bool baseCategoryFixup( void  )
  {
    store.baseCategoryFixup( script );
  }    
};

#include "read_write_base.cpp"

---