[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.243,1.244

[Nick J. <nje...@us...>]

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv15491/bin

Modified Files:
	sandweb.cgi 
Log Message:
* modified menu popup title a bit
* added HTTP_REFERER setting to print_popup()


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.243
retrieving revision 1.244
diff -U2 -r1.243 -r1.244
--- sandweb.cgi	1 Mar 2002 08:33:38 -0000	1.243
+++ sandweb.cgi	2 Mar 2002 08:15:27 -0000	1.244
@@ -1874,9 +1874,13 @@
 		);
 	
+		$log->debug("HTTP_REFERER: $ENV{'HTTP_REFERER'}");
+		my $prev_url = "$ENV{'HTTP_REFERER'}";
+		$log->debug("prev_url $prev_url");
 		print CGI::header( -cookie => $ck_auth );
 		$ui->print_popup(
-			TITLE=> "SandWeb : sandbox",
+			TITLE=> "SandWeb : vcs output",
 			MENU_TITLE => 'SandWeb',
-			SUBMENU_TITLE => "sandbox",
+			SUBMENU_TITLE => "vcs output",
+			PREVIOUS_URL => $prev_url,
 			FOOTER => '',
 			CONTENT => $content,