scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adjust MAKE-RESUME-URL and 

DEFAULT-MAKE-SESSION-TIMEOUT-TEXT to surflets that are
in subdirectories.
This commit is contained in:
interp 2003-11-18 20:25:59 +00:00
parent 217596b510
commit c2109e2e67
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/surflet-handler.scm
View File

@ -543,7 +543,7 @@
;; All arguments are numbers except PATH-STRING, which is a string. ;; All arguments are numbers except PATH-STRING, which is a string.
(define (make-resume-url path-string session-id continuation-counter continuation-id) (define (make-resume-url path-string session-id continuation-counter continuation-id)
(string-append path-string (string-append (file-name-nondirectory path-string)
";k" (number->string session-id) ";k" (number->string session-id)
";c" (number->string continuation-counter) ";c" (number->string continuation-counter)
"-" (number->string continuation-id))) "-" (number->string continuation-id)))
@ -641,7 +641,7 @@
<li>You URL is illformed.</li> <li>You URL is illformed.</li>
</ul> </ul>
</p> </p>
<p>In any case, you may try to restart the SUrflet from the <a href=\"~a\">beginning</a>. Your browser may also have cached an old session of this SUrflet. In this case, try to reload the page.</p>" start-url)) <p>In any case, you may try to restart the SUrflet from the <a href=\"~a\">beginning</a>. Your browser may also have cached an old session of this SUrflet. In this case, try to reload the page.</p>" (file-name-nondirectory start-url)))
;; Constructor with defaults. ;; Constructor with defaults.
(define (make-default-surflet-options) (define (make-default-surflet-options)