===================================================================
RCS file: RCS/TWiki.pm,v
retrieving revision 1.1
diff -c -r1.1 TWiki.pm
*** TWiki.pm	2001/11/23 01:16:50	1.1
--- TWiki.pm	2001/11/23 03:58:11
***************
*** 66,72 ****
          $doLogTopicView $doLogTopicEdit $doLogTopicSave $doLogRename
          $doLogTopicAttach $doLogTopicUpload $doLogTopicRdiff
          $doLogTopicChanges $doLogTopicSearch $doLogRegistration
!         $disableAllPlugins
          @isoMonth $TranslationToken $code @code $depth %mon2num
          $newTopicFontColor $newTopicBgColor
          $headerPatternDa $headerPatternSp $headerPatternHt
--- 66,72 ----
          $doLogTopicView $doLogTopicEdit $doLogTopicSave $doLogRename
          $doLogTopicAttach $doLogTopicUpload $doLogTopicRdiff
          $doLogTopicChanges $doLogTopicSearch $doLogRegistration
!         $disableAllPlugins $targetWindowForEdit
          @isoMonth $TranslationToken $code @code $depth %mon2num
          $newTopicFontColor $newTopicBgColor
          $headerPatternDa $headerPatternSp $headerPatternHt
***************
*** 224,229 ****
--- 224,236 ----
      $code="";
      @code= ();
  
+     # control edit and create windows
+     if( &TWiki::Prefs::getPreferencesValue("NEWWINDOWFOREDIT") ) {
+ 	$targetWindowForEdit = "target=\"_blank\"";
+     } else {
+ 	$targetWindowForEdit = "";
+     }
+ 
      # Add background color and font color (AlWilliams - 18 Sep 2000)
      # PTh: Moved from interalLink to initialize ('cause of performance)
      $newTopicBgColor = &TWiki::Prefs::getPreferencesValue("NEWTOPICBGCOLOR");
***************
*** 1298,1303 ****
--- 1305,1311 ----
      $_[0] =~ s/%STOPINCLUDE%//go;
      $_[0] =~ s/%SEARCH{(.*?)}%/&handleSearchWeb($1)/geo;
      $_[0] =~ s/%METASEARCH{(.*?)}%/&handleMetaSearch($1)/geo;
+     $_[0] =~ s/%TARGETWINDOWFOREDIT%/$targetWindowForEdit/go;
  }
  
  # =========================
***************
*** 1687,1693 ****
      } elsif( $doLink ) {
          $text .= "<span style='background : $newTopicBgColor;'>"
                .  "<font color=\"$newTopicFontColor\">$theLinkText</font></span>"
!               .  "<a href=\"$scriptUrlPath/edit$scriptSuffix/$theWeb/$theTopic?topicparent=$webName.$topicName\">?</a>";
          return $text;
  
      } else {
--- 1695,1702 ----
      } elsif( $doLink ) {
          $text .= "<span style='background : $newTopicBgColor;'>"
                .  "<font color=\"$newTopicFontColor\">$theLinkText</font></span>"
!               .  "<a href=\"$scriptUrlPath/edit$scriptSuffix/$theWeb/$theTopic?topicparent=$webName.$topicName\" "
! 	      .  $targetWindowForEdit . ">?</a>";
          return $text;
  
      } else {