intra/reports/Report_Parameters_ui.cpp

Go to the documentation of this file.

/*
  Report_Parameters_ui.cpp

  User Interface Definition and Implementation 
  for Report_Parameters.
  
  Copyright (c) 2005 by D.K. McCombs.
  
  davidmc@w3sys.com
  
  W3 Systems Design Inc.  
  
*/
#include <iostream>
#include <iomanip>
#include "cgiTemplates.h"
#include "connectstring"
#include "forms.h"
#include "ocTypes.h"
#include "ocString.h"
#include "cgiTemplates.h"     
#include "read_write_base.hpp"
#include "list_base.hpp"
#include "forms_base.hpp"


using namespace std;


#include "Report_Parameters.hpp"

#include "InfoPoints.hpp"

class Report_Parameters_List:  public list_base
{
public: 
  // Constructor
  Report_Parameters_List(cgiScript&sc):list_base(sc){;}  
  ~Report_Parameters_List(){;}
  
  bool list_display( void )
  {
    bool breturn = true;

    hotCol=-2;    
    editLink = listTemplate.getParagraph("hotcolumn");
    editLink = editLink.replace("$prog$","Report_Parameters_ui.cgi");
    emitFilter( "Report_Parameters_ui.cgi",
                "    <B>FILTER (by Display_Label)</B>" );  
    string heading =
                     "<a class='sortcol' href='Report_Parameters_ui.cgi?sort=p.Id'>Id</a>|" 
                     "<a class='sortcol' href='Report_Parameters_ui.cgi?sort=r.Name'>Report</a>|"                        
                     "<a class='sortcol' href='Report_Parameters_ui.cgi?sort=p.Display_Label'>Display_Label</a>|"                     
                     "<a class='sortcol' href='Report_Parameters_ui.cgi?sort=p.Data_Element'>Data_Element</a>|"                     
                     "<a class='sortcol' href='Report_Parameters_ui.cgi?sort=p.Tag_Name'>Tag_Name</a>|"                     
                     "<a class='sortcol' href='Report_Parameters_ui.cgi?sort=p.Choices_Query'>Choices_Query</a>|"
                     "<a class='sortcol' href='Report_Parameters_ui.cgi?sort=p.List_Order'>List Order</a>"
                    ;
    emitHeadings(heading);
    getFilteredData(
                     "p.Id, " 
                     "r.Name, "
                     "p.Display_Label, " 
                     "p.Data_Element, " 
                     "p.Tag_Name, " 
                     "p.Choices_Query, p.List_Order"
                     ,"Report_Parameters p inner join Report r on p.Report_Id = r.Id",                     
                     "p.Display_Label like '$filter$%'",
                     "p.List_Order");
    emitData();
    emitNavigation("Report_Parameters_ui.cgi");         
    emitEnd();
    return breturn;
  }      
}; 

class Report_Parameters_form:  public Report_Parameters_Obj, public forms_base
{
  string Parameter_Types;
public: 
  Report_Parameters_form(cgiScript & script):Report_Parameters_Obj(),forms_base(script)
  {
    setKey(*this);
    Parameter_Types = "STRING=STRING,DATE=DATE,SELECT=SELECT,AUTO=AUTO";
  } 
  virtual ~Report_Parameters_form(){;}
  
  void form_id_transfer( void )
  {
    llongFXfer( "Id", Id );
  }
  void form_data_transfer( void )
  {
    llongFXfer( "Report_Id", Report_Id);
    stringFXfer( "Display_Label", Display_Label);
    stringFXfer( "Data_Element", Data_Element);
    stringFXfer( "Tag_Name", Tag_Name);
    stringFXfer( "Choices_Query", Choices_Query);
    stringFXfer( "Parameter_Type", Parameter_Type);
    intFXfer( "List_Order", List_Order);
    stringFXfer( "Pre_Content", Pre_Content);
    stringFXfer( "Post_Content", Post_Content);
  } 
  
