--- loncom/homework/lonhomework.pm	2001/02/07 00:29:30	1.36
+++ loncom/homework/lonhomework.pm	2001/02/19 14:53:54	1.38
@@ -55,7 +55,7 @@ sub createmenu {
   my ($which,$request)=@_;
   if ($which eq 'grade') {
     $request->print('<script language="JavaScript"> 
-          hwkmenu=window.open("/res/adm/pages/homeworkmenu.html","LONCAPAhomeworkmenu",
+          hwkmenu=window.open("/res/adm/pages/homeworkmenu.html","homeworkremote",
                  "height=350,width=150,menubar=no");
           </script>');
   }
@@ -130,8 +130,8 @@ sub check_date {
 
 sub handler {
   my $request=$_[0];
-
-  if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} else {$Apache::lonxml::debug=0;}
+  
+ if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} else {$Apache::lonxml::debug=0;}
   
   my (@targets) = &get_target();
 
@@ -144,8 +144,8 @@ sub handler {
   return OK if $request->header_only;
 
   #setup permissions
-  $Apache::lonhomework::browse= &Apache::lonnet::allowed('bre');
-  $Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr');
+  $Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'});
+  $Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
   &Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:");
 
   #check if we know where we are