%{ *********************************************************************%} %{ * Copyright (C) 2001 Logical Systems Design *%} %{ *********************************************************************%} %{ * Macro name.... WEB50005 *%} %{ * *%} %{ **Function...... This code is an initial menu page for web clients. *%} %{ * It uses the client profile to build the menu. *%} %{ * *%} %{ * Programmer.... Steve Croy 02/09/01 *%} %{ * *%} %{ *********************************************************************%} %{ * Modification Log *%} %{ * *%} %{ * Date Programmer Description *%} %{ * *%} %{ *********************************************************************%} %{ ********************** Define block ************************%} %DEFINE { page_title="Web Client Initial Menu" DTW_REMOVE_WS = "NO" DTW_PRINT_HEADER = "NO" SHOWSQL = "NO" pass_flag="OK" Usr_Prf="" Usr_Typ = "" Vnd_Nbr = "0" Syn_Nbr = "0" Prf_Typ = "" Client_Logo="" Page_Header="WEB00000.htm" Doc_List=" " Dsp_Name="" UsrNam="" MNU="INIT" DTW_HTML_TABLE = "YES" MnuTable = %TABLE GrpTable = %TABLE counter = "1" newrow = "0" tablerow = "0" DTW_SET_TOTAL_ROWS="YES" %} %{ ********************** Get Profile ************************%} %FUNCTION(DTW_SQL) GetProfile() { SELECT PSPROF,PSTYPE,PSNAME,PSLOGO,PSINCL,PSIDOC,PSSUBT, PSVEND, PSSYNC FROM WEBPRFPF WHERE PSPROF = '$(USR)' %MESSAGE { 100 : "Profile not on file" : exit %} %Report { %Row { @dtw_assign(Client_Logo, V_PSLOGO) @dtw_assign(Page_Header, V_PSINCL) @dtw_assign(Doc_List, V_PSIDOC) @dtw_assign(Usr_Typ, V_PSSUBT) @dtw_assign(Prf_Typ, V_PSTYPE) @dtw_assign(Vnd_Nbr, V_PSVEND) @dtw_assign(Syn_Nbr, V_PSSYNC) @dtw_assign(Dsp_Name, V_PSNAME) %} %} %} %FUNCTION(DTW_SQL) Show_Group(OUT t1) { SELECT WGUSR, WGSEQ, WGSYNC, WGNAME, WGGMBR FROM WEBGRPPF WHERE WGSTAT='Y' AND WGUSR = '$(USR)' ORDER BY WGSEQ %MESSAGE { 100 : "No GROUP records were found." : continue %} %REPORT { <TABLE bgcolor="#c7c7e0" border="0" cellspacing="0" cellpadding="0" width="100%"> <tr> <td class="TEXT1" align="center" bgcolor="#c7c7e0"><hr size="5"></td> </tr> <tr> <td class="TEXT1" align="center" bgcolor="#c7c7e0">Menus</td> </tr> <tr> <td class="TEXT1" align="center" bgcolor="#c7c7e0"><hr size="5"></td> </tr> %ROW { <TR bgcolor="#C7C7E0"> <TD > <A HREF="/CGI-BIN/DB2WWW/WEB50025.NDM/INPUT?USR=$(V_WGUSR)&SEQ=$(V_WGSEQ)"> <FONT SIZE="1">$( V_WGNAME )</FONT></A> </TD> </tr> %} </TABLE> <INPUT TYPE="hidden" NAME=rowtotal VALUE="$(NUM_ROWS)"> %} %} %{******** Function Section ********* %} %FUNCTION(DTW_DIRECTCALL) Get_Menu ( IN CHAR(10) USR, CHAR(10) MNU, INOUT DTWTABLE MnuTable ) { %exec { /QSYS.LIB/CGIPX010.LIB/WEB700RP.PGM %} %Report { <table cellspacing="1" width="100%" bgcolor="#ffffff" border="0" cellpadding="2"> %Row { <tr> %if(@dtw_rstrip($(V_RECID)) == "M1") <td >$( V_MNIMG1 )</td> <td >$( V_MNITM1 )</td> %endif %if(@dtw_rstrip($(V_RECID)) == "G1") <td COLSPAN="2" align="CENTER">$( V_MNITM1 )</td> %endif %if(@dtw_rstrip($(V_RECID)) == "M2") <td >$( V_MNIMG1 )</td> <td >$( V_MNITM1 )</td> <td >$( V_MNIMG2 )</td> <td >$( V_MNITM2 )</td> %endif %if(@dtw_rstrip($(V_RECID)) == "G2") <td COLSPAN="4" align="CENTER">$( V_MNITM1 )</td> %endif </tr> %} </table> <INPUT type="hidden" NAME="Usr_Prf" value="$( USR )"> <input type="hidden" name="Mnu_Nam" value="$( MNU )"> <input type="hidden" name="rowtotal" value="$(NUM_ROWS)"> %} %} %{ ******************** HTML Block: Input *********************%} %HTML (INPUT) { Content-type: text/html Pragma: no-cache Expires: 0 Cache-control: no-cache <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head><title>Partner Support Web</title> <style > A:ACTIVE { COLOR: #FF0000; TEXT-DECORATION : NONE; FONT-FAMILY: VERDANDA,ARIAL; FONT-SIZE: 10PT; FONT-WEIGHT: 500} A:HOVER { COLOR: #191970; BACKGROUND: #E6E6FA; TEXT-DECORATION : NONE;FONT-FAMILY: VERDANA,ARIAL; FONT-SIZE: 10PT; FONT-WEIGHT: 500} A:LINK { COLOR: #0000FF; TEXT-DECORATION : NONE;FONT-FAMILY: VERDANA,ARIAL; FONT-SIZE: 10PT; FONT-WEIGHT: 500} A:VISITED { COLOR: #003366 ; TEXT-DECORATION : NONE; FONT-FAMILY: VERDANA,ARIAL; FONT-SIZE: 10PT; FONT-WEIGHT: 500} BODY { font-family: verdana,arial } BODY {color :#003366;} BODY { font-size: 10pt; } BODY {font-weight: 600;} BODY { SCROLLBAR-BASE-COLOR: #003366; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #A997C4; SCROLLBAR-HIGHLIGHT-COLOR: #A997C4; SCROLLBAR-SHADOW-COLOR: #4D445C; SCROLLBAR-DARKSHADOW-COLOR: #4D445C; SCROLLBAR-FACE-COLOR: #003366; SCROLLBAR-TRACK-COLOR: #ffffff; } P.DATA { font-family: verdana,arial; color: #003366; font-size: 8pt; font-weight: 500} P.COPY { font-family: verdana,arial; color: #666666; font-size: 8pt; font-weight: 500} TD.TEXT1 { font-family: verdana,arial; color: #003366; font-size: 10pt; font-weight: 700} TD.TEXT2 { font-family: verdana,arial; color: #003366; font-size: 10pt; font-weight: 500} TD.TEXT3 { font-family: verdana,arial; color: #003366; font-size: 8pt; font-weight: 500} TD.TEXT4 { font-family: verdana,arial; color: #FFFFFF; font-size: 10pt; font-weight: 700} </style> <script language="JavaScript1.2"> <!-- var exp = new Date(); var expDays = 1; // number of days the cookie should last var Msgpage = "/Pops/popUPMsg.htm"; var windowprops = "width=300,height=200,location=no,toolbar=no,menubar=no,scrollbars=yes,resizable=yes"; // Define image objects var backOff = new Image( 34, 18 ); backOff.src = "/images/btn_back_only.gif"; var backOn = new Image( 34, 18); backOn.src = "/images/btn_back_only_active.gif"; var hlpOff = new Image( 20, 20 ); hlpOff.src = "/images/hlp_btn0.gif"; var hlpOn = new Image( 20, 20); hlpOn.src = "/images/hlp_btn1.gif"; var brwWin; var brwOpen; function show_Browser() { if(brwOpen==true) { brwWin.close();} brwWin = window.open("/PartnerSupport/browser.html", "brwWin", "height=280,width=640,top=50,left=100,alwaysRaised=1,resizable=1"); setTimeout('closeWin(brwWin)', 10000); brwWin.focus(); brwOpen=true; } function closeWin(brwWin) { brwWin.close(); brwOpen=false; } function GetCookie (name) { var arg = name + "="; var alen = arg.length; var clen = document.cookie.length; var i = 0; while (i < clen) { var j = i + alen; if (document.cookie.substring(i, j) == arg) return getCookieVal (j); i = document.cookie.indexOf(" ", i) + 1; if (i == 0) break; } return null; } function SetCookie (name, value) { var argv = SetCookie.arguments; var argc = SetCookie.arguments.length; var expires = (argc > 2) ? argv[2] : null; var path = (argc > 3) ? argv[3] : null; var domain = (argc > 4) ? argv[4] : null; var secure = (argc > 5) ? argv[5] : false; document.cookie = name + "=" + escape (value) + ((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + ((path == null) ? "" : ("; path=" + path)) + ((domain == null) ? "" : ("; domain=" + domain)) + ((secure == true) ? "; secure" : ""); } // Delete the cookie function DeleteCookie (name) { var exp = new Date(); exp.setTime (exp.getTime() - 1); var cval = GetCookie (name); document.cookie = name + "=" + cval + "; expires=" + exp.toGMTString(); } // set the expiration exp.setTime(exp.getTime() + (expDays*24*60*60*1000)); function amt(){ var count = GetCookie('popcount') if(count == null) { SetCookie('popcount','1') return 1 } else { var newcount = parseInt(count) + 1; DeleteCookie('popcount') SetCookie('popcount',newcount,exp) return count } } // Get cookie value function getCookieVal(offset) { var endstr = document.cookie.indexOf (";", offset); if (endstr == -1) endstr = document.cookie.length; return unescape(document.cookie.substring(offset, endstr)); } // Check the cookie count function checkCount() { var count = GetCookie('popcount'); if (count == null) { count=1; SetCookie('popcount', count, exp); window.open(Msgpage, "", windowprops); } else { count++; SetCookie('popcount', count, exp); } } // Report card var grdWin; var grdOpen; var vnd; var constURL="/CGI-BIN/DB2WWW/VND00310.NDM/Main?VendorNo="; function show_Grades(vnd) { if(grdOpen==true) { grdWin.close();} URL = constURL + vnd; grdWin = window.open(URL, "grdWin", "height=340,width=440,top=150,left=200,alwaysRaised=1,resizable=1"); //setTimeout('closeWin(grdWin)', 10000); grdWin.focus(); grdOpen=true; } function closeWin(grdWin) { grdWin.close(); grdOpen=false; } function highlightButton(placeholder, imageObject) { document.images[placeholder].src = eval( imageObject + ".src"); } function formHandler(form) { var URL = form.docpage.options[form.docpage.selectedIndex].value; window.location.href = URL; } function Page_Help(Attr) { var PageHelp; var PHelp; var urlVar = '/HelpSupport/'; if(PHelp == true) PageHelp.close(); var RefLoc = new String(urlVar + Attr); PageHelp = window.open(RefLoc, "PageHelp", "height=320,width=480,top=50,left=100,alwaysRaised=1,scrollbars=1,resizable=1"); PageHelp.focus(); PHelp = true; } //-->The end of the section to be hidden </script> </head> <body bgcolor="#ffffff" topmargin="0" leftmargin="0"> <div align="center"> <center> <input type="hidden" name="Usr_Prf" value="$( USR )"> <input type="hidden" name="Mnu_Nam" value="$( MNU )"> @GetProfile() %if($(Page_Header) == "") %INCLUDE "WEB00000.htm" %else %INCLUDE "$(Page_Header)" %endif <table bgcolor="#ffffff" border="0" cellspacing="0" cellpadding="0" width="100%"> <tr> <td bgcolor="#ffffff" valign="top" width="25%" align="left"> <!-- *************************** //--> <!-- left side information table //--> <!-- *************************** //--> <table width="180" border="0" cellspacing="0" cellpadding="0"> %if($(Usr_Typ) != "G") <tr> <td width="100%"> <table bgcolor="#c7c7e0" border="2" cellspacing="2" cellpadding="2" width="100%"> <tr><td bgcolor="#191970" class="TEXT4" width="100%"> <a href="JavaScript:Page_Help('WEB50005A.htm')" onMouseOver="highlightButton( 'Help', 'hlpOn' );window.status='Return to previous page';return true;" onMouseOut="highlightButton( 'Help', 'hlpOff' );window.status=' ';return true;"><img src="/images/hlp_btn0.gif" alt="Page Help" width="20" height="20" border="0" name="Help"></a> <STRONG>WEB50005</STRONG> </td></tr> </table> </td> </tr> %endif <!-- if the profile is defined as a group profile,load the group members //--> %if($(Usr_Typ) == "G") <tr> <td> <table border="0" bgcolor="#c7c7e0" cellspacing="0" cellpadding="0" width="100%"> <tr> <td valign="top" width="15%"><img src="/images/groups1.jpg" width="30" height="100"></td> <td valign="top" width="85%" class="TEXT3">The profiles associated with <strong>$(Dsp_Name )</strong> are listed below on the group menu. To display a menu click on the profile name. </td> </tr> </table> <table width="180" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#c7c7e0"> <td width="100%">@Show_Group(GrpTable)</td> </tr> </table> </td> </tr> %endif <tr> <td class="TEXT1" align="center" bgcolor="#c7c7e0"><hr size="5"></td> </tr> <tr> <td class="TEXT1" align="center" bgcolor="#c7c7e0">Options</td> </tr> <tr> <td class="TEXT1" align="center" bgcolor="#c7c7e0"><hr size="5"></td> </tr> %if($(Usr_Typ) != "G") <tr bgcolor="#c7c7e0"> <td width="100%" class="TEXT3"><a href="/CGI-BIN/DB2WWW/WEB20005.ndm/INPUT?USR=$(USR)&MNU=$(MNU)">Change my menu</a></td> </tr> %if($(Prf_Typ) == "VND") <tr bgcolor="#c7c7e0"> <td width="100%" class="TEXT3"> <a href="JavaScript:show_Grades('$(Vnd_Nbr)');"> Report card</a></td> </tr> %endif %endif <tr bgcolor="#c7c7e0"> <td width="100%" ><a href="JavaScript:show_Browser()">What's my browser?</a></td> </tr> <tr bgcolor="#c7c7e0"> <td width="100%" ><a href="/CGI-BIN/DB2WWW/WEB20001.ndm/INPUT?PRF=$(USR)">Contact data</a></td> </tr> <tr> <td width="180" align="CENTER"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="25"><img src="/images/blcc7.jpg" border="0" width="25" height="25"></td> <td bgcolor="#c7c7e0" width="130"><font color="#c7c7e0" >...</font></td> <td width="25"><img src="/images/brcc7.jpg" border="0" width="25" height="25"></td> </tr> </table> </td> </tr> </table> </td> <!-- ***************************** //--> <!-- Load the profile menu options //--> <!-- ***************************** //--> <td bgcolor="#ffffff" valign="top" align="center" width="50%"> <div align="center"> <table bgcolor="#ffffff" border="0" cellspacing="0" cellpadding="0" width="350"> <tr> %if($(Client_Logo) == "") <td valign="top" width="350" align="center"><font size="4" color="#003366"><b>$(Dsp_Name )</b></font></td> %else <td valign="top" width="350" align="center">$( Client_Logo )</td> %endif </tr> <tr> <td align="center" valign="top" width="350"> @Get_Menu(USR,MNU,MnuTable) </td> </tr> </table> </div> </td> <!-- ********************************** //--> <!-- Right side document pull down menu //--> <!-- ********************************** //--> <td bgcolor="#ffffff" valign="top" align="right" width="25%"> <FORM method="post" name="form1"> <table width="180" border="0" cellspacing="0" cellpadding="0"> %if(Doc_List != "*NONE") <tr> <td width="100%"> <table border="0" bgcolor="#c7c7e0" cellspacing="0" cellpadding="0" width="100%"> <tr> <td valign="top" width="15%"><img src="/images/socside3.jpg" width="30" height="100"></td> <td valign="top" width="85%" class="TEXT3"> <p align="left">Use the pull-down menu to select a document you want to view, then <strong>Click</strong> on the <strong>Get</strong> button.</p> </td> </div> </tr> </table> </td> </tr> <tr> <td class="TEXT1" align="center" bgcolor="#e6e6fa"><hr size="5"></td> </tr> <tr> <td width="180" bgcolor="#e6e6fa" align="center"> <input type="button" name="documents" value="Get" onClick="JavaScript:formHandler(this.form);"><select name="docpage" size="1"> %INCLUDE "$(Doc_List)" </select> </td> </tr> %endif <tr> <td class="TEXT1" align="center" bgcolor="#e6e6fa"><hr size="5"></td> </tr> <tr> <td width="180" align="CENTER"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="25"><img src="/images/blce6.jpg" border="0" width="25" height="25"></td> <td bgcolor="#e6e6fa" width="130"><font color="#e6e6fa">...</font></td> <td width="25"><img src="/images/brce6.jpg" border="0" width="25" height="25"></td> </tr> </table> </td> </tr> </table> </form> %if($(Prf_Typ) == "VND") <script language="JavaScript"> <!-- checkCount(); //--> </script> <TABLE BORDER="0" WIDTH="125" CELLPADDING="2" CELLSPACING="2"> %{ <tr> <td width="100%" align="right"> <APPLET CODE="rollOver.class" codebase="/applets/" WIDTH=50 HEIGHT=50> <param name=imgOff value="/images/whtnew0.jpg"> <param name=imgOn value="/images/whtnew1.jpg"> <param name=HLink value="/News/newBulletin.htm"> <param name=target value="_self"> </APPLET> </td> </tr> %} <tr> <td> <APPLET CODE="rollOver.class" codebase="/applets/" WIDTH=50 HEIGHT=50> <param name=imgOff value="/images/vndsrv0.jpg"> <param name=imgOn value="/images/vndsrv1.jpg"> <param name=HLink value="/cgi-bin/db2www/VND90040.ndm/input?"> <param name=target value="_self"> </APPLET> </td> </tr> </TABLE> %endif </td> </tr> </table> </center></div> <!-- ******************************** //--> <!-- bottom of menu //--> <!-- ******************************** //--> <table width="100%" bgcolor="#ffffff" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center" class="TEXT"><a href="javascript:history.back()" onMouseOver="highlightButton( 'Back', 'backOn' );window.status='Return to previous page';return true;" onMouseOut="highlightButton( 'Back', 'backOff' );window.status=' ';return true;"><img src="/images/btn_back_only.gif" alt="Previous page" width="34" height="18" border="0" name="Back"></a></td> </tr> </table> <!-- ********************************* --> <!--Copyright --> <!-- ********************************* --> <br> <center> <table width="80%" border=0 cellpadding=10 cellspacing=1 bgcolor="#c0c0c0"> <tr> <td bgcolor="#ffffff" valign="top"> <P class="COPY"> &copy; 2001 Seta Corporation, Inc. All Rights Reserved. For more information call <b>561-994-2660</b><br> or e-mail <a href="mailto:pattit@setacorportion.com">PartnerSupport</a>. For web site related comments e-mail <a href="mailto:webmaster@setacorporation.com">webmaster</a>. </p> </td> </tr> </table> </center> <!-- WiredMinds eMetrics tracking with Enterprise Edition V5.4 START --> <script type='text/javascript' src='https://count.carrierzone.com/app/count_server/count.js'></script> <script type='text/javascript'><!-- wm_custnum='5dce27387debe859'; wm_page_name='web50005.htm'; wm_group_name='/services/webpages/i/s/isoftwerks.net/public'; wm_campaign_key='campaign_id'; wm_track_alt=''; wiredminds.count(); // --> </script> <!-- WiredMinds eMetrics tracking with Enterprise Edition V5.4 END --> </body> </html> %} %{ ********************** End of Source ************************%} </plaintext> </body> </html>