// #################################################################################
// # File Name : jpread.js
// # Project : JPREAD
// # System : On-Line Japanese Reading Material
// # Purpose : Generate Dynamic Table of Contents
// # Function : JPREAD Control
// # Medel : his programe is based on the Document Object Model (DOM)
// # Language : JavaScript (Client Side Scripting. ver: 5.x)
// # Include : jpreadtoc.js
// # Date Issued : 2002/03/27(Wed)-16:34:21
// # Base URL : http://www.all.co.nz/
// # Location : js/
// # Usage :
// # Browsers : IE5.x and above
// # Requirement :
// # Restriction : None
// # Author : Hiroto Sekine (Able LL Systems Dpt. CHC, NZL)
// # Copyright : (C) 2002 Southern Cross Virtual Co., Ltd. All Rights Reserved.
// # Contact : info@all.co.nz
// # Tab Stop : 4 (Suitable TAB stop size to view this Source Code)
// # ===============================================================================
// # ** Revision **
// # Date Description Sign Mark
// # ------+-------------------------------------------------------+---------+------
// #
// #################################################################################
@set @DEBUG = 0 // Program Debug Flag: ON(=1)/OFF(=0)
// ###########################################################################
// # << NOTICE >> #
// # THIS PROGRAM CODE BELONGS TO SOUTHERN CROSS VIRTUAL CO., LTD. IT IS #
// # CONSIDERED A TRADE SECRET AND IS NOT TO BE DIVULUGED OR USED BY PARTIES #
// # WHO HAVE NOT RECEIVED WRITTEN AUTHORIZATION FROM THE OWNER. #
// # ----------------------------------------------------------------------- #
// # << 通 知 >> #
// # 本プログラムはSOUTHERN CROSS VIRTUAL CO., LTD.の財産です。本プログラム #
// # はトレード・シークレットとみなされ、当該権利者の書面による許可なくして、#
// # 漏洩または使用を禁じます。 #
// ###########################################################################
var F = document.all;
var DOCURL = document.URL;
var saveStyle;
var saveFgColor;
var saveBgColor;
var saveBC;
var saveFC;
var DCP = '{89820200-ECBD-11CF-8B85-00AA005B4383}';
var CID = 'componentid';
var tVer = 5;
var OLIST1 = "oTOC1"; // OL Tag 1
var OLIST2 = "oTOC2"; // OL Tag 2
var OLIST3 = "oTOC3"; // OL Tag 3
var OLIST4 = "oTOC4"; // OL Tag 4
var BOOK_TITLE = "Self-Teaching";
var REPEAT = 7; // Once a week study
var COPERIOD = 14; // cookie expire period:days
var NEXT_PAGE = 1; // Move to Next Page
var PREV_PAGE = -1; // Move to Previous Page
var KEEP_PAGE = 0; // Keep Current Page (reload)
var HOME_PAGE = 9; // Move to Home Page
var HOME_URL = "index.htm"; // Relative URL Address
var UPDATE_PIC = "updated.gif";
var NEW_PIC = "new2.gif";
var CONST_PIC = "i13.gif";
var UPDATE_STR = " Updated";
var NEW_STR = " Released";
var CONST_STR = " Construction";
var MAX_EXPIRY = "90";
var LESSON_PREFIX = "Japanese Lesson ";
var APPENDIX_PREFIX = "Appendix ";
var GRAMMAR_PREFIX = "Grammar ";
var GENERAL_PREFIX = "General ";
var giWidth = 0; // Window Width size for "showCaps"
function GetScriptEngineInfo(){
var s = '';
s += ScriptEngine() + ': ';
s += ScriptEngineMajorVersion() + '.';
s += ScriptEngineMinorVersion() + '.';
s += ScriptEngineBuildVersion();
return(s);
}
function ReDirect(sURL){
location.href = sURL;
}
function initStatus(){
var x, strMsg;
with(oBody){
var bMSvmAvailable = isComponentInstalled( DCP, CID );
var sMSvmVersion = getComponentVersion( DCP, CID );
if (connectionType != "offline"){
x = F["CBTN"];
if (x != null){
with(x){
title = "Back to Able Home";
value = "Able Home";
}
}
x = F["SCLS"];
if (x != null){
x.innerHTML = ": Back to Able Home page.(Top page only)";
}
x = F["WBTN"]; // download all source files
if (x != null){
x.style.display = "";
}
x = F["HDWN"];
if (x != null){
x.style.display = "";
}
}
}
if (sMSvmVersion != ''){
sMSvmVersion = 'IE' + ' Version ' + sMSvmVersion;
}
var sNeg = (bMSvmAvailable) ? '' : 'NOT ';
if (!bMSvmAvailable) sMSvmVersion = 'IE6.x Browser';
var sIEver = sMSvmVersion + ' is ' + sNeg + 'installed.';
if (!bMSvmAvailable){
window.alert(sIEver);
with(oBody){
addComponentRequest( DCP, CID );
doComponentRequest();
}
} else {
sIEver = 'IE: ' + oBody.getComponentVersion( DCP, CID );
}
var sMver = GetScriptEngineInfo();
if (sMver.substr(9, 1) < tVer){
strMsg = 'Your current Script Engine is "' + sMver + '".\n';
strMsg += 'This HTML requires "JScript Version ' + tVer + '" or above.\n';
strMsg += 'Please contact with this page author.';
window.alert(strMsg);
}
if (! window.print){
x = F[ 'PRN' ];
if (x != null) x.disabled = true;
}
with(oBody.currentStyle){
saveBgColor = backgroundColor;
saveFgColor = color;
}
with(oBody){
giWidth = width;
if ((width < 800) || (height < 600)){
strMsg = 'Your current screen resolution is ' + width + ' * ' + height + '.\n';
strMsg += 'We recommend 800 * 600 and above resolution for the best view.';
window.alert(strMsg);
}
if (colorDepth < 16){
strMsg = 'Your current screen color is ' + Math.pow(2, colorDepth) + ' colors.\n';
strMsg += 'We recommend 65536 and above colors for the best view.';
window.alert(strMsg);
}
strMsg = 'Screen: ' + width + '*' + height + ', Color: ' + colorDepth + ', ' + sMver + ', ' + sIEver;
window.status = strMsg;
}
CreateSelOptions(DOCURL);
repLastModifiedDate();
fnUpdateProductInfo("THEVER","MDATE2");
// initTitles( "DEF", "DEF" ); move to HTML source code in tag
}
function CreateSelOptions(base){
var oSelTag = F[ "SelJump" ];
if (oSelTag == null) return;
var urlStr, TheList, oHeadTitle, i, headStr, sp;
var oTocList;
var iTocLen;
var idx = 1;
var ln = 0;
var Pre_Fix = "";
var homeFlag = (DOCURL.lastIndexOf(HOME_URL) != -1) ? true : false;
if (homeFlag){
oTocList = oListTOC[1].List;
iTocLen = oListTOC[1].Len;
ln = 1;
} else {
sp = base.lastIndexOf("/"); // find last path delimiter ("/")
sp ++;
for (i=0; i CAPS_LEN) ? "・・" : "");
} else {
oOpt.innerText = TheList.SelOpt() + ((TheList.Cap.length > CAPS_LEN) ? "・・" : "");
}
oOpt.value = TheList.URL;
oSelTag.appendChild( oOpt );
idx ++;
}
if (homeFlag){
var x;
x = F[ "IMG_NEW" ]; if (x != null && x.src != NEW_PIC ) x.src = NEW_PIC;
x = F[ "IMG_UPD" ]; if (x != null && x.src != UPDATE_PIC) x.src = UPDATE_PIC;
x = F[ "IMG_CON" ]; if (x != null && x.src != CONST_PIC ) x.src = CONST_PIC;
}
}
function toggle(){
var x = F[ 'SCORE' ];
var y = F[ 'VIEW' ];
if ((x != null) && (y != null)){
with(x.style){
display = (display == 'none') ? '' : 'none';
y.value = (display == 'none') ? 'View Score' : 'Hide Score';
}
window.scrollBy(0, 290);
}
}
function beforePrint(){
var x = F[ 'BTN' ];
var y = F[ 'SCORE' ];
if ((x != null) && (y != null)){
x.style.display = 'none';
with(y.style){
saveStyle = display;
if (display == 'none') display = '';
}
} else if (x != null){
x.style.display = 'none';
}
with(oBody.currentStyle){
saveBC = backgroundColor;
saveFC = color;
}
with(oBody.style){
backgroundColor = 'white';
color = 'black';
}
var section, ans;
ans = window.confirm('Click [OK] to print entire page. Click [CANCEL] to select print section.');
if (!ans){
var coll = F.tags( 'legend' );
for (var i=0; i 0){
for (i=0; iPredictions of Da Vinci (TV. Asahi : Japan)−";
// }
// oOL.appendChild(oP); // P tag
}
// ******************************************************************
// * Global Variables Definition
// ******************************************************************
var CURRENT_DTIME_PTN = "MM/DD/YYYY hh:mm:ss";
var STANDARD_DATE_ID = "MDATE";
var ThisVersion = "3.50"; // 2004/03/11(Thu)-12:00:21
var CPATN = null; // Current Patern Format String
var NPATN = null; // New Pattern Format String
var iCurLen = 0; // Current Pattern Format String Length
var iNewLen = 0; // New Pattern Format String Length
if (typeof(F) == "undefined"){
var F = document.all;
}
// ******************************************************************
// * Data Format Constructor
// ******************************************************************
function fmPack( pos, chr, len ){
this.Pos = pos; // Start Offset: based 0;-1:No data
this.Chr = chr; // Format Qualifier; Default: ""
this.Len = len; // Symbol Length; Default: 0 length
}
function makePatnArray( n ){
// n: Pattern String Length (max)
for (var i=0; i 2003/02/26(ddd)-10:08:30
// sDate is expected as single byte data
/* *---------------------------------------------------------------
<< Pre-Defined Symbols as place holder >>
Y: Year Symbol (eg. YYYY stands for 2003, YY is 03)
M: Month Symbol (eg. MM stands for 10, 02,... so on)
D: Day Symbol (eg. DD stands for 06, 28,... so on)
h: Hour Symbol (eg. hh stands for 10, 05,... so on)
m: Min. Symbol (eg. mm stands for 01, 20,... so on)
s: Sec. Symbol (eg. ss stands for 10, 59,... so on)
----------------------------------------------------------------* */
var i, j, k; // General use purpose
var aChr; // Current character
var pChr; // Previous character
var sYEAR;
var s1 = "";
var s2 = "";
var s3 = "";
var s = "";
iNewLen = sNewPatn.length;
iCurLen = sCurPatn.length;
CPATN = new makePatnArray(iCurLen);
NPATN = new makePatnArray(iNewLen);
for (pChr = null, i=0, j=0, k=0; i "50"){
sYEAR = "19" + sYEAR; // 19XX
} else {
sYEAR = "20" + sYEAR; // 20XX
}
} else {
sYEAR = sData.substr(CPATN[cp].Pos+(CPATN[cp].Len-NPATN[i].Len), NPATN[i].Len);
}
s += sYEAR;
} else if (cp == -1){
if (NPATN[i].Len == 1){ // should be a delimiter such as "/"
s += ((nc == 'S') ? ' ' : nc);
} else if ((nc == "d") && (NPATN[i].Len >= 3)){ // ddd ===> day of week
var d = new Date();
pY = getQualifyPos('Y'); lY = getQualifyLen('Y');
pM = getQualifyPos('M'); lM = getQualifyLen('M');
pD = getQualifyPos('D'); lD = getQualifyLen('D');
sYEAR = (pY >= 0) ? sData.substr(pY, lY) : d.getFullYear();
if (sYEAR.length == 2){
if (sYEAR > 50){
sYEAR = "19" + sYEAR; // 19XX
} else {
sYEAR = "20" + sYEAR; // 20XX
}
}
var iYEAR = eval(sYEAR);
var iMONTH = eval(sData.substr(pM, lM));
var iDAY = eval(sData.substr(pD, lD));
d = new Date(iYEAR, iMONTH-1, iDAY);
day = d.getDay();
var DaysOfWeek = new makeDayOfWeek2();
s += DaysOfWeek[day].Eday;
DaysOfWeek = null;
} else {
s += sNewPatn.substr(NPATN[i].Pos, NPATN[i].Pos); // copy from NewPatn
}
}
}
return s;
}
function fnUpdateVersion( sID ){
var oConectType = F.oBody.connectionType;
var pType = (oConectType != "offline") ? "w" : "c";
var coll = F.tags("SPAN");
for (var i=0; i> IN: SID=" + sID); @end
var coll = F.tags("SPAN");
for (var i=0; i> New Date=" + innerText); @end
}
}
}
@if (@DEBUG == 1) alert("fnUpdateMdate2 >> OUT"); @end
}
function fnUpdateProductInfo( sID1, sID2 ){
// sID1: Version SPAN-Tag ClassName
// sID2: Update Date SPAN-Tag ClassName
fnUpdateVersion( sID1 );
fnUpdateMdate2( sID2 );
}
function fnUpdateMdate( sID ){
var oID = F[ sID ];
if ((oID != null) && (oID.innerText.substr(0,2) == "YY")){ // (oID.innerText.substr(0,2) == "YY") is emergency to avoid twice call
with(oID){
style.display = "";
// New Ptn Current Pattern Current Data(Date)
innerText = fnFormatData(innerText, "MM/DD/YYYY hh:mm:ss", document.lastModified);
}
}
}
function repLastModifiedDate(){
var oModDate = F[ "MDATE" ];
if (oModDate == null) return;
if ((oModDate != null) && (oModDate.innerText.substr(0,2) == "YY")){ // (oID.innerText.substr(0,2) == "YY") is emergency to avoid twice call
fnUpdateMdate( "MDATE" );
return;
}
var n;
if (DOCURL.lastIndexOf( B_CORE0 ) != -1){
n = 0;
} else if (DOCURL.lastIndexOf( B_CORE3 ) != -1){
n = 3;
} else if (DOCURL.lastIndexOf( B_CORE2 ) != -1){
n = 2;
} else if (DOCURL.lastIndexOf( B_CORE1 ) != -1){
n = 1;
} else {
n = 1;
}
var oTocList = oListTOC[n].List;
var iTocLen = oListTOC[n].Len;
var urlStr;
var homeFlag = (DOCURL.lastIndexOf(HOME_URL) != -1) ? true : false;
var curModifiedDate = oModDate.innerText.substr(0, 10); // yyyy/mm/dd
var curModifiedTime = oModDate.innerText.substr(16, 8); // hh:mm:ss
for (var i=0; i tag above
function initTitles( sTag, sClass ){
// arg1: HTML TAG element name (eg."SPAN")
// arg2: Element Class name (eg. "DEF")
var oColl = document.body.getElementsByTagName( sTag );
var iCollLen = oColl.length;
if (sTag == CUSTOM_TAG){
for (var i=0; i tag above
function initTitles2( sTag, sClass ){
// arg1: HTML TAG element name (eg."SPAN")
// arg2: Element Class name (eg. "DEF")
var oColl = document.body.getElementsByTagName( sTag );
var iCollLen = oColl.length;
if (sTag == CUSTOM_TAG2){
for (var i=0; i****