*** /tmp/SessionPlugin.pm	Wed Aug  1 11:55:06 2001
--- SessionPlugin.pm	Sat Apr 20 16:41:10 2002
***************
*** 89,95 ****
  # =========================
  sub _makeSessionId
  {
!     # FIXME would be nice to have something more definate e.g a seq number
      my $randNum = int( rand( "1000000" ) );
      my $sessionId = time() . "-" . $randNum;
      return $sessionId;
--- 89,95 ----
  # =========================
  sub _makeSessionId
  {
!     # FIXME would be nice to have something more definite e.g a seq number
      my $randNum = int( rand( "1000000" ) );
      my $sessionId = time() . "-" . $randNum;
      return $sessionId;
***************
*** 112,124 ****
  }
  
  # =========================
  sub writeHeaderHandler
  {
      if( $initcookie ) {
!         print $query->header(-cookie=>$initcookie);
!         return 1;
      } else {
!         return 0;
      }
  }
  
--- 112,132 ----
  }
  
  # =========================
+ # Generate the Cookie header, if a cookie was supplied with the request.
+ # Now uses the new plugin API to return headers instead of printing them,
+ # to work with fix for Codev.BackFromPreviewLosesText (see TWiki.pm's
+ # writeHeaderFull subroutine).
  sub writeHeaderHandler
  {
      if( $initcookie ) {
!         my $cookieHeader = $query->header(-cookie=>$initcookie);
! 	&TWiki::Func::writeDebug( "- TWiki::Plugins::SessionPlugin::writeHeaderHandler generated header '$cookieHeader' " ) if $debug;
!         return $cookieHeader;
      } else {
!         # DEBUG: my $pluginHeaders = "My-Own-Header: foo/bar\r\nMy-Second-Header: foo/bar\r\nexpires: sometime\r\nbad-header\r\nbad- adsfsdf header: stuff\r\n";
! 
!         # DEBUG: return $pluginHeaders;
!         return '';
      }
  }