Fixed bug with (page-redirect) when adding options in the URL

newlisp-rockets.lisp

@@ -409,14 +409,14 @@
 	(if (not (find ".lsp" str-url-to-redirect))
 		(extend str-url-to-redirect ".lsp")) ; add .lsp extension if not already there
 	(if str-optional-parameters (begin
-		(if (find "?" strl-url-to-redirect)
+		(if (find "?" str-url-to-redirect)
 			(extend str-url-to-redirect (string "&" str-optional-parameters))
 			(extend str-url-to-redirect (string "?" str-optional-parameters)) ; if already has parameters, use &
 		)	
 	))
 	(print "Content-type: text/html\n") 
 	(set 'Rockets:statuscode 302) ; HTTP "FOUND" redirects to a new site
-   (add-header "Location" str-url-to-redirect)
+	(add-header "Location" str-url-to-redirect)
 	(send-headers)
 	(print "\n")
 	(exit)

partials/rockets-navbar.lsp

@@ -12,6 +12,6 @@
 ; display any error messages, welcome messsages, etc.
 (set 'error-messages ($GET "e"))
 (if (= error-messages "signin") 
-	(display-warning "<strong>Warning!</strong> Username or password not found.  Please try signing in again."))
+	(display-warning "<strong>Warning!</strong> Username or password not found.  Please try signing in again. <a href=rockets-forgotpassword.lsp>Forgot your password?</a>"))
 (if (= error-messages "newuser")
 	(display-success (string "Thank you for registering on " RocketsConfig:Name "!  You are now signed in.")))

rockets-item.lsp

@@ -1,5 +1,5 @@
 #!/usr/bin/env newlisp 
-(load "/var/www/newlisp-rockets.lisp") 
+(load "newlisp-rockets.lisp") 
 (load "Rockets-config.lisp") ; load configuration information
 (display-header (string RocketsConfig:Name " - Post"))
 (open-database RocketsConfig:Database)
@@ -11,6 +11,7 @@
 (set 'forum-view-post (force-parameters 1 ($GET "f")))
 
 (if Id (extend active-page (string ".lsp?p=" Id))) ; in case user logs in and wants to return to this exact page
+(if forum-view-post (extend active-page (string "&f=true")))
 (display-partial "rockets-navbar") ; shows the navigation bar with Rockets blog menus
 
 (if Id (begin

rockets-verify.lsp

@@ -1,6 +1,6 @@
 #!/usr/bin/env newlisp
 
-(load "/var/www/newlisp-rockets.lisp") ; this is where the magic happens!
+(load "newlisp-rockets.lisp") ; this is where the magic happens!
 
 ; (rockets-verify.lsp) - Rockets - User verification page 
 ;