  bool dbf_action( string mode, changeMap & changes )
  {
    return db_action( mode, changes );
  } 
  
  // implement pure virtual of form display
  bool form_display( void )
  {
    bool breturn = true;
    ocString sql; // for combo boxes
    
    script << makeTop("Report_Parameters_ui.cgi", "Report_Parameters")
           << formTemplate.getParagraph("advanced_begin");
    script << makeStaticBox("Id", "Id", Id ,"8");
    script << "<br class='clearall'>" << endl;
    script << formTemplate.getParagraph("advanced_end");
    
    sql = "select Id, Name from Report order by Name";
    
    script << makeComboBox("Report_Id", "Report_Id", Report_Id ,sql);
    script << "<br class='clearall'>" << endl; 
    script << makeTextBox("Display Label", "Display_Label", Display_Label ,"25") << " &nbsp; The Label";
    script << "<br class='clearall'>" << endl; 
    script << makeTextBox("Data Element", "Data_Element", Data_Element ,"25") << " &nbsp; Name passed to the Query String";
    script << "<br class='clearall'>" << endl; 
    script << makeTextBox("Tag_Name", "Tag_Name", Tag_Name ,"25") << " &nbsp; The tag in the composite query that is replaced";
    script << "<br class='clearall'>"
              "Choices Query is for combo box and auto type parameters.<br>"
              "For combo boxes it determines the range of values.<br>"
              "For auto it determines the value.<br>"
              "Note that valid replacement tags for the current login in the "
              "choices query are "
              "<b style='color:blue'> {{login}} &nbsp; {{group}} {{staff}} </b> "
              "for each of those Id's."  << endl; 
    script << makeTextArea("Choices_Query", "Choices_Query", Choices_Query ,"5","60");
    script << "<br class='clearall'>" << endl; 
    script << makeManualComboBox("Parameter_Type", "Parameter_Type", Parameter_Type ,Parameter_Types.c_str() );
    script << "<br class='clearall'>" << endl;     
    script << makeTextBox("List_Order", "List_Order", List_Order ,"8","8");
    script << "<br class='clearall'>" << endl;
    script << makeTextArea("Pre_Content", "Pre_Content", Pre_Content ,"3","60");
    script << "<br class='clearall'>" << endl;
    script << makeTextArea("Post_Content", "Post_Content", Post_Content ,"3","60");
    script << "<br class='clearall'>" << endl;
    script << makeButtons( key() );        
    script << makeBottom( m_result ) << endl; 
    return breturn;
  }
};


int main( int argcount, char ** args )
{
  cgiScript script( "text/html", false );
  Report_Parameters_form myFrm(script); 
  Report_Parameters_List mylist(script);
    
  // New: need to be able to override where to get the data and what cookie to set for id
  infoPoints iPoints;
  if( iPoints.idToken.length() )
  {
    oLogin.token = iPoints.idToken;
  }
  // end of new  
  if( oLogin.testLoginStatus() )
  {
    script.closeHeader();
    cgiTemplates pgTemplate;    
    pgTemplate.load("Templates/childPane.htmp");
    
    script << ocString(pgTemplate.getParagraph("top"))
                     .replaceAll("$heading$","Report_Parameters");

    myFrm.loadControlTemplates("Templates/childdivform.htmp");  
    myFrm.form_action();  
    myFrm.form_display();

    if( myFrm.Report_Id )
    {
      // Filter to this report only
      ocString filt = "p.Report_Id = ";
      filt.append(myFrm.Report_Id);
      mylist.addedCriteria = filt;
    }
    
    mylist.loadListTemplates("Templates/list.htmp");  
    mylist.list_display();
        
    ocString end = pgTemplate.getParagraph("bottom");
    script << end;          
  }
  else
  {
    script.Redirect("/"); // throw them out of the intranet
  } 
}
// compile implementations here
#include "read_write_base.cpp"
#include "forms_base.cpp"

---