*** Prefs.pm.old	Sun Jan  5 02:36:32 2003
--- Prefs.pm	Tue May 13 22:55:32 2003
***************
*** 113,118 ****
--- 113,124 ----
      $theValue =~ s/([^\\])\\n/$1\n/go;      # replace \n by new line
      $theValue =~ s/([^\\])\\\\n/$1\\n/go;   # replace \\n by \n
      $theValue =~ s/`//go;                   # filter out dangerous chars
+     my $oldValue;
+     do {
+       $oldValue = $theValue;
+       &handlePreferencesTags($theValue);
+       &TWiki::handleInternalTags( $theValue, $TWiki::topicName, $TWiki::webName );
+     } while ($oldValue ne $theValue);
      my $x;
      my $found = 0;
      for( $x = 0; $x < @prefsKeys; $x++ ) {
***************
*** 190,196 ****
          # search the default web
          for( $x = 0; $x < @prefsKeys; $x++ ) {
              if( $prefsKeys[$x] eq $theKey ) {
!                 return $prefsValues[$x];
              }
          }
      } elsif( &TWiki::Store::webExists( $theWeb ) ) {
--- 196,202 ----
          # search the default web
          for( $x = 0; $x < @prefsKeys; $x++ ) {
              if( $prefsKeys[$x] eq $theKey ) {
! 		return $prefsValues[$x];
              }
          }
      } elsif( &TWiki::Store::webExists( $theWeb ) ) {
***************
*** 210,216 ****
          }
          for( $x = 0; $x < @altPrefsKeys; $x++ ) {
              if( $altPrefsKeys[$x] eq $theKey ) {
!                 return $altPrefsValues[$x];
              }
          }
      }
--- 216,222 ----
          }
          for( $x = 0; $x < @altPrefsKeys; $x++ ) {
              if( $altPrefsKeys[$x] eq $theKey ) {
! 		return $altPrefsValues[$x];
              }
          }
      }