Adding a new Link Type - Internal page from CMS

<meta http-equiv="Refresh" content="0;URL=fck_link.php" />

<select name="seiten" id="seiten" onchange="txtUrl.value = 'www.yourdomain..com/' + this.value + '.html'">
<?
   include("../../../sql_connect.php");
   $r = do_sql("SELECT id, seite, navi, rang FROM seiten ORDER BY rang");
        while ($rr = mysql_fetch_assoc($r)) {
      echo '<option value="'.$rr['seite'].'">'.$rr['seite'].'</option>';
   }
?>
</select> &lt; oder Seite w&auml;hlen..

/*
 * FCKeditor - The text editor for Internet - http://www.fckeditor.net
 * Copyright (C) 2003-2009 Frederico Caldeira Knabben
 *
 * == BEGIN LICENSE ==
 *
 * Licensed under the terms of any of the following licenses at your
 * choice:
 *
 *  - GNU General Public License Version 2 or later (the "GPL")
 *    http://www.gnu.org/licenses/gpl.html
 *
 *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
 *    http://www.gnu.org/licenses/lgpl.html
 *
 *  - Mozilla Public License Version 1.1 or later (the "MPL")
 *    http://www.mozilla.org/MPL/MPL-1.1.html
 *
 * == END LICENSE ==
 *
 * Scripts related to the Link dialog window (see fck_link.html).
 */

var dialog   = window.parent ;
var oEditor = dialog.InnerDialogLoaded() ;

var FCK         = oEditor.FCK ;
var FCKLang      = oEditor.FCKLang ;
var FCKConfig   = oEditor.FCKConfig ;
var FCKRegexLib   = oEditor.FCKRegexLib ;
var FCKTools   = oEditor.FCKTools ;

//#### Dialog Tabs

// Set the dialog tabs.
dialog.AddTab( 'Info', FCKLang.DlgLnkInfoTab ) ;

if ( !FCKConfig.LinkDlgHideTarget )
   dialog.AddTab( 'Target', FCKLang.DlgLnkTargetTab, true ) ;

if ( FCKConfig.LinkUpload )
   dialog.AddTab( 'Upload', FCKLang.DlgLnkUpload, true ) ;

if ( !FCKConfig.LinkDlgHideAdvanced )
   dialog.AddTab( 'Advanced', FCKLang.DlgAdvancedTag ) ;

// Function called when a dialog tag is selected.
function OnDialogTabChange( tabCode )
{
   ShowE('divInfo'      , ( tabCode == 'Info' ) ) ;
   ShowE('divTarget'   , ( tabCode == 'Target' ) ) ;
   ShowE('divUpload'   , ( tabCode == 'Upload' ) ) ;
   ShowE('divAttribs'   , ( tabCode == 'Advanced' ) ) ;

   dialog.SetAutoSize( true ) ;
}

//#### Regular Expressions library.
var oRegex = new Object() ;

oRegex.UriProtocol = /^(((http|https|ftp|news):\/\/)|mailto:)/gi ;

oRegex.UrlOnChangeProtocol = /^(http|https|ftp|news):\/\/(?=.)/gi ;

