/*

  Enumerate the suppressed subMenu items
   N.B.:  Requires globalVars.js

*/

function fetchDisabledSubMenuItemsInfo(typeStrg) {
  var allTags = document.getElementsByName("subMenu");
  var disabledCnt = 0;
  var tagStrg = "";
  var tmpStrg = "";
  var olPrefix = '<ol type="i" class="Roman">';
  var olSuffix = "</ol>";
  var itemPrefix = "<li>"
  var suffix = "</li>"
  var emPrefix = "<em>";
  var emSuffix = "</em>";

  for (var i = 0; i < allTags.length; i++) {
    if (allTags[i].style.display == "none") {
      disabledCnt = disabledCnt + 1;

      tagStrg = allTags[i].id;
      switch(tagStrg) {
        case "itagarts" : {
          tmpStrg = tmpStrg + itemPrefix + "Arts" + suffix;
          break;
        }
        case "itagcda" : {
          tmpStrg = tmpStrg + itemPrefix + "Canada" + suffix;
          break;
        }
        case "itagecon" : {
          tmpStrg = tmpStrg + itemPrefix + "Finance & Economics" + suffix;
          break;
        }
        case "itagenv" : {
          tmpStrg = tmpStrg + itemPrefix + "Environment" + suffix;
          break;
        }
        case "itagintl" : {
          tmpStrg = tmpStrg + itemPrefix + "International" + suffix;
          break;
        }
        case "itagsoc" : {
          tmpStrg = tmpStrg + itemPrefix + "Social Sciences" + suffix;
          break;
        }
        case "itagtsh" : {
          tmpStrg = tmpStrg + itemPrefix + "Technology, Science & Articles" + suffix;
          break;
        }
        case "itagus" : {
          tmpStrg = tmpStrg + itemPrefix + "U.S." + suffix;
          break;
        }
        case "itagmisc" : {
          tmpStrg = tmpStrg + itemPrefix + "Miscellaneous" + suffix;
          break;
        }
        default : {
          tmpStrg = tmpStrg + itemPrefix + "ERROR in fetchDisabledSubMenuItemsInfo.js" + suffix;
          break;
        }
      }  // end switch
    } // end if
  } // end for

  var Now = new Date();
  var dateStrg = formatDate(Now);

  document.write("Kindly note that as of ", dateStrg, ", ");
  switch(disabledCnt) {
    case 0 :
      document.write("all sub-categories have " + typeStrg + "entries.");
      break;
    case 1 : {
      document.write("one sub-category has no " + typeStrg + "entries whatsoever, namely:" + olPrefix);
      document.write(emPrefix + tmpStrg + emSuffix + olSuffix);
      break;
    }
    default : {
      document.write(disabledCnt + " sub-categories have no " + typeStrg + "entries whatsoever, namely:" + olPrefix);
      document.write(emPrefix + tmpStrg + emSuffix + olSuffix);
      break;
    }
  } // end switch
} // end function