var k_strStackSeparator="[]";var k_strStackEntrySeparactor="|";function PPStackInit(){var stackTemp="";return stackTemp;}function PPStackPeek(stackVar){var iPos=stackVar.indexOf(k_strStackSeparator);if(iPos == -1){return null;}else{var strStackEntry;strStackEntry=stackVar.substr(0, iPos);var iEntrySepPos=strStackEntry.indexOf(k_strStackEntrySeparactor);if(iEntrySepPos==-1){return null;}else{return strStackEntry.substr(iEntrySepPos+1);}}}function PPStackPop(stackVar){var iPos=stackVar.indexOf(k_strStackSeparator);if(iPos==-1){return "";}else{var stackTemp=stackVar.substr(iPos+k_strStackSeparator.length);return stackTemp;}}function PPStackPush(stackVar,strNewLabel,strNewVal){var stackTemp;if((strNewLabel.indexOf(k_strStackSeparator)!=-1)||(strNewLabel.indexOf(k_strStackEntrySeparactor)!=-1)||(strNewVal.indexOf(k_strStackSeparator)!=-1)||(strNewVal.indexOf(k_strStackEntrySeparactor)!=-1)){return stackVar;}stackTemp=strNewLabel+k_strStackEntrySeparactor+strNewVal+k_strStackSeparator+stackVar;return stackTemp;}function PPStackGetLabelPos(stackVar,strLabel,iStartPos){var iRetPos=-1;var iPos=stackVar.indexOf(strLabel+k_strStackEntrySeparactor,iStartPos);if(iPos!=-1){if((iPos==0)||(stackVar.substr(iPos-k_strStackSeparator.length,k_strStackSeparator.length))==k_strStackSeparator){iRetPos=iPos;}else{return PPStackGetLabelPos(stackVar,strLabel,iPos+1);}}return iRetPos;}function PPStackPeekLabel(stackVar,strLabel){var iPos=PPStackGetLabelPos(stackVar,strLabel,0);if(iPos!=-1){var strStackEntry;var iStartPos=iPos+strLabel.length+k_strStackEntrySeparactor.length;var iEndPos=stackVar.indexOf(k_strStackSeparator,iStartPos+1);strStackEntry=stackVar.substr(iStartPos,iEndPos-iStartPos);return strStackEntry;}else{return null;}}function PPStackUnwindToLabel(stackVar,strLabel){var iPos=PPStackGetLabelPos(stackVar,strLabel,0);if(iPos!=-1){var stackTemp=stackVar.substr(iPos);return stackTemp;}else{return stackVar;}}var ppHistory=PPStackInit();function PPHistoryInit(s){ppHistory=s;if(ppHistory==""){ppHistory=PPStackInit();}}function PPHistoryOnSubmit(oForm,sFV){AHidden(oForm,sFV,ppHistory);}function PPHistoryStoreCurrentURL(strType,strSection){if(typeof(ppHistory)=="undefined"){ppHistory=PPStackInit();}var strLabel=PPHistoryCreateLabel(strType,strSection);ppHistory=PPStackUnwindToLabel(ppHistory,strLabel);if(PPStackGetLabelPos(ppHistory,strLabel,-1)){ppHistory=PPStackPush(ppHistory,strLabel,document.URL);}}function PPHistoryCreateLabel(strType,strSection){var strLabel=strType+strSection;if(typeof(PPHistoryCreateCustomLabel)!="undefined"){PPHistoryCreateCustomLabel(strLabel);}return strLabel;}function PPHistoryGetLastURL(){if(typeof(ppHistory)=="undefined"){ppHistory=PPStackInit();}var backURL=PPStackPeek(ppHistory);ppHistory=PPStackPop(ppHistory);return backURL;}