oRegex.UrlOnChangeTestOther = /^((javascript:)|[#\/\.])/gi ;

oRegex.ReserveTarget = /^_(blank|self|top|parent)$/i ;

oRegex.PopupUri = /^javascript:void\(\s*window.open\(\s*'([^']+)'\s*,\s*(?:'([^']*)'|null)\s*,\s*'([^']*)'\s*\)\s*\)\s*$/ ;

// Accessible popups
oRegex.OnClickPopup = /^\s*on[cC]lick="\s*window.open\(\s*this\.href\s*,\s*(?:'([^']*)'|null)\s*,\s*'([^']*)'\s*\)\s*;\s*return\s*false;*\s*"$/ ;

oRegex.PopupFeatures = /(?:^|,)([^=]+)=(\d+|yes|no)/gi ;

//#### Parser Functions

var oParser = new Object() ;

// This method simply returns the two inputs in numerical order. You can even
// provide strings, as the method would parseInt() the values.
oParser.SortNumerical = function(a, b)
{
   return parseInt( a, 10 ) - parseInt( b, 10 ) ;
}

oParser.ParseEMailParams = function(sParams)
{
   // Initialize the oEMailParams object.
   var oEMailParams = new Object() ;
   oEMailParams.Subject = '' ;
   oEMailParams.Body = '' ;

   var aMatch = sParams.match( /(^|^\?|&)subject=([^&]+)/i ) ;
   if ( aMatch ) oEMailParams.Subject = decodeURIComponent( aMatch[2] ) ;

   aMatch = sParams.match( /(^|^\?|&)body=([^&]+)/i ) ;
   if ( aMatch ) oEMailParams.Body = decodeURIComponent( aMatch[2] ) ;

   return oEMailParams ;
}

// This method returns either an object containing the email info, or FALSE
// if the parameter is not an email link.
oParser.ParseEMailUri = function( sUrl )
{
   // Initializes the EMailInfo object.
   var oEMailInfo = new Object() ;
   oEMailInfo.Address = '' ;
   oEMailInfo.Subject = '' ;
   oEMailInfo.Body = '' ;

   var aLinkInfo = sUrl.match( /^(\w+):(.*)$/ ) ;
   if ( aLinkInfo && aLinkInfo[1] == 'mailto' )
   {
      // This seems to be an unprotected email link.
      var aParts = aLinkInfo[2].match( /^([^\?]+)\??(.+)?/ ) ;
      if ( aParts )
      {
         // Set the e-mail address.
         oEMailInfo.Address = aParts[1] ;

         // Look for the optional e-mail parameters.
         if ( aParts[2] )
         {
            var oEMailParams = oParser.ParseEMailParams( aParts[2] ) ;
            oEMailInfo.Subject = oEMailParams.Subject ;
            oEMailInfo.Body = oEMailParams.Body ;
         }
      }
      return oEMailInfo ;
   }
   else if ( aLinkInfo && aLinkInfo[1] == 'javascript' )
   {
      // This may be a protected email.

      // Try to match the url against the EMailProtectionFunction.
      var func = FCKConfig.EMailProtectionFunction ;
      if ( func != null )
      {
         try
         {
            // Escape special chars.
            func = func.replace( /([\/^$*+.?()\[\]])/g, '\\$1' ) ;

            // Define the possible keys.
            var keys = new Array('NAME', 'DOMAIN', 'SUBJECT', 'BODY') ;

            // Get the order of the keys (hold them in the array <pos>) and
            // the function replaced by regular expression patterns.
            var sFunc = func ;
            var pos = new Array() ;
            for ( var i = 0 ; i < keys.length ; i ++ )
            {
               var rexp = new RegExp( keys[i] ) ;
               var p = func.search( rexp ) ;
               if ( p >= 0 )
               {
                  sFunc = sFunc.replace( rexp, '\'([^\']*)\'' ) ;
                  pos[pos.length] = p + ':' + keys[i] ;
               }
            }

            // Sort the available keys.
            pos.sort( oParser.SortNumerical ) ;

            // Replace the excaped single quotes in the url, such they do
            // not affect the regexp afterwards.
            aLinkInfo[2] = aLinkInfo[2].replace( /\\'/g, '###SINGLE_QUOTE###' ) ;

            // Create the regexp and execute it.
            var rFunc = new RegExp( '^' + sFunc + '$' ) ;
            var aMatch = rFunc.exec( aLinkInfo[2] ) ;
            if ( aMatch )
            {
               var aInfo = new Array();
               for ( var i = 1 ; i < aMatch.length ; i ++ )
               {
                  var k = pos[i-1].match(/^\d+:(.+)$/) ;
                  aInfo[k[1]] = aMatch[i].replace(/###SINGLE_QUOTE###/g, '\'') ;
               }

               // Fill the EMailInfo object that will be returned
               oEMailInfo.Address = aInfo['NAME'] + '@' + aInfo['DOMAIN'] ;
               oEMailInfo.Subject = decodeURIComponent( aInfo['SUBJECT'] ) ;
               oEMailInfo.Body = decodeURIComponent( aInfo['BODY'] ) ;

               return oEMailInfo ;
            }
         }
         catch (e)
         {
         }
      }

      // Try to match the email against the encode protection.
      var aMatch = aLinkInfo[2].match( /^(?:void\()?location\.href='mailto:'\+(String\.fromCharCode\([\d,]+\))\+'(.*)'\)?$/ ) ;
      if ( aMatch )
      {
         // The link is encoded
         oEMailInfo.Address = eval( aMatch[1] ) ;
         if ( aMatch[2] )
         {
            var oEMailParams = oParser.ParseEMailParams( aMatch[2] ) ;
            oEMailInfo.Subject = oEMailParams.Subject ;
            oEMailInfo.Body = oEMailParams.Body ;
         }
         return oEMailInfo ;
      }
   }
   return false;
}

oParser.CreateEMailUri = function( address, subject, body )
{
   // Switch for the EMailProtection setting.
   switch ( FCKConfig.EMailProtection )
   {
      case 'function' :
         var func = FCKConfig.EMailProtectionFunction ;
         if ( func == null )
         {
            if ( FCKConfig.Debug )
            {
               alert('EMailProtection alert!\nNo function defined. Please set "FCKConfig.EMailProtectionFunction"') ;
            }
            return '';
         }

         // Split the email address into name and domain parts.
         var aAddressParts = address.split( '@', 2 ) ;
         if ( aAddressParts[1] == undefined )
         {
            aAddressParts[1] = '' ;
         }

         // Replace the keys by their values (embedded in single quotes).
         func = func.replace(/NAME/g, "'" + aAddressParts[0].replace(/'/g, '\\\'') + "'") ;
         func = func.replace(/DOMAIN/g, "'" + aAddressParts[1].replace(/'/g, '\\\'') + "'") ;
         func = func.replace(/SUBJECT/g, "'" + encodeURIComponent( subject ).replace(/'/g, '\\\'') + "'") ;
         func = func.replace(/BODY/g, "'" + encodeURIComponent( body ).replace(/'/g, '\\\'') + "'") ;

         return 'javascript:' + func ;

      case 'encode' :
         var aParams = [] ;
         var aAddressCode = [] ;

         if ( subject.length > 0 )
            aParams.push( 'subject='+ encodeURIComponent( subject ) ) ;
         if ( body.length > 0 )
            aParams.push( 'body=' + encodeURIComponent( body ) ) ;
         for ( var i = 0 ; i < address.length ; i++ )
            aAddressCode.push( address.charCodeAt( i ) ) ;

         return 'javascript:void(location.href=\'mailto:\'+String.fromCharCode(' + aAddressCode.join( ',' ) + ')+\'?' + aParams.join( '&' ) + '\')' ;
   }

   // EMailProtection 'none'

   var sBaseUri = 'mailto:' + address ;

   var sParams = '' ;

   if ( subject.length > 0 )
      sParams = '?subject=' + encodeURIComponent( subject ) ;

   if ( body.length > 0 )
   {
      sParams += ( sParams.length == 0 ? '?' : '&' ) ;
      sParams += 'body=' + encodeURIComponent( body ) ;
   }

   return sBaseUri + sParams ;
}

//#### Initialization Code

// oLink: The actual selected link in the editor.
var oLink = dialog.Selection.GetSelection().MoveToAncestorNode( 'A' ) ;
if ( oLink )
   FCK.Selection.SelectNode( oLink ) ;

window.onload = function()
{
   // Translate the dialog box texts.
   oEditor.FCKLanguageManager.TranslatePage(document) ;

   // Fill the Anchor Names and Ids combos.
   LoadAnchorNamesAndIds() ;

   // Load the selected link information (if any).
   LoadSelection() ;

   // Update the dialog box.
   SetLinkType( GetE('cmbLinkType').value ) ;

   // Show/Hide the "Browse Server" button.
   GetE('divBrowseServer').style.display = FCKConfig.LinkBrowser ? '' : 'none' ;

   // Show the initial dialog content.
   GetE('divInfo').style.display = '' ;

   // Set the actual uploader URL.
   if ( FCKConfig.LinkUpload )
      GetE('frmUpload').action = FCKConfig.LinkUploadURL ;

   // Set the default target (from configuration).
   SetDefaultTarget() ;

   // Activate the "OK" button.
   dialog.SetOkButton( true ) ;

   // Select the first field.
   switch( GetE('cmbLinkType').value )
   {
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - // custom code added for internal linking
          case 'internal' :
             SelectField( 'ddlUrlInternal' ) ;
             break ;
          // - - - - - - - - - - - - - - - - - - - - - - - - - - - - //
      
      case 'url' :
         SelectField( 'txtUrl' ) ;
         break ;
      case 'email' :
         SelectField( 'txtEMailAddress' ) ;
         break ;
      case 'anchor' :
         if ( GetE('divSelAnchor').style.display != 'none' )
            SelectField( 'cmbAnchorName' ) ;
         else
            SelectField( 'cmbLinkType' ) ;
             
   }
}

var bHasAnchors ;

function LoadAnchorNamesAndIds()
{
   // Since version 2.0, the anchors are replaced in the DOM by IMGs so the user see the icon
   // to edit them. So, we must look for that images now.
   var aAnchors = new Array() ;
   var i ;
   var oImages = oEditor.FCK.EditorDocument.getElementsByTagName( 'IMG' ) ;
   for( i = 0 ; i < oImages.length ; i++ )
   {
      if ( oImages[i].getAttribute('_fckanchor') )
         aAnchors[ aAnchors.length ] = oEditor.FCK.GetRealElement( oImages[i] ) ;
   }

   // Add also real anchors
   var oLinks = oEditor.FCK.EditorDocument.getElementsByTagName( 'A' ) ;
   for( i = 0 ; i < oLinks.length ; i++ )
   {
      if ( oLinks[i].name && ( oLinks[i].name.length > 0 ) )
         aAnchors[ aAnchors.length ] = oLinks[i] ;
   }

   var aIds = FCKTools.GetAllChildrenIds( oEditor.FCK.EditorDocument.body ) ;

   bHasAnchors = ( aAnchors.length > 0 || aIds.length > 0 ) ;

   for ( i = 0 ; i < aAnchors.length ; i++ )
   {
      var sName = aAnchors[i].name ;
      if ( sName && sName.length > 0 )
         FCKTools.AddSelectOption( GetE('cmbAnchorName'), sName, sName ) ;
   }

   for ( i = 0 ; i < aIds.length ; i++ )
   {
      FCKTools.AddSelectOption( GetE('cmbAnchorId'), aIds[i], aIds[i] ) ;
   }

   ShowE( 'divSelAnchor'   , bHasAnchors ) ;
   ShowE( 'divNoAnchor'   , !bHasAnchors ) ;
}

function LoadSelection()
{
   if ( !oLink ) return ;

   var sType = 'url' ;

   // Get the actual Link href.
   var sHRef = oLink.getAttribute( '_fcksavedurl' ) ;
   if ( sHRef == null )
      sHRef = oLink.getAttribute( 'href' , 2 ) || '' ;

   // Look for a popup javascript link.
   var oPopupMatch = oRegex.PopupUri.exec( sHRef ) ;
   if( oPopupMatch )
   {
      GetE('cmbTarget').value = 'popup' ;
      sHRef = oPopupMatch[1] ;
      FillPopupFields( oPopupMatch[2], oPopupMatch[3] ) ;
      SetTarget( 'popup' ) ;
   }

   // Accessible popups, the popup data is in the onclick attribute
   if ( !oPopupMatch )
   {
      var onclick = oLink.getAttribute( 'onclick_fckprotectedatt' ) ;
      if ( onclick )
      {
         // Decode the protected string
         onclick = decodeURIComponent( onclick ) ;

         oPopupMatch = oRegex.OnClickPopup.exec( onclick ) ;
         if( oPopupMatch )
         {
            GetE( 'cmbTarget' ).value = 'popup' ;
            FillPopupFields( oPopupMatch[1], oPopupMatch[2] ) ;
            SetTarget( 'popup' ) ;
         }
      }
   }

   // Search for the protocol.
   var sProtocol = oRegex.UriProtocol.exec( sHRef ) ;

   // Search for a protected email link.
   var oEMailInfo = oParser.ParseEMailUri( sHRef );

   if ( oEMailInfo )
   {
      sType = 'email' ;

      GetE('txtEMailAddress').value = oEMailInfo.Address ;
      GetE('txtEMailSubject').value = oEMailInfo.Subject ;
      GetE('txtEMailBody').value    = oEMailInfo.Body ;
   }
   else if ( sProtocol )
   {
      sProtocol = sProtocol[0].toLowerCase() ;
      GetE('cmbLinkProtocol').value = sProtocol ;

      // Remove the protocol and get the remaining URL.
      var sUrl = sHRef.replace( oRegex.UriProtocol, '' ) ;
      sType = 'url' ;
      GetE('txtUrl').value = sUrl ;
   }
   else if ( sHRef.substr(0,1) == '#' && sHRef.length > 1 )   // It is an anchor link.
   {
      sType = 'anchor' ;
      GetE('cmbAnchorName').value = GetE('cmbAnchorId').value = sHRef.substr(1) ;
   }
   else               // It is another type of link.
   {
      sType = 'url' ;

      GetE('cmbLinkProtocol').value = '' ;
      GetE('txtUrl').value = sHRef ;
   }

   if ( !oPopupMatch )
   {
      // Get the target.
      var sTarget = oLink.target ;

      if ( sTarget && sTarget.length > 0 )
      {
         if ( oRegex.ReserveTarget.test( sTarget ) )
         {
            sTarget = sTarget.toLowerCase() ;
            GetE('cmbTarget').value = sTarget ;
         }
         else
            GetE('cmbTarget').value = 'frame' ;
         GetE('txtTargetFrame').value = sTarget ;
      }
   }

   // Get Advances Attributes
   GetE('txtAttId').value         = oLink.id ;
   GetE('txtAttName').value      = oLink.name ;
   GetE('cmbAttLangDir').value      = oLink.dir ;
   GetE('txtAttLangCode').value   = oLink.lang ;
   GetE('txtAttAccessKey').value   = oLink.accessKey ;
   GetE('txtAttTabIndex').value   = oLink.tabIndex <= 0 ? '' : oLink.tabIndex ;
   GetE('txtAttTitle').value      = oLink.title ;
   GetE('txtAttContentType').value   = oLink.type ;
   GetE('txtAttCharSet').value      = oLink.charset ;

   var sClass ;
   if ( oEditor.FCKBrowserInfo.IsIE )
   {
      sClass   = oLink.getAttribute('className',2) || '' ;
      // Clean up temporary classes for internal use:
      sClass = sClass.replace( FCKRegexLib.FCK_Class, '' ) ;

      GetE('txtAttStyle').value   = oLink.style.cssText ;
   }
   else
   {
      sClass   = oLink.getAttribute('class',2) || '' ;
      GetE('txtAttStyle').value   = oLink.getAttribute('style',2) || '' ;
   }
   GetE('txtAttClasses').value   = sClass ;

   // Update the Link type combo.
   GetE('cmbLinkType').value = sType ;
}

//#### Link type selection.
function SetLinkType( linkType )
{
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - // custom code added for internal linking
      ShowE('divLinkTypeUrlInternal'      , (linkType == 'internal') ) ;
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - //
   ShowE('divLinkTypeUrl'      , (linkType == 'url') ) ;
   ShowE('divLinkTypeAnchor'   , (linkType == 'anchor') ) ;
   ShowE('divLinkTypeEMail'   , (linkType == 'email') ) ;
    
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - // custom code added for internal linking
  //   if ( !FCKConfig.LinkDlgHideTarget )
//      dialog.SetTabVisibility( 'Target'   , (linkType == 'url') ) ;
if ( !FCKConfig.LinkDlgHideTarget )
      dialog.SetTabVisibility( 'Target'   , (linkType == 'url' || linkType == 'internal') ) ;
      // - - - - - - - - - - - - - - - - - - - - - - - - - - - - //


    
      
   if ( FCKConfig.LinkUpload )
      dialog.SetTabVisibility( 'Upload'   , (linkType == 'url') ) ;

   if ( !FCKConfig.LinkDlgHideAdvanced )
      dialog.SetTabVisibility( 'Advanced'   , (linkType != 'anchor' || bHasAnchors) ) ;

   if ( linkType == 'email' )
      dialog.SetAutoSize( true ) ;
}

//#### Target type selection.
function SetTarget( targetType )
{
   GetE('tdTargetFrame').style.display   = ( targetType == 'popup' ? 'none' : '' ) ;
   GetE('tdPopupName').style.display   =
   GetE('tablePopupFeatures').style.display = ( targetType == 'popup' ? '' : 'none' ) ;

   switch ( targetType )
   {
      case "_blank" :
      case "_self" :
      case "_parent" :
      case "_top" :
         GetE('txtTargetFrame').value = targetType ;
         break ;
      case "" :
         GetE('txtTargetFrame').value = '' ;
         break ;
   }

   if ( targetType == 'popup' )
      dialog.SetAutoSize( true ) ;
}

//#### Called while the user types the URL.
function OnUrlChange()
{
   var sUrl = GetE('txtUrl').value ;
   var sProtocol = oRegex.UrlOnChangeProtocol.exec( sUrl ) ;

   if ( sProtocol )
   {
      sUrl = sUrl.substr( sProtocol[0].length ) ;
      GetE('txtUrl').value = sUrl ;
      GetE('cmbLinkProtocol').value = sProtocol[0].toLowerCase() ;
   }
   else if ( oRegex.UrlOnChangeTestOther.test( sUrl ) )
   {
      GetE('cmbLinkProtocol').value = '' ;
   }
}

//#### Called while the user types the target name.
function OnTargetNameChange()
{
   var sFrame = GetE('txtTargetFrame').value ;

   if ( sFrame.length == 0 )
      GetE('cmbTarget').value = '' ;
   else if ( oRegex.ReserveTarget.test( sFrame ) )
      GetE('cmbTarget').value = sFrame.toLowerCase() ;
   else
      GetE('cmbTarget').value = 'frame' ;
}

// Accessible popups
function BuildOnClickPopup()
{
   var sWindowName = "'" + GetE('txtPopupName').value.replace(/\W/gi, "") + "'" ;

   var sFeatures = '' ;
   var aChkFeatures = document.getElementsByName( 'chkFeature' ) ;
   for ( var i = 0 ; i < aChkFeatures.length ; i++ )
   {
      if ( i > 0 ) sFeatures += ',' ;
      sFeatures += aChkFeatures[i].value + '=' + ( aChkFeatures[i].checked ? 'yes' : 'no' ) ;
   }

   if ( GetE('txtPopupWidth').value.length > 0 )   sFeatures += ',width=' + GetE('txtPopupWidth').value ;
   if ( GetE('txtPopupHeight').value.length > 0 )   sFeatures += ',height=' + GetE('txtPopupHeight').value ;
   if ( GetE('txtPopupLeft').value.length > 0 )   sFeatures += ',left=' + GetE('txtPopupLeft').value ;
   if ( GetE('txtPopupTop').value.length > 0 )      sFeatures += ',top=' + GetE('txtPopupTop').value ;

   if ( sFeatures != '' )
      sFeatures = sFeatures + ",status" ;

   return ( "window.open(this.href," + sWindowName + ",'" + sFeatures + "'); return false" ) ;
}

//#### Fills all Popup related fields.
function FillPopupFields( windowName, features )
{
   if ( windowName )
      GetE('txtPopupName').value = windowName ;

   var oFeatures = new Object() ;
   var oFeaturesMatch ;
   while( ( oFeaturesMatch = oRegex.PopupFeatures.exec( features ) ) != null )
   {
      var sValue = oFeaturesMatch[2] ;
      if ( sValue == ( 'yes' || '1' ) )
         oFeatures[ oFeaturesMatch[1] ] = true ;
      else if ( ! isNaN( sValue ) && sValue != 0 )
         oFeatures[ oFeaturesMatch[1] ] = sValue ;
   }

   // Update all features check boxes.
   var aChkFeatures = document.getElementsByName('chkFeature') ;
   for ( var i = 0 ; i < aChkFeatures.length ; i++ )
   {
      if ( oFeatures[ aChkFeatures[i].value ] )
         aChkFeatures[i].checked = true ;
   }

   // Update position and size text boxes.
   if ( oFeatures['width'] )   GetE('txtPopupWidth').value      = oFeatures['width'] ;
   if ( oFeatures['height'] )   GetE('txtPopupHeight').value   = oFeatures['height'] ;
   if ( oFeatures['left'] )   GetE('txtPopupLeft').value      = oFeatures['left'] ;
   if ( oFeatures['top'] )      GetE('txtPopupTop').value      = oFeatures['top'] ;
}

//#### The OK button was hit.
function Ok()
{
   var sUri, sInnerHtml ;
   oEditor.FCKUndo.SaveUndoStep() ;

   switch ( GetE('cmbLinkType').value )
   {
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - // custom code added for internal linking
          case 'internal' :
             sUri = GetE('ddlUrlInternal').value ;

             if ( sUri.length == 0 )
             {
                alert( FCKLang.DlnLnkMsgNoUrl ) ;
                return false ;
             }

             //sUri = GetE('cmbLinkProtocol').value + sUri ;

             break ;
          // - - - - - - - - - - - - - - - - - - - - - - - - - - - - //

      case 'url' :
         sUri = GetE('txtUrl').value ;

         if ( sUri.length == 0 )
         {
            alert( FCKLang.DlnLnkMsgNoUrl ) ;
            return false ;
         }

         sUri = GetE('cmbLinkProtocol').value + sUri ;

         break ;


//            sUri = GetE('txtUrl').value ;
//            sInternalUrl = GetE('ddlUrlInternal').value ;

//         if ( sUri.length == 0 )
//         {   
//            if (sInternalUrl.length == 0 )
//            {
//                alert( FCKLang.DlnLnkMsgNoUrl ) ;
//                return false ;
//            }
//            else
//            {
//                sUri =  sInternalUrl ;
//            }
//         }
//         else
//         {
//             sUri = GetE('cmbLinkProtocol').value + sUri ;
//            }
//         break ;

      case 'email' :
         sUri = GetE('txtEMailAddress').value ;

         if ( sUri.length == 0 )
         {
            alert( FCKLang.DlnLnkMsgNoEMail ) ;
            return false ;
         }

         sUri = oParser.CreateEMailUri(
            sUri,
            GetE('txtEMailSubject').value,
            GetE('txtEMailBody').value ) ;
         break ;

      case 'anchor' :
         var sAnchor = GetE('cmbAnchorName').value ;
         if ( sAnchor.length == 0 ) sAnchor = GetE('cmbAnchorId').value ;

         if ( sAnchor.length == 0 )
         {
            alert( FCKLang.DlnLnkMsgNoAnchor ) ;
            return false ;
         }

         sUri = '#' + sAnchor ;
         break ;
   }

   // If no link is selected, create a new one (it may result in more than one link creation - #220).
   var aLinks = oLink ? [ oLink ] : oEditor.FCK.CreateLink( sUri, true ) ;

   // If no selection, no links are created, so use the uri as the link text (by dom, 2006-05-26)
   var aHasSelection = ( aLinks.length > 0 ) ;
   if ( !aHasSelection )
   {
      sInnerHtml = sUri;

      // Built a better text for empty links.
      switch ( GetE('cmbLinkType').value )
      {
         // anchor: use old behavior --> return true
         case 'anchor':
            sInnerHtml = sInnerHtml.replace( /^#/, '' ) ;
            break ;

         // url: try to get path
         case 'url':
            var oLinkPathRegEx = new RegExp("//?([^?\"']+)([?].*)?$") ;
            var asLinkPath = oLinkPathRegEx.exec( sUri ) ;
            if (asLinkPath != null)
               sInnerHtml = asLinkPath[1];  // use matched path
            break ;

         // mailto: try to get email address
         case 'email':
            sInnerHtml = GetE('txtEMailAddress').value ;
            break ;
      }

      // Create a new (empty) anchor.
      aLinks = [ oEditor.FCK.InsertElement( 'a' ) ] ;
   }

   for ( var i = 0 ; i < aLinks.length ; i++ )
   {
      oLink = aLinks[i] ;

      if ( aHasSelection )
         sInnerHtml = oLink.innerHTML ;      // Save the innerHTML (IE changes it if it is like an URL).

      oLink.href = sUri ;
      SetAttribute( oLink, '_fcksavedurl', sUri ) ;

      var onclick;
      // Accessible popups
      if( GetE('cmbTarget').value == 'popup' )
      {
         onclick = BuildOnClickPopup() ;
         // Encode the attribute
         onclick = encodeURIComponent( " onclick=\"" + onclick + "\"" )  ;
         SetAttribute( oLink, 'onclick_fckprotectedatt', onclick ) ;
      }
      else
      {
         // Check if the previous onclick was for a popup:
         // In that case remove the onclick handler.
         onclick = oLink.getAttribute( 'onclick_fckprotectedatt' ) ;
         if ( onclick )
         {
            // Decode the protected string
            onclick = decodeURIComponent( onclick ) ;

            if( oRegex.OnClickPopup.test( onclick ) )
               SetAttribute( oLink, 'onclick_fckprotectedatt', '' ) ;
         }
      }

      oLink.innerHTML = sInnerHtml ;      // Set (or restore) the innerHTML

      // Target
      if( GetE('cmbTarget').value != 'popup' )
         SetAttribute( oLink, 'target', GetE('txtTargetFrame').value ) ;
      else
         SetAttribute( oLink, 'target', null ) ;

      // Let's set the "id" only for the first link to avoid duplication.
      if ( i == 0 )
         SetAttribute( oLink, 'id', GetE('txtAttId').value ) ;

      // Advances Attributes
      SetAttribute( oLink, 'name'      , GetE('txtAttName').value ) ;
      SetAttribute( oLink, 'dir'      , GetE('cmbAttLangDir').value ) ;
      SetAttribute( oLink, 'lang'      , GetE('txtAttLangCode').value ) ;
      SetAttribute( oLink, 'accesskey', GetE('txtAttAccessKey').value ) ;
      SetAttribute( oLink, 'tabindex'   , ( GetE('txtAttTabIndex').value > 0 ? GetE('txtAttTabIndex').value : null ) ) ;
      SetAttribute( oLink, 'title'   , GetE('txtAttTitle').value ) ;
      SetAttribute( oLink, 'type'      , GetE('txtAttContentType').value ) ;
      SetAttribute( oLink, 'charset'   , GetE('txtAttCharSet').value ) ;

      if ( oEditor.FCKBrowserInfo.IsIE )
      {
         var sClass = GetE('txtAttClasses').value ;
         // If it's also an anchor add an internal class
         if ( GetE('txtAttName').value.length != 0 )
            sClass += ' FCK__AnchorC' ;
         SetAttribute( oLink, 'className', sClass ) ;

         oLink.style.cssText = GetE('txtAttStyle').value ;
      }
      else
      {
         SetAttribute( oLink, 'class', GetE('txtAttClasses').value ) ;
         SetAttribute( oLink, 'style', GetE('txtAttStyle').value ) ;
      }
   }

   // Select the (first) link.
   oEditor.FCKSelection.SelectNode( aLinks[0] );

   return true ;
}

function BrowseServer()
{
   OpenFileBrowser( FCKConfig.LinkBrowserURL, FCKConfig.LinkBrowserWindowWidth, FCKConfig.LinkBrowserWindowHeight ) ;
}

function SetUrl( url )
{
   GetE('txtUrl').value = url ;
   OnUrlChange() ;
   dialog.SetSelectedTab( 'Info' ) ;
}

function OnUploadCompleted( errorNumber, fileUrl, fileName, customMsg )
{
   // Remove animation
   window.parent.Throbber.Hide() ;
   GetE( 'divUpload' ).style.display  = '' ;

   switch ( errorNumber )
   {
      case 0 :   // No errors
         alert( 'Your file has been successfully uploaded' ) ;
         break ;
      case 1 :   // Custom error
         alert( customMsg ) ;
         return ;
      case 101 :   // Custom warning
         alert( customMsg ) ;
         break ;
      case 201 :
         alert( 'A file with the same name is already available. The uploaded file has been renamed to "' + fileName + '"' ) ;
         break ;
      case 202 :
         alert( 'Invalid file type' ) ;
         return ;
      case 203 :
         alert( "Security error. You probably don't have enough permissions to upload. Please check your server." ) ;
         return ;
      case 500 :
         alert( 'The connector is disabled' ) ;
         break ;
      default :
         alert( 'Error on file upload. Error number: ' + errorNumber ) ;
         return ;
   }

   SetUrl( fileUrl ) ;
   GetE('frmUpload').reset() ;
}

var oUploadAllowedExtRegex   = new RegExp( FCKConfig.LinkUploadAllowedExtensions, 'i' ) ;
var oUploadDeniedExtRegex   = new RegExp( FCKConfig.LinkUploadDeniedExtensions, 'i' ) ;

function CheckUpload()
{
   var sFile = GetE('txtUploadFile').value ;

   if ( sFile.length == 0 )
   {
      alert( 'Please select a file to upload' ) ;
      return false ;
   }

   if ( ( FCKConfig.LinkUploadAllowedExtensions.length > 0 && !oUploadAllowedExtRegex.test( sFile ) ) ||
      ( FCKConfig.LinkUploadDeniedExtensions.length > 0 && oUploadDeniedExtRegex.test( sFile ) ) )
   {
      OnUploadCompleted( 202 ) ;
      return false ;
   }

   // Show animation
   window.parent.Throbber.Show( 100 ) ;
   GetE( 'divUpload' ).style.display  = 'none' ;

   return true ;
}

function SetDefaultTarget()
{
   var target = FCKConfig.DefaultLinkTarget || '' ;

   if ( oLink || target.length == 0 )
      return ;

   switch ( target )
   {
      case '_blank' :
      case '_self' :
      case '_parent' :
      case '_top' :
         GetE('cmbTarget').value = target ;
         break ;
      default :
         GetE('cmbTarget').value = 'frame' ;
         break ;
   }

   GetE('txtTargetFrame').value = target ;
}

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--
 * FCKeditor - The text editor for Internet - http://www.fckeditor.net
 * Copyright (C) 2003-2009 Frederico Caldeira Knabben
 *
 * == BEGIN LICENSE ==
 *
 * Licensed under the terms of any of the following licenses at your
 * choice:
 *
 *  - GNU General Public License Version 2 or later (the "GPL")
 *    http://www.gnu.org/licenses/gpl.html
 *
 *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
 *    http://www.gnu.org/licenses/lgpl.html
 *
 *  - Mozilla Public License Version 1.1 or later (the "MPL")
 *    http://www.mozilla.org/MPL/MPL-1.1.html
 *
 * == END LICENSE ==
 *
 * Link dialog window.
-->
<html>
   <head>
      <title>Link Properties</title>
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
      <meta name="robots" content="noindex, nofollow" />
      <script src="common/fck_dialog_common.js" type="text/javascript"></script>
      <script src="fck_link/fck_link.js" type="text/javascript"></script>
   </head>
   <body scroll="no" style="OVERFLOW: hidden">
      <div id="divInfo" style="DISPLAY: none">
        <!--<div id="divInfo" style="DISPLAY: none">-->
         <span fckLang="DlgLnkType">Link Type</span><br />
         <select id="cmbLinkType" onChange="SetLinkType(this.value);">
            <option value="url" fckLang="DlgLnkTypeURL" selected="selected">URL</option>
                  <option value="internal" fckLang="DlgLnkTypeURLInternal" >Internal URL</option>
            <option value="anchor" fckLang="DlgLnkTypeAnchor">Anchor in this page</option>
            <option value="email" fckLang="DlgLnkTypeEMail">E-Mail</option>
         </select>
         <br />
         <br />
         <div id="divLinkTypeUrl">
            <table cellspacing="0" cellpadding="0" width="100%" border="0" dir="ltr">
               <tr>
                  <td nowrap="nowrap">
                     <span fckLang="DlgLnkProto">Protocol</span><br />
                     <select id="cmbLinkProtocol">
                        <option value="http://" selected="selected">http://</option>
                        <option value="https://">https://</option>
                        <option value="ftp://">ftp://</option>
                        <option value="news://">news://</option>
                        <option value="" fckLang="DlgLnkProtoOther">&lt;other&gt;</option>
                     </select>
                  </td>
                  <td nowrap="nowrap">&nbsp;</td>
                  <td nowrap="nowrap" width="100%">
                     <span fckLang="DlgLnkURL">URL</span><br />
                     <input id="txtUrl" style="WIDTH: 100%" type="text" onKeyUp="OnUrlChange();" onChange="OnUrlChange();" />
                  </td>
               </tr>
            </table>
            <br />
            <div id="divBrowseServer">
            <input type="button" value="Browse Server" fckLang="DlgBtnBrowseServer" onClick="BrowseServer();" />
            </div>
         </div>
            <div id="divLinkTypeUrlInternal" style="DISPLAY: none" align="center">
            <table cellspacing="0" cellpadding="0" width="100%" border="0" dir="ltr">
               <tr>
                  <td nowrap="nowrap">
                  </td>
                  <td nowrap="nowrap">&nbsp;</td>
                  <td nowrap="nowrap" width="100%">
                     <span fcklang="DlgLnkURLInternal">Internal URL</span><br />
                     
                     <select name="seiten" id="seiten" onchange="txtUrl.value = 'www.yourdomain.com/' + this.value + '.html'">
                  <?php
                          include("../../../includes/connection.php");
                           $r = mysql_query("SELECT id, menu_name FROM pages ORDER BY id");
                                while ($rr = mysql_fetch_assoc($r)) {
                              echo '<option value="'.$rr['id'].'">'.$rr['id'].'</option>';
                           }
                        ?>
                        </select><br />
                        <input id="txtUrl" style="WIDTH: 100%" type="text" onKeyUp="OnUrlChange();" onChange="OnUrlChange();" />
                        site page 
                     <!--<input id="txtUrl" style="WIDTH: 100%" type="text" onKeyUp="OnUrlChange();" onChange="OnUrlChange();" />-->
                  </td>
               </tr>
            </table>
            <br />
         </div>
         </div>
         <div id="divLinkTypeAnchor" style="DISPLAY: none" align="center">
            <div id="divSelAnchor" style="DISPLAY: none">
               <table cellspacing="0" cellpadding="0" border="0" width="70%">
                  <tr>
                     <td colspan="3">
                        <span fckLang="DlgLnkAnchorSel">Select an Anchor</span>
                     </td>
                  </tr>
                  <tr>
                     <td width="50%">
                        <span fckLang="DlgLnkAnchorByName">By Anchor Name</span><br />
                        <select id="cmbAnchorName" onChange="GetE('cmbAnchorId').value='';" style="WIDTH: 100%">
                           <option value="" selected="selected"></option>
                        </select>
                     </td>
                     <td>&nbsp;&nbsp;&nbsp;</td>
                     <td width="50%">
                        <span fckLang="DlgLnkAnchorById">By Element Id</span><br />
                        <select id="cmbAnchorId" onChange="GetE('cmbAnchorName').value='';" style="WIDTH: 100%">
                           <option value="" selected="selected"></option>
                        </select>
                     </td>
                  </tr>
               </table>
            </div>
            <div id="divNoAnchor" style="DISPLAY: none">
               <span fckLang="DlgLnkNoAnchors">&lt;No anchors available in the document&gt;</span>
            </div>
         </div>
         <div id="divLinkTypeEMail" style="DISPLAY: none">
            <span fckLang="DlgLnkEMail">E-Mail Address</span><br />
            <input id="txtEMailAddress" style="WIDTH: 100%" type="text" /><br />
            <span fckLang="DlgLnkEMailSubject">Message Subject</span><br />
            <input id="txtEMailSubject" style="WIDTH: 100%" type="text" /><br />
            <span fckLang="DlgLnkEMailBody">Message Body</span><br />
            <textarea id="txtEMailBody" style="WIDTH: 100%" rows="3" cols="20"></textarea>
         </div>
      </div>
      <div id="divUpload" style="DISPLAY: none">
         <form id="frmUpload" method="post" target="UploadWindow" enctype="multipart/form-data" action="" onSubmit="return CheckUpload();">
            <span fckLang="DlgLnkUpload">Upload</span><br />
            <input id="txtUploadFile" style="WIDTH: 100%" type="file" size="40" name="NewFile" /><br />
            <br />
            <input id="btnUpload" type="submit" value="Send it to the Server" fckLang="DlgLnkBtnUpload" />
            <script type="text/javascript">
               document.write( '<iframe name="UploadWindow" style="display: none" src="' + FCKTools.GetVoidUrl() + '"><\/iframe>' ) ;
            </script>
         </form>
      </div>
      <div id="divTarget" style="DISPLAY: none">
         <table cellspacing="0" cellpadding="0" width="100%" border="0">
            <tr>
               <td nowrap="nowrap">
                  <span fckLang="DlgLnkTarget">Target</span><br />
                  <select id="cmbTarget" onChange="SetTarget(this.value);">
                     <option value="" fckLang="DlgGenNotSet" selected="selected">&lt;not set&gt;</option>
                     <option value="frame" fckLang="DlgLnkTargetFrame">&lt;frame&gt;</option>
                     <option value="popup" fckLang="DlgLnkTargetPopup">&lt;popup window&gt;</option>
                     <option value="_blank" fckLang="DlgLnkTargetBlank">New Window (_blank)</option>
                     <option value="_top" fckLang="DlgLnkTargetTop">Topmost Window (_top)</option>
                     <option value="_self" fckLang="DlgLnkTargetSelf">Same Window (_self)</option>
                     <option value="_parent" fckLang="DlgLnkTargetParent">Parent Window (_parent)</option>
                  </select>
               </td>
               <td>&nbsp;</td>
               <td id="tdTargetFrame" nowrap="nowrap" width="100%">
                  <span fckLang="DlgLnkTargetFrameName">Target Frame Name</span><br />
                  <input id="txtTargetFrame" style="WIDTH: 100%" type="text" onKeyUp="OnTargetNameChange();"
                     onchange="OnTargetNameChange();" />
               </td>
               <td id="tdPopupName" style="DISPLAY: none" nowrap="nowrap" width="100%">
                  <span fckLang="DlgLnkPopWinName">Popup Window Name</span><br />
                  <input id="txtPopupName" style="WIDTH: 100%" type="text" />
               </td>
            </tr>
         </table>
         <br />
         <table id="tablePopupFeatures" style="DISPLAY: none" cellspacing="0" cellpadding="0" align="center"
            border="0">
            <tr>
               <td>
                  <span fckLang="DlgLnkPopWinFeat">Popup Window Features</span><br />
                  <table cellspacing="0" cellpadding="0" border="0">
                     <tr>
                        <td valign="top" nowrap="nowrap" width="50%">
                           <input id="chkPopupResizable" name="chkFeature" value="resizable" type="checkbox" /><label for="chkPopupResizable" fckLang="DlgLnkPopResize">Resizable</label><br />
                           <input id="chkPopupLocationBar" name="chkFeature" value="location" type="checkbox" /><label for="chkPopupLocationBar" fckLang="DlgLnkPopLocation">Location
                              Bar</label><br />
                           <input id="chkPopupManuBar" name="chkFeature" value="menubar" type="checkbox" /><label for="chkPopupManuBar" fckLang="DlgLnkPopMenu">Menu
                              Bar</label><br />
                           <input id="chkPopupScrollBars" name="chkFeature" value="scrollbars" type="checkbox" /><label for="chkPopupScrollBars" fckLang="DlgLnkPopScroll">Scroll
                              Bars</label>
                        </td>
                        <td></td>
                        <td valign="top" nowrap="nowrap" width="50%">
                           <input id="chkPopupStatusBar" name="chkFeature" value="status" type="checkbox" /><label for="chkPopupStatusBar" fckLang="DlgLnkPopStatus">Status
                              Bar</label><br />
                           <input id="chkPopupToolbar" name="chkFeature" value="toolbar" type="checkbox" /><label for="chkPopupToolbar" fckLang="DlgLnkPopToolbar">Toolbar</label><br />
                           <input id="chkPopupFullScreen" name="chkFeature" value="fullscreen" type="checkbox" /><label for="chkPopupFullScreen" fckLang="DlgLnkPopFullScrn">Full
                              Screen (IE)</label><br />
                           <input id="chkPopupDependent" name="chkFeature" value="dependent" type="checkbox" /><label for="chkPopupDependent" fckLang="DlgLnkPopDependent">Dependent
                              (Netscape)</label>
                        </td>
                     </tr>
                     <tr>
                        <td valign="top" nowrap="nowrap" width="50%">&nbsp;</td>
                        <td></td>
                        <td valign="top" nowrap="nowrap" width="50%"></td>
                     </tr>
                     <tr>
                        <td valign="top">
                           <table cellspacing="0" cellpadding="0" border="0">
                              <tr>
                                 <td nowrap="nowrap"><span fckLang="DlgLnkPopWidth">Width</span></td>
                                 <td>&nbsp;<input id="txtPopupWidth" type="text" maxlength="4" size="4" /></td>
                              </tr>
                              <tr>
                                 <td nowrap="nowrap"><span fckLang="DlgLnkPopHeight">Height</span></td>
                                 <td>&nbsp;<input id="txtPopupHeight" type="text" maxlength="4" size="4" /></td>
                              </tr>
                           </table>
                        </td>
                        <td>&nbsp;&nbsp;</td>
                        <td valign="top">
                           <table cellspacing="0" cellpadding="0" border="0">
                              <tr>
                                 <td nowrap="nowrap"><span fckLang="DlgLnkPopLeft">Left Position</span></td>
                                 <td>&nbsp;<input id="txtPopupLeft" type="text" maxlength="4" size="4" /></td>
                              </tr>
                              <tr>
                                 <td nowrap="nowrap"><span fckLang="DlgLnkPopTop">Top Position</span></td>
                                 <td>&nbsp;<input id="txtPopupTop" type="text" maxlength="4" size="4" /></td>
                              </tr>
                           </table>
                        </td>
                     </tr>
                  </table>
               </td>
            </tr>
         </table>
      </div>
      <div id="divAttribs" style="DISPLAY: none">
         <table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
            <tr>
               <td valign="top" width="50%">
                  <span fckLang="DlgGenId">Id</span><br />
                  <input id="txtAttId" style="WIDTH: 100%" type="text" />
               </td>
               <td width="1"></td>
               <td valign="top">
                  <table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
                     <tr>
                        <td width="60%">
                           <span fckLang="DlgGenLangDir">Language Direction</span><br />
                           <select id="cmbAttLangDir" style="WIDTH: 100%">
                              <option value="" fckLang="DlgGenNotSet" selected>&lt;not set&gt;</option>
                              <option value="ltr" fckLang="DlgGenLangDirLtr">Left to Right (LTR)</option>
                              <option value="rtl" fckLang="DlgGenLangDirRtl">Right to Left (RTL)</option>
                           </select>
                        </td>
                        <td width="1%">&nbsp;&nbsp;&nbsp;</td>
                        <td nowrap="nowrap"><span fckLang="DlgGenAccessKey">Access Key</span><br />
                           <input id="txtAttAccessKey" style="WIDTH: 100%" type="text" maxlength="1" size="1" />
                        </td>
                     </tr>
                  </table>
               </td>
            </tr>
            <tr>
               <td valign="top" width="50%">
                  <span fckLang="DlgGenName">Name</span><br />
                  <input id="txtAttName" style="WIDTH: 100%" type="text" />
               </td>
               <td width="1"></td>
               <td valign="top">
                  <table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
                     <tr>
                        <td width="60%">
                           <span fckLang="DlgGenLangCode">Language Code</span><br />
                           <input id="txtAttLangCode" style="WIDTH: 100%" type="text" />
                        </td>
                        <td width="1%">&nbsp;&nbsp;&nbsp;</td>
                        <td nowrap="nowrap">
                           <span fckLang="DlgGenTabIndex">Tab Index</span><br />
                           <input id="txtAttTabIndex" style="WIDTH: 100%" type="text" maxlength="5" size="5" />
                        </td>
                     </tr>
                  </table>
               </td>
            </tr>
            <tr>
               <td valign="top" width="50%">&nbsp;</td>
               <td width="1"></td>
               <td valign="top"></td>
            </tr>
            <tr>
               <td valign="top" width="50%">
                  <span fckLang="DlgGenTitle">Advisory Title</span><br />
                  <input id="txtAttTitle" style="WIDTH: 100%" type="text" />
               </td>
               <td width="1">&nbsp;&nbsp;&nbsp;</td>
               <td valign="top">
                  <span fckLang="DlgGenContType">Advisory Content Type</span><br />
                  <input id="txtAttContentType" style="WIDTH: 100%" type="text" />
               </td>
            </tr>
            <tr>
               <td valign="top">
                  <span fckLang="DlgGenClass">Stylesheet Classes</span><br />
                  <input id="txtAttClasses" style="WIDTH: 100%" type="text" />
               </td>
               <td></td>
               <td valign="top">
                  <span fckLang="DlgGenLinkCharset">Linked Resource Charset</span><br />
                  <input id="txtAttCharSet" style="WIDTH: 100%" type="text" />
               </td>
            </tr>
         </table>
         <table cellspacing="0" cellpadding="0" width="100%" align="center" border="0">
            <tr>
               <td>
                  <span fckLang="DlgGenStyle">Style</span><br />
                  <input id="txtAttStyle" style="WIDTH: 100%" type="text" />
               </td>
            </tr>
         </table>
      </div>
   </body>
</html>

        /*
        * FCKeditor - The text editor for Internet - http://www.fckeditor.net
        * Copyright (C) 2003-2008 Frederico Caldeira Knabben
        *
        * == BEGIN LICENSE ==
        *
        * Licensed under the terms of any of the following licenses at your
        * choice:
        *
        *  - GNU General Public License Version 2 or later (the "GPL")
        *    http://www.gnu.org/licenses/gpl.html
        *
        *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
        *    http://www.gnu.org/licenses/lgpl.html
        *
        *  - Mozilla Public License Version 1.1 or later (the "MPL")
        *    http://www.mozilla.org/MPL/MPL-1.1.html
        *
        * == END LICENSE ==
        *
        * Scripts related to the Link dialog window (see fck_link.html).
        */

        var dialog   = window.parent ;
        var oEditor = dialog.InnerDialogLoaded() ;

        var FCK         = oEditor.FCK ;
        var FCKLang      = oEditor.FCKLang ;
        var FCKConfig   = oEditor.FCKConfig ;
        var FCKRegexLib   = oEditor.FCKRegexLib ;
        var FCKTools   = oEditor.FCKTools ;

        //#### Dialog Tabs

        // Set the dialog tabs.
        dialog.AddTab( 'Info', FCKLang.DlgLnkInfoTab ) ;

        if ( !FCKConfig.LinkDlgHideTarget )
           dialog.AddTab( 'Target', FCKLang.DlgLnkTargetTab, true ) ;

        if ( FCKConfig.LinkUpload )
           dialog.AddTab( 'Upload', FCKLang.DlgLnkUpload, true ) ;

        if ( !FCKConfig.LinkDlgHideAdvanced )
           dialog.AddTab( 'Advanced', FCKLang.DlgAdvancedTag ) ;

        // Function called when a dialog tag is selected.
        function OnDialogTabChange( tabCode )
        {
           ShowE('divInfo'      , ( tabCode == 'Info' ) ) ;
           ShowE('divTarget'   , ( tabCode == 'Target' ) ) ;
           ShowE('divUpload'   , ( tabCode == 'Upload' ) ) ;
           ShowE('divAttribs'   , ( tabCode == 'Advanced' ) ) ;

           dialog.SetAutoSize( true ) ;
        }

        //#### Regular Expressions library.
        var oRegex = new Object() ;

        oRegex.UriProtocol = /^(((http|https|ftp|news):\/\/)|mailto:)/gi ;

        oRegex.UrlOnChangeProtocol = /^(http|https|ftp|news):\/\/(?=.)/gi ;

        oRegex.UrlOnChangeTestOther = /^((javascript:)|[#\/\.])/gi ;

        oRegex.ReserveTarget = /^_(blank|self|top|parent)$/i ;

        oRegex.PopupUri = /^javascript:void\(\s*window.open\(\s*'([^']+)'\s*,\s*(?:'([^']*)'|null)\s*,\s*'([^']*)'\s*\)\s*\)\s*$/ ;

        // Accessible popups
        oRegex.OnClickPopup = /^\s*on[cC]lick="\s*window.open\(\s*this\.href\s*,\s*(?:'([^']*)'|null)\s*,\s*'([^']*)'\s*\)\s*;\s*return\s*false;*\s*"$/ ;

        oRegex.PopupFeatures = /(?:^|,)([^=]+)=(\d+|yes|no)/gi ;

        //#### Parser Functions

        var oParser = new Object() ;

        // This method simply returns the two inputs in numerical order. You can even
        // provide strings, as the method would parseInt() the values.
        oParser.SortNumerical = function(a, b)
        {
           return parseInt( a, 10 ) - parseInt( b, 10 ) ;
        }

        oParser.ParseEMailParams = function(sParams)
        {
           // Initialize the oEMailParams object.
           var oEMailParams = new Object() ;
           oEMailParams.Subject = '' ;
           oEMailParams.Body = '' ;

           var aMatch = sParams.match( /(^|^\?|&)subject=([^&]+)/i ) ;
           if ( aMatch ) oEMailParams.Subject = decodeURIComponent( aMatch[2] ) ;

           aMatch = sParams.match( /(^|^\?|&)body=([^&]+)/i ) ;
           if ( aMatch ) oEMailParams.Body = decodeURIComponent( aMatch[2] ) ;

           return oEMailParams ;
        }

        // This method returns either an object containing the email info, or FALSE
        // if the parameter is not an email link.
        oParser.ParseEMailUri = function( sUrl )
        {
           // Initializes the EMailInfo object.
           var oEMailInfo = new Object() ;
           oEMailInfo.Address = '' ;
           oEMailInfo.Subject = '' ;
           oEMailInfo.Body = '' ;

           var aLinkInfo = sUrl.match( /^(\w+):(.*)$/ ) ;
           if ( aLinkInfo && aLinkInfo[1] == 'mailto' )
           {
              // This seems to be an unprotected email link.
              var aParts = aLinkInfo[2].match( /^([^\?]+)\??(.+)?/ ) ;
              if ( aParts )
              {
                 // Set the e-mail address.
                 oEMailInfo.Address = aParts[1] ;

                 // Look for the optional e-mail parameters.
                 if ( aParts[2] )
                 {
                    var oEMailParams = oParser.ParseEMailParams( aParts[2] ) ;
                    oEMailInfo.Subject = oEMailParams.Subject ;
                    oEMailInfo.Body = oEMailParams.Body ;
                 }
              }
              return oEMailInfo ;
           }
           else if ( aLinkInfo && aLinkInfo[1] == 'javascript' )
           {
              // This may be a protected email.

              // Try to match the url against the EMailProtectionFunction.
              var func = FCKConfig.EMailProtectionFunction ;
              if ( func != null )
              {
                 try
                 {
                    // Escape special chars.
                    func = func.replace( /([\/^$*+.?()\[\]])/g, '\\$1' ) ;

                    // Define the possible keys.
                    var keys = new Array('NAME', 'DOMAIN', 'SUBJECT', 'BODY') ;

                    // Get the order of the keys (hold them in the array <pos>) and
                    // the function replaced by regular expression patterns.
                    var sFunc = func ;
                    var pos = new Array() ;
                    for ( var i = 0 ; i < keys.length ; i ++ )
                    {
                       var rexp = new RegExp( keys[i] ) ;
                       var p = func.search( rexp ) ;
                       if ( p >= 0 )
                       {
                          sFunc = sFunc.replace( rexp, '\'([^\']*)\'' ) ;
                          pos[pos.length] = p + ':' + keys[i] ;
                       }
                    }

                    // Sort the available keys.
                    pos.sort( oParser.SortNumerical ) ;

                    // Replace the excaped single quotes in the url, such they do
                    // not affect the regexp afterwards.
                    aLinkInfo[2] = aLinkInfo[2].replace( /\\'/g, '###SINGLE_QUOTE###' ) ;

                    // Create the regexp and execute it.
                    var rFunc = new RegExp( '^' + sFunc + '$' ) ;
                    var aMatch = rFunc.exec( aLinkInfo[2] ) ;
                    if ( aMatch )
                    {
                       var aInfo = new Array();
                       for ( var i = 1 ; i < aMatch.length ; i ++ )
                       {
                          var k = pos[i-1].match(/^\d+:(.+)$/) ;
                          aInfo[k[1]] = aMatch[i].replace(/###SINGLE_QUOTE###/g, '\'') ;
                       }

                       // Fill the EMailInfo object that will be returned
                       oEMailInfo.Address = aInfo['NAME'] + '@' + aInfo['DOMAIN'] ;
                       oEMailInfo.Subject = decodeURIComponent( aInfo['SUBJECT'] ) ;
                       oEMailInfo.Body = decodeURIComponent( aInfo['BODY'] ) ;

                       return oEMailInfo ;
                    }
                 }
                 catch (e)
                 {
                 }
              }

              // Try to match the email against the encode protection.
              var aMatch = aLinkInfo[2].match( /^location\.href='mailto:'\+(String\.fromCharCode\([\d,]+\))\+'(.*)'$/ ) ;
              if ( aMatch )
              {
                 // The link is encoded
                 oEMailInfo.Address = eval( aMatch[1] ) ;
                 if ( aMatch[2] )
                 {
                    var oEMailParams = oParser.ParseEMailParams( aMatch[2] ) ;
                    oEMailInfo.Subject = oEMailParams.Subject ;
                    oEMailInfo.Body = oEMailParams.Body ;
                 }
                 return oEMailInfo ;
              }
           }
           return false;
        }

        oParser.CreateEMailUri = function( address, subject, body )
        {
           // Switch for the EMailProtection setting.
           switch ( FCKConfig.EMailProtection )
           {
              case 'function' :
                 var func = FCKConfig.EMailProtectionFunction ;
                 if ( func == null )
                 {
                    if ( FCKConfig.Debug )
                    {
                       alert('EMailProtection alert!\nNo function defined. Please set "FCKConfig.EMailProtectionFunction"') ;
                    }
                    return '';
                 }

                 // Split the email address into name and domain parts.
                 var aAddressParts = address.split( '@', 2 ) ;
                 if ( aAddressParts[1] == undefined )
                 {
                    aAddressParts[1] = '' ;
                 }

                 // Replace the keys by their values (embedded in single quotes).
                 func = func.replace(/NAME/g, "'" + aAddressParts[0].replace(/'/g, '\\\'') + "'") ;
                 func = func.replace(/DOMAIN/g, "'" + aAddressParts[1].replace(/'/g, '\\\'') + "'") ;
                 func = func.replace(/SUBJECT/g, "'" + encodeURIComponent( subject ).replace(/'/g, '\\\'') + "'") ;
                 func = func.replace(/BODY/g, "'" + encodeURIComponent( body ).replace(/'/g, '\\\'') + "'") ;

                 return 'javascript:' + func ;

              case 'encode' :
                 var aParams = [] ;
                 var aAddressCode = [] ;

                 if ( subject.length > 0 )
                    aParams.push( 'subject='+ encodeURIComponent( subject ) ) ;
                 if ( body.length > 0 )
                    aParams.push( 'body=' + encodeURIComponent( body ) ) ;
                 for ( var i = 0 ; i < address.length ; i++ )
                    aAddressCode.push( address.charCodeAt( i ) ) ;

                 return 'javascript:location.href=\'mailto:\'+String.fromCharCode(' + aAddressCode.join( ',' ) + ')+\'?' + aParams.join( '&' ) + '\'' ;
           }

           // EMailProtection 'none'

           var sBaseUri = 'mailto:' + address ;

           var sParams = '' ;

           if ( subject.length > 0 )
              sParams = '?subject=' + encodeURIComponent( subject ) ;

           if ( body.length > 0 )
           {
              sParams += ( sParams.length == 0 ? '?' : '&' ) ;
              sParams += 'body=' + encodeURIComponent( body ) ;
           }

           return sBaseUri + sParams ;
        }

        //#### Initialization Code

        // oLink: The actual selected link in the editor.
        var oLink = dialog.Selection.GetSelection().MoveToAncestorNode( 'A' ) ;
        if ( oLink )
           FCK.Selection.SelectNode( oLink ) ;

        window.onload = function()
        {
           // Translate the dialog box texts.
           oEditor.FCKLanguageManager.TranslatePage(document) ;

           // Fill the Anchor Names and Ids combos.
           LoadAnchorNamesAndIds() ;

           // Load the selected link information (if any).
           LoadSelection() ;

           // Update the dialog box.
           SetLinkType( GetE('cmbLinkType').value ) ;

           // Show/Hide the "Browse Server" button.
           GetE('divBrowseServer').style.display = FCKConfig.LinkBrowser ? '' : 'none' ;

           // Show the initial dialog content.
           GetE('divInfo').style.display = '' ;

           // Set the actual uploader URL.
           if ( FCKConfig.LinkUpload )
              GetE('frmUpload').action = FCKConfig.LinkUploadURL ;

           // Set the default target (from configuration).
           SetDefaultTarget() ;

           // Activate the "OK" button.
           dialog.SetOkButton( true ) ;

           // Select the first field.
           switch( GetE('cmbLinkType').value )
           {
              // - - - - - - - - - - - - - - - - - - - - - - - - - - - - // custom code added for internal linking
              case 'internal' :
                 SelectField( 'txtUrlInternal' ) ;
                 break ;
              // - - - - - - - - - - - - - - - - - - - - - - - - - - - - // edited: 1.3.09
              case 'url' :
                 SelectField( 'txtUrl' ) ;
                 break ;
              case 'email' :
                 SelectField( 'txtEMailAddress' ) ;
                 break ;
              case 'anchor' :
                 if ( GetE('divSelAnchor').style.display != 'none' )
                    SelectField( 'cmbAnchorName' ) ;
                 else
                    SelectField( 'cmbLinkType' ) ;
           }
        }

        var bHasAnchors ;

        function LoadAnchorNamesAndIds()
        {
           // Since version 2.0, the anchors are replaced in the DOM by IMGs so the user see the icon
           // to edit them. So, we must look for that images now.
           var aAnchors = new Array() ;
           var i ;
           var oImages = oEditor.FCK.EditorDocument.getElementsByTagName( 'IMG' ) ;
           for( i = 0 ; i < oImages.length ; i++ )
           {
              if ( oImages[i].getAttribute('_fckanchor') )
                 aAnchors[ aAnchors.length ] = oEditor.FCK.GetRealElement( oImages[i] ) ;
           }

           // Add also real anchors
           var oLinks = oEditor.FCK.EditorDocument.getElementsByTagName( 'A' ) ;
           for( i = 0 ; i < oLinks.length ; i++ )
           {
              if ( oLinks[i].name && ( oLinks[i].name.length > 0 ) )
                 aAnchors[ aAnchors.length ] = oLinks[i] ;
           }

           var aIds = FCKTools.GetAllChildrenIds( oEditor.FCK.EditorDocument.body ) ;

           bHasAnchors = ( aAnchors.length > 0 || aIds.length > 0 ) ;

           for ( i = 0 ; i < aAnchors.length ; i++ )
           {
              var sName = aAnchors[i].name ;
              if ( sName && sName.length > 0 )
                 FCKTools.AddSelectOption( GetE('cmbAnchorName'), sName, sName ) ;
           }

           for ( i = 0 ; i < aIds.length ; i++ )
           {
              FCKTools.AddSelectOption( GetE('cmbAnchorId'), aIds[i], aIds[i] ) ;
           }

           ShowE( 'divSelAnchor'   , bHasAnchors ) ;
           ShowE( 'divNoAnchor'   , !bHasAnchors ) ;
        }

        function LoadSelection()
        {
           if ( !oLink ) return ;

           var sType = 'url' ;

           // Get the actual Link href.
           var sHRef = oLink.getAttribute( '_fcksavedurl' ) ;
           if ( sHRef == null )
              sHRef = oLink.getAttribute( 'href' , 2 ) || '' ;

           // Look for a popup javascript link.
           var oPopupMatch = oRegex.PopupUri.exec( sHRef ) ;
           if( oPopupMatch )
           {
              GetE('cmbTarget').value = 'popup' ;
              sHRef = oPopupMatch[1] ;
              FillPopupFields( oPopupMatch[2], oPopupMatch[3] ) ;
              SetTarget( 'popup' ) ;
           }

           // Accessible popups, the popup data is in the onclick attribute
           if ( !oPopupMatch )
           {
              var onclick = oLink.getAttribute( 'onclick_fckprotectedatt' ) ;
              if ( onclick )
              {
                 // Decode the protected string
                 onclick = decodeURIComponent( onclick ) ;

                 oPopupMatch = oRegex.OnClickPopup.exec( onclick ) ;
                 if( oPopupMatch )
                 {
                    GetE( 'cmbTarget' ).value = 'popup' ;
                    FillPopupFields( oPopupMatch[1], oPopupMatch[2] ) ;
                    SetTarget( 'popup' ) ;
                 }
              }
           }

           // Search for the protocol.
           var sProtocol = oRegex.UriProtocol.exec( sHRef ) ;

           // Search for a protected email link.
           var oEMailInfo = oParser.ParseEMailUri( sHRef );

           if ( oEMailInfo )
           {
              sType = 'email' ;

              GetE('txtEMailAddress').value = oEMailInfo.Address ;
              GetE('txtEMailSubject').value = oEMailInfo.Subject ;
              GetE('txtEMailBody').value    = oEMailInfo.Body ;
           }
           else if ( sProtocol )
           {
              sProtocol = sProtocol[0].toLowerCase() ;
              GetE('cmbLinkProtocol').value = sProtocol ;

              // Remove the protocol and get the remaining URL.
              var sUrl = sHRef.replace( oRegex.UriProtocol, '' ) ;
              sType = 'url' ;
              GetE('txtUrl').value = sUrl ;
           }
           else if ( sHRef.substr(0,1) == '#' && sHRef.length > 1 )   // It is an anchor link.
           {
              sType = 'anchor' ;
              GetE('cmbAnchorName').value = GetE('cmbAnchorId').value = sHRef.substr(1) ;
           }
           else               // It is another type of link.
           {
              sType = 'url' ;

              GetE('cmbLinkProtocol').value = '' ;
              GetE('txtUrl').value = sHRef ;
           }

           if ( !oPopupMatch )
           {
              // Get the target.
              var sTarget = oLink.target ;

              if ( sTarget && sTarget.length > 0 )
              {
                 if ( oRegex.ReserveTarget.test( sTarget ) )
                 {
                    sTarget = sTarget.toLowerCase() ;
                    GetE('cmbTarget').value = sTarget ;
                 }
                 else
                    GetE('cmbTarget').value = 'frame' ;
                 GetE('txtTargetFrame').value = sTarget ;
              }
           }

           // Get Advances Attributes
           GetE('txtAttId').value         = oLink.id ;
           GetE('txtAttName').value      = oLink.name ;
           GetE('cmbAttLangDir').value      = oLink.dir ;
           GetE('txtAttLangCode').value   = oLink.lang ;
           GetE('txtAttAccessKey').value   = oLink.accessKey ;
           GetE('txtAttTabIndex').value   = oLink.tabIndex <= 0 ? '' : oLink.tabIndex ;
           GetE('txtAttTitle').value      = oLink.title ;
           GetE('txtAttContentType').value   = oLink.type ;
           GetE('txtAttCharSet').value      = oLink.charset ;

           var sClass ;
           if ( oEditor.FCKBrowserInfo.IsIE )
           {
              sClass   = oLink.getAttribute('className',2) || '' ;
              // Clean up temporary classes for internal use:
              sClass = sClass.replace( FCKRegexLib.FCK_Class, '' ) ;

              GetE('txtAttStyle').value   = oLink.style.cssText ;
           }
           else
           {
              sClass   = oLink.getAttribute('class',2) || '' ;
              GetE('txtAttStyle').value   = oLink.getAttribute('style',2) || '' ;
           }
           GetE('txtAttClasses').value   = sClass ;

           // Update the Link type combo.
           GetE('cmbLinkType').value = sType ;
        }

        //#### Link type selection.
        function SetLinkType( linkType )
        {
              // - - - - - - - - - - - - - - - - - - - - - - - - - - - - // custom code added for internal linking
           ShowE('divLinkTypeUrlInternal'      , (linkType == 'internal') ) ;
              // - - - - - - - - - - - - - - - - - - - - - - - - - - - - //

           ShowE('divLinkTypeUrl'            , (linkType == 'url') ) ;
           ShowE('divLinkTypeAnchor'         , (linkType == 'anchor') ) ;
           ShowE('divLinkTypeEMail'         , (linkType == 'email') ) ;

           if ( !FCKConfig.LinkDlgHideTarget )
              dialog.SetTabVisibility( 'Target'   , (linkType == 'url') ) ;

           if ( FCKConfig.LinkUpload )
              dialog.SetTabVisibility( 'Upload'   , (linkType == 'url') ) ;

           if ( !FCKConfig.LinkDlgHideAdvanced )
              dialog.SetTabVisibility( 'Advanced'   , (linkType != 'anchor' || bHasAnchors) ) ;

           if ( linkType == 'email' )
              dialog.SetAutoSize( true ) ;
        }

        //#### Target type selection.
        function SetTarget( targetType )
        {
           GetE('tdTargetFrame').style.display   = ( targetType == 'popup' ? 'none' : '' ) ;
           GetE('tdPopupName').style.display   =
           GetE('tablePopupFeatures').style.display = ( targetType == 'popup' ? '' : 'none' ) ;

           switch ( targetType )
           {
              case "_blank" :
              case "_self" :
              case "_parent" :
              case "_top" :
                 GetE('txtTargetFrame').value = targetType ;
                 break ;
              case "" :
                 GetE('txtTargetFrame').value = '' ;
                 break ;
           }

           if ( targetType == 'popup' )
              dialog.SetAutoSize( true ) ;
        }

        //#### Called while the user types the URL.
        function OnUrlChange()
        {
           var sUrl = GetE('txtUrl').value ;
           var sProtocol = oRegex.UrlOnChangeProtocol.exec( sUrl ) ;

           if ( sProtocol )
           {
              sUrl = sUrl.substr( sProtocol[0].length ) ;
              GetE('txtUrl').value = sUrl ;
              GetE('cmbLinkProtocol').value = sProtocol[0].toLowerCase() ;
           }
           else if ( oRegex.UrlOnChangeTestOther.test( sUrl ) )
           {
              GetE('cmbLinkProtocol').value = '' ;
           }
        }

        //#### Called while the user types the target name.
        function OnTargetNameChange()
        {
           var sFrame = GetE('txtTargetFrame').value ;

           if ( sFrame.length == 0 )
              GetE('cmbTarget').value = '' ;
           else if ( oRegex.ReserveTarget.test( sFrame ) )
              GetE('cmbTarget').value = sFrame.toLowerCase() ;
           else
              GetE('cmbTarget').value = 'frame' ;
        }

        // Accessible popups
        function BuildOnClickPopup()
        {
           var sWindowName = "'" + GetE('txtPopupName').value.replace(/\W/gi, "") + "'" ;

           var sFeatures = '' ;
           var aChkFeatures = document.getElementsByName( 'chkFeature' ) ;
           for ( var i = 0 ; i < aChkFeatures.length ; i++ )
           {
              if ( i > 0 ) sFeatures += ',' ;
              sFeatures += aChkFeatures[i].value + '=' + ( aChkFeatures[i].checked ? 'yes' : 'no' ) ;
           }

           if ( GetE('txtPopupWidth').value.length > 0 )   sFeatures += ',width=' + GetE('txtPopupWidth').value ;
           if ( GetE('txtPopupHeight').value.length > 0 )   sFeatures += ',height=' + GetE('txtPopupHeight').value ;
           if ( GetE('txtPopupLeft').value.length > 0 )   sFeatures += ',left=' + GetE('txtPopupLeft').value ;
           if ( GetE('txtPopupTop').value.length > 0 )      sFeatures += ',top=' + GetE('txtPopupTop').value ;

           if ( sFeatures != '' )
              sFeatures = sFeatures + ",status" ;

           return ( "window.open(this.href," + sWindowName + ",'" + sFeatures + "'); return false" ) ;
        }

        //#### Fills all Popup related fields.
        function FillPopupFields( windowName, features )
        {
           if ( windowName )
              GetE('txtPopupName').value = windowName ;

           var oFeatures = new Object() ;
           var oFeaturesMatch ;
           while( ( oFeaturesMatch = oRegex.PopupFeatures.exec( features ) ) != null )
           {
              var sValue = oFeaturesMatch[2] ;
              if ( sValue == ( 'yes' || '1' ) )
                 oFeatures[ oFeaturesMatch[1] ] = true ;
              else if ( ! isNaN( sValue ) && sValue != 0 )
                 oFeatures[ oFeaturesMatch[1] ] = sValue ;
           }

           // Update all features check boxes.
           var aChkFeatures = document.getElementsByName('chkFeature') ;
           for ( var i = 0 ; i < aChkFeatures.length ; i++ )
           {
              if ( oFeatures[ aChkFeatures[i].value ] )
                 aChkFeatures[i].checked = true ;
           }

           // Update position and size text boxes.
           if ( oFeatures['width'] )   GetE('txtPopupWidth').value      = oFeatures['width'] ;
           if ( oFeatures['height'] )   GetE('txtPopupHeight').value   = oFeatures['height'] ;
           if ( oFeatures['left'] )   GetE('txtPopupLeft').value      = oFeatures['left'] ;
           if ( oFeatures['top'] )      GetE('txtPopupTop').value      = oFeatures['top'] ;
        }

        //#### The OK button was hit.
        function Ok()
        {
           var sUri, sInnerHtml ;
           oEditor.FCKUndo.SaveUndoStep() ;

           switch ( GetE('cmbLinkType').value )
           {


              // - - - - - - - - - - - - - - - - - - - - - - - - - - - - // custom code added for internal linking
              case 'internal' :
                 sUri = GetE('txtUrlInternal').value ;

                 if ( sUri.length == 0 )
                 {
                    alert( FCKLang.DlnLnkMsgNoUrl ) ;
                    return false ;
                 }

                 //sUri = GetE('cmbLinkProtocol').value + sUri ;

                 break ;
              // - - - - - - - - - - - - - - - - - - - - - - - - - - - - //

              case 'url' :
                 sUri = GetE('txtUrl').value ;

                 if ( sUri.length == 0 )
                 {
                    alert( FCKLang.DlnLnkMsgNoUrl ) ;
                    return false ;
                 }

                 sUri = GetE('cmbLinkProtocol').value + sUri ;

                 break ;

              case 'email' :
                 sUri = GetE('txtEMailAddress').value ;

                 if ( sUri.length == 0 )
                 {
                    alert( FCKLang.DlnLnkMsgNoEMail ) ;
                    return false ;
                 }

                 sUri = oParser.CreateEMailUri(
                    sUri,
                    GetE('txtEMailSubject').value,
                    GetE('txtEMailBody').value ) ;
                 break ;

              case 'anchor' :
                 var sAnchor = GetE('cmbAnchorName').value ;
                 if ( sAnchor.length == 0 ) sAnchor = GetE('cmbAnchorId').value ;

                 if ( sAnchor.length == 0 )
                 {
                    alert( FCKLang.DlnLnkMsgNoAnchor ) ;
                    return false ;
                 }

                 sUri = '#' + sAnchor ;
                 break ;
           }

           // If no link is selected, create a new one (it may result in more than one link creation - #220).
           var aLinks = oLink ? [ oLink ] : oEditor.FCK.CreateLink( sUri, true ) ;

           // If no selection, no links are created, so use the uri as the link text (by dom, 2006-05-26)
           var aHasSelection = ( aLinks.length > 0 ) ;
           if ( !aHasSelection )
           {
              sInnerHtml = sUri;

              // Built a better text for empty links.
              switch ( GetE('cmbLinkType').value )
              {
                 // anchor: use old behavior --> return true
                 case 'anchor':
                    sInnerHtml = sInnerHtml.replace( /^#/, '' ) ;
                    break ;

                 // url: try to get path
                 case 'url':
                    var oLinkPathRegEx = new RegExp("//?([^?\"']+)([?].*)?$") ;
                    var asLinkPath = oLinkPathRegEx.exec( sUri ) ;
                    if (asLinkPath != null)
                       sInnerHtml = asLinkPath[1];  // use matched path
                    break ;

                 // mailto: try to get email address
                 case 'email':
                    sInnerHtml = GetE('txtEMailAddress').value ;
                    break ;
              }

              // Create a new (empty) anchor.
              aLinks = [ oEditor.FCK.InsertElement( 'a' ) ] ;
           }

           for ( var i = 0 ; i < aLinks.length ; i++ )
           {
              oLink = aLinks[i] ;

              if ( aHasSelection )
                 sInnerHtml = oLink.innerHTML ;      // Save the innerHTML (IE changes it if it is like an URL).

              oLink.href = sUri ;
              SetAttribute( oLink, '_fcksavedurl', sUri ) ;

              var onclick;
              // Accessible popups
              if( GetE('cmbTarget').value == 'popup' )
              {
                 onclick = BuildOnClickPopup() ;
                 // Encode the attribute
                 onclick = encodeURIComponent( " onclick=\"" + onclick + "\"" )  ;
                 SetAttribute( oLink, 'onclick_fckprotectedatt', onclick ) ;
              }
              else
              {
                 // Check if the previous onclick was for a popup:
                 // In that case remove the onclick handler.
                 onclick = oLink.getAttribute( 'onclick_fckprotectedatt' ) ;
                 if ( onclick )
                 {
                    // Decode the protected string
                    onclick = decodeURIComponent( onclick ) ;

                    if( oRegex.OnClickPopup.test( onclick ) )
                       SetAttribute( oLink, 'onclick_fckprotectedatt', '' ) ;
                 }
              }

              oLink.innerHTML = sInnerHtml ;      // Set (or restore) the innerHTML

              // Target
              if( GetE('cmbTarget').value != 'popup' )
                 SetAttribute( oLink, 'target', GetE('txtTargetFrame').value ) ;
              else
                 SetAttribute( oLink, 'target', null ) ;

              // Let's set the "id" only for the first link to avoid duplication.
              if ( i == 0 )
                 SetAttribute( oLink, 'id', GetE('txtAttId').value ) ;

              // Advances Attributes
              SetAttribute( oLink, 'name'      , GetE('txtAttName').value ) ;
              SetAttribute( oLink, 'dir'      , GetE('cmbAttLangDir').value ) ;
              SetAttribute( oLink, 'lang'      , GetE('txtAttLangCode').value ) ;
              SetAttribute( oLink, 'accesskey', GetE('txtAttAccessKey').value ) ;
              SetAttribute( oLink, 'tabindex'   , ( GetE('txtAttTabIndex').value > 0 ? GetE('txtAttTabIndex').value : null ) ) ;
              SetAttribute( oLink, 'title'   , GetE('txtAttTitle').value ) ;
              SetAttribute( oLink, 'type'      , GetE('txtAttContentType').value ) ;
              SetAttribute( oLink, 'charset'   , GetE('txtAttCharSet').value ) ;

              if ( oEditor.FCKBrowserInfo.IsIE )
              {
                 var sClass = GetE('txtAttClasses').value ;
                 // If it's also an anchor add an internal class
                 if ( GetE('txtAttName').value.length != 0 )
                    sClass += ' FCK__AnchorC' ;
                 SetAttribute( oLink, 'className', sClass ) ;

                 oLink.style.cssText = GetE('txtAttStyle').value ;
              }
              else
              {
                 SetAttribute( oLink, 'class', GetE('txtAttClasses').value ) ;
                 SetAttribute( oLink, 'style', GetE('txtAttStyle').value ) ;
              }
           }

           // Select the (first) link.
           oEditor.FCKSelection.SelectNode( aLinks[0] );

           return true ;
        }

        function BrowseServer()
        {
           OpenFileBrowser( FCKConfig.LinkBrowserURL, FCKConfig.LinkBrowserWindowWidth, FCKConfig.LinkBrowserWindowHeight ) ;
        }

        function SetUrl( url )
        {
           GetE('txtUrl').value = url ;
           OnUrlChange() ;
           dialog.SetSelectedTab( 'Info' ) ;
        }

        function OnUploadCompleted( errorNumber, fileUrl, fileName, customMsg )
        {
           // Remove animation
           window.parent.Throbber.Hide() ;
           GetE( 'divUpload' ).style.display  = '' ;

           switch ( errorNumber )
           {
              case 0 :   // No errors
                 alert( 'Your file has been successfully uploaded' ) ;
                 break ;
              case 1 :   // Custom error
                 alert( customMsg ) ;
                 return ;
              case 101 :   // Custom warning
                 alert( customMsg ) ;
                 break ;
              case 201 :
                 alert( 'A file with the same name is already available. The uploaded file has been renamed to "' + fileName + '"' ) ;
                 break ;
              case 202 :
                 alert( 'Invalid file type' ) ;
                 return ;
              case 203 :
                 alert( "Security error. You probably don't have enough permissions to upload. Please check your server." ) ;
                 return ;
              case 500 :
                 alert( 'The connector is disabled' ) ;
                 break ;
              default :
                 alert( 'Error on file upload. Error number: ' + errorNumber ) ;
                 return ;
           }

           SetUrl( fileUrl ) ;
           GetE('frmUpload').reset() ;
        }

        var oUploadAllowedExtRegex   = new RegExp( FCKConfig.LinkUploadAllowedExtensions, 'i' ) ;
        var oUploadDeniedExtRegex   = new RegExp( FCKConfig.LinkUploadDeniedExtensions, 'i' ) ;

        function CheckUpload()
        {
           var sFile = GetE('txtUploadFile').value ;

           if ( sFile.length == 0 )
           {
              alert( 'Please select a file to upload' ) ;
              return false ;
           }

           if ( ( FCKConfig.LinkUploadAllowedExtensions.length > 0 && !oUploadAllowedExtRegex.test( sFile ) ) ||
              ( FCKConfig.LinkUploadDeniedExtensions.length > 0 && oUploadDeniedExtRegex.test( sFile ) ) )
           {
              OnUploadCompleted( 202 ) ;
              return false ;
           }

           // Show animation
           window.parent.Throbber.Show( 100 ) ;
           GetE( 'divUpload' ).style.display  = 'none' ;

           return true ;
        }

        function SetDefaultTarget()
        {
           var target = FCKConfig.DefaultLinkTarget || '' ;

           if ( oLink || target.length == 0 )
              return ;

           switch ( target )
           {
              case '_blank' :
              case '_self' :
              case '_parent' :
              case '_top' :
                 GetE('cmbTarget').value = target ;
                 break ;
              default :
                 GetE('cmbTarget').value = 'frame' ;
                 break ;
           }

           GetE('txtTargetFrame').value = target ;
        }