--- loncom/interface/lonfeedback.pm	2006/03/23 22:39:51	1.188
+++ loncom/interface/lonfeedback.pm	2006/04/10 19:59:53	1.189
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.188 2006/03/23 22:39:51 albertel Exp $
+# $Id: lonfeedback.pm,v 1.189 2006/04/10 19:59:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1498,10 +1498,10 @@ END
 </script>
 END
 
-  my $onload = 'onLoad="window.focus();setposttype();"';
+  my %onload = ('onload' => 'window.focus();setposttype();');
   my $start_page=
       &Apache::loncommon::start_page('Resource Feedback and Discussion',$js,
-				     {'add_entries' => $onload});
+				     {'add_entries' => \%onload});
 
   $r->print(<<END);
 $start_page
@@ -2201,12 +2201,12 @@ sub redirect_back {
   }
   $feedurl=&Apache::lonenc::check_encrypt($feedurl);
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
-  my $onload = 'onLoad=\'if (window.name!="loncapaclient") { this.document.reldt.submit(); self.window.close(); }\'';
+  my %onload = ('onload' => "if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }");
   my $start_page=
       &Apache::loncommon::start_page('New posts marked as read',undef,
 				     {'redirect'    => [2,$feedurl],
 				      'only_body'   => 1,
-				      'add_entries' => $onload});
+				      'add_entries' => \%onload});
   my $end_page = &Apache::loncommon::end_page();
 
   $r->print(<<ENDREDIR);
@@ -2233,7 +2233,7 @@ sub no_redirect_back {
   my $nofeed=&mt('Sorry, no feedback possible on this resource  ...');
  
   my %body_options = ('only_body'   => 1,
-		      'add_entries' =>  'onLoad=\'if (window.name!="loncapaclient") { self.window.close(); }\'');
+		      'add_entries' => {'onload' => "if (window.name!='loncapaclient') { self.window.close(); }"});
 
   if ($feedurl !~ m{^/adm/feedback}) { 
       $body_options{'rediect'} = [2,$feedurl];
@@ -3107,12 +3107,12 @@ sub handler {
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
       my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
-      my $onload = 'onLoad=\'if (window.name!="loncapaclient") { this.document.reldt.submit(); self.window.close(); }\'';
+      my %onload = ('onload' => "if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }");
       my $start_page=
 	  &Apache::loncommon::start_page('New posts marked as read',undef,
 					 {'redirect'    => [2,$feedurl],
 					  'only_body'   => 1,
-					  'add_entries' => $onload});
+					  'add_entries' => \%onload});
       my $end_page = &Apache::loncommon::end_page();
       $r->print (<<ENDREDIR);
 $start_page