[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm lonmenu.pm
www
lon-capa-cvs@mail.lon-capa.org
Wed, 04 Jun 2003 22:05:22 -0000
www Wed Jun 4 18:05:22 2003 EDT
Modified files:
/loncom/interface lonfeedback.pm lonmenu.pm
Log:
Bug #1519: extra window after doing FDBK
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.43 loncom/interface/lonfeedback.pm:1.44
--- loncom/interface/lonfeedback.pm:1.43 Sun Mar 30 16:58:17 2003
+++ loncom/interface/lonfeedback.pm Wed Jun 4 18:05:22 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.43 2003/03/30 21:58:17 www Exp $
+# $Id: lonfeedback.pm,v 1.44 2003/06/04 22:05:22 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -54,8 +54,7 @@
sub mail_screen {
my ($r,$feedurl,$options) = @_;
- my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion',
- '','onLoad="window.focus();"');
+ my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion');
$r->print(<<ENDDOCUMENT);
<html>
<head>
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.73 loncom/interface/lonmenu.pm:1.74
--- loncom/interface/lonmenu.pm:1.73 Tue May 27 15:57:51 2003
+++ loncom/interface/lonmenu.pm Wed Jun 4 18:05:22 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.73 2003/05/27 19:57:51 www Exp $
+# $Id: lonmenu.pm,v 1.74 2003/06/04 22:05:22 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -194,7 +194,7 @@
($ENV{'environment.remote'} eq 'off') ||
($ENV{'request.publicaccess'})) {
my $reopen=&Apache::lonmenu::reopenmenu();
- $loadfunction='swmenu='.$reopen.'swmenu.windowloaded(self.name);';
+ $loadfunction='swmenu='.$reopen.'swmenu.windowloaded(self.name);window.focus();';
$inlineloadfunction=®flush();
$unloadfunction='swmenu='.$reopen.'swmenu.windowunloaded(self.name);';
}