function ssSetFormFocus(Formname, Elementname) 
{
   if (document.forms.length > 0) {
     if (document.forms[Formname]) {
       if (document.forms[Formname].elements[Elementname]) 
          document.forms[Formname].elements[Elementname].focus();
     }
   }
}


function ssChangeFormButton(Thisform, FieldName, FieldValue) 
{
   var field = Thisform.elements[FieldName];
   if (field) {
      field.disabled = true;
      field.value = FieldValue;
   }
   return true;
}



function ssOpenFormWindow(Chooser,FormField,FormFieldValue,FormField2,
                          FormField2Value,FormField3,FormField3Value,
                          FormField4,FormField4Value,
                          FormField5,FormField5Value,
                          FormField6,FormField6Value)
{
   if (!Chooser) return 0;

   var newPage;
   var p = window.name.substring(0,10);
   if (p == 'formpage')
     newPage = window.name + 'a';
   else
     newPage = 'formpage';

   var addOn = "";
   if ((FormField != null) && (FormFieldValue != null))
      addOn = '&' + escape(FormField) + '=' + escape(FormFieldValue);
   if ((FormField2 != null) && (FormField2Value != null))
      addOn = addOn + '&' + escape(FormField2) + '=' + escape(FormField2Value);
   if ((FormField3 != null) && (FormField3Value != null))
      addOn = addOn + '&' + escape(FormField3) + '=' + escape(FormField3Value);
   if ((FormField4 != null) && (FormField4Value != null))
      addOn = addOn + '&' + escape(FormField4) + '=' + escape(FormField4Value);
   if ((FormField5 != null) && (FormField5Value != null))
      addOn = addOn + '&' + escape(FormField5) + '=' + escape(FormField5Value);
   if ((FormField6 != null) && (FormField6Value != null))
      addOn = addOn + '&' + escape(FormField6) + '=' + escape(FormField6Value);

   var urlStr = '/cgi-bin/dusk?duskchooser=' + Chooser + addOn;

   var xAdd = newPage.length - 10;

   var newWin = window.open(urlStr,newPage,'height=600,width=700,left=' + 
                           ((xAdd * 100) + 100) + 
                            ',top=' + ((xAdd * 100) + 100) +',scrollbars=yes,resizable=yes');
   if (p == 'formpage')
      newWin.scroll(100,100);
}

function ssOpenSizedFormWindow(Chooser,WidthValue,HeightValue,FormField,FormFieldValue,FormField2,
                               FormField2Value,FormField3,FormField3Value,
                               FormField4,FormField4Value,
                               FormField5,FormField5Value,
                               FormField6,FormField6Value)
{
   if (!Chooser) return 0;

   var newPage;
   var p = window.name.substring(0,10);
   if (p == 'formpage')
     newPage = window.name + 'a';
   else
     newPage = 'formpage';

   var addOn = "";
   if ((FormField != null) && (FormFieldValue != null))
      addOn = '&' + escape(FormField) + '=' + escape(FormFieldValue);
   if ((FormField2 != null) && (FormField2Value != null))
      addOn = addOn + '&' + escape(FormField2) + '=' + escape(FormField2Value);
   if ((FormField3 != null) && (FormField3Value != null))
      addOn = addOn + '&' + escape(FormField3) + '=' + escape(FormField3Value);
   if ((FormField4 != null) && (FormField4Value != null))
      addOn = addOn + '&' + escape(FormField4) + '=' + escape(FormField4Value);
   if ((FormField5 != null) && (FormField5Value != null))
      addOn = addOn + '&' + escape(FormField5) + '=' + escape(FormField5Value);
   if ((FormField6 != null) && (FormField6Value != null))
      addOn = addOn + '&' + escape(FormField6) + '=' + escape(FormField6Value);

   var urlStr = '/cgi-bin/dusk?duskchooser=' + Chooser + addOn;

   var xAdd = newPage.length - 10;

   var newHeight = HeightValue;
   var newWidth = WidthValue;
   if (newHeight > screen.height)
      newHeight = screen.height;
   if (newWidth > screen.width)
      newWidth = screen.width;

   var newWin = window.open(urlStr,newPage,'height=' + newHeight + ',width=' + newWidth + ',left=' + 
                           ((xAdd * 100) + 100) + 
                            ',top=' + ((xAdd * 100) + 100) +',scrollbars=yes,resizable=yes');
   if (p == 'formpage')
      newWin.scroll(100,100);
}



function ssCheckResize(NewWidth,NewHeight)
{
   var newHeight = NewHeight;
   var newWidth = NewWidth;
   if (newHeight > screen.height)
      newHeight = screen.height;
   if (newWidth > screen.width)
      newWidth = screen.width;

   var scrollToX = window.location.x;
   var scrollToY = window.location.y;
   if ((window.location.x + newWidth) > screen.width)
      scrollToX = 0;
   if ((window.location.y + newHeight) > screen.height)
      scrollToY = 0;

   window.scroll(scrollToX,scrollToY);
   window.resizeTo(newWidth,newHeight);
}


function ssCheckPopupSession()
{
   var oldWin = window.opener;
   if (oldWin == null || oldWin.closed) {
      window.close();
      alert('You have clicked on a link that opened a window from a prior browser session ' +
              'This is caused by closing the main browser window, but not closing all of the ' +
              'popup browser windows.  This can also occur when you close your main browser window ' +
              'while viewing this popup window.  We will now close your popup window.  If you click on ' +
              'the link that chose to get here again, you will get a new window that will be ' +
              'valid for this session.');
      return false;
   }
   return true;
}


function ssHCInlineCloseup(IDTag)
{
  var idTag = 'DUSKLT_L_' + IDTag;
  var theTag = document.getElementById(idTag);
  if (!theTag) return 0;
  theTag.style.display = null;

  idTag = 'DUSKLT_M_' + IDTag;
  theTag = document.getElementById(idTag);
  if (!theTag) return 0;
  theTag.style.display = 'none';
  return 0;
}

function ssHCInlineExpand(IDTag)
{
  var idTag = 'DUSKLT_L_' + IDTag;
  var theTag = document.getElementById(idTag);
  if (!theTag) return 0;
  theTag.style.display = 'none';

  idTag = 'DUSKLT_M_' + IDTag;
  theTag = document.getElementById(idTag);
  if (!theTag) return 0;
  theTag.style.display = null;
  return 0;
}

function ssHCPopup(Context)
{
  ssOpenSizedFormWindow('clhcpopupdoc',300,250,'fldHC',Context);
}