--- loncom/homework/lonhomework.pm	2002/09/24 12:39:42	1.90
+++ loncom/homework/lonhomework.pm	2002/11/10 15:39:37	1.100
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.90 2002/09/24 12:39:42 sakharuk Exp $
+# $Id: lonhomework.pm,v 1.100 2002/11/10 15:39:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -125,7 +125,7 @@ sub createmenu {
   my ($which,$request)=@_;
   if ($which eq 'grade') {
     $request->print('<script language="JavaScript"> 
-   hwkmenu=window.open("/res/adm/pages/homeworkmenu.html","homeworkremote",
+          hwkmenu=window.open("/res/adm/pages/homeworkmenu.html","homeworkremote",
                  "height=350,width=150,menubar=no");
           </script>');
   }
@@ -139,6 +139,8 @@ sub send_footer {
 
 $Apache::lonxml::browse='';
 
+# JB, 9/24/2002: Any changes in this function may require a change
+# in lonnavmaps::resource::getDateStatus.
 sub check_access {
   my ($id) = @_;
   my $date ='';
@@ -204,7 +206,7 @@ sub check_access {
 
   &Apache::lonxml::debug("sending back :$status:$datemsg:");
   if (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED')) {
- &Apache::lonxml::debug("should be allowed to browse a resource when closed");
+    &Apache::lonxml::debug("should be allowed to browse a resource when closed");
     $status='CAN_ANSWER';
     $datemsg='is closed but you are allowed to view it';
   }
@@ -218,7 +220,7 @@ sub check_access {
 
 sub showhash {
   my (%hash) = @_;
-  &showhashsubset(\%hash,'');
+  &showhashsubset(\%hash,'.');
   return '';
 }
 
@@ -376,31 +378,16 @@ sub renderpage {
 
     my %mystyle;
     my $result = '';
-    &Apache::inputtags::initialize_inputtags;
-    &Apache::edit::initialize_edit;
+    &Apache::inputtags::initialize_inputtags();
+    &Apache::outputtags::initialize_outputtags();
+    &Apache::edit::initialize_edit();
     if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); }
-    if ($target eq 'web') {
-      my ($symb)=&Apache::lonxml::whichuser();
-      if ($symb eq '') {
-	if ($ENV{'request.state'} eq "construct") {
-	} else {
-          my $help = Apache::loncommon::help_open_topic("Ambiguous_Reference");
-	  $request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored $help<br />");
-	}
-      }
-      #if ($Apache::lonhomework::viewgrades eq 'F') {&createmenu('grade',$request); }
-    }
     if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); }
     if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');}
 
-my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm');
-    if ($default == -1) {
-  &Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>");
-      $default='';
-    }
     &Apache::lonxml::debug("Should be parsing now");
     $result = &Apache::lonxml::xmlparse($request, $target, $problem,
-			$default.&setup_vars($target),%mystyle);
+			&setup_vars($target),%mystyle);
 
     #$request->print("Result follows:");
     if ($target eq 'modified') {
@@ -429,8 +416,7 @@ sub get_template_list {
   my $result;
   my @allnames;
   &Apache::lonxml::debug("Looking for :$extension:");
-  foreach my $file (</home/httpd/html/res/adm/includes/templates/*.$extension>)
- {
+  foreach my $file (</home/httpd/html/res/adm/includes/templates/*.$extension>) {
     my $name=&Apache::lonnet::metadata($file,'title');
     if ($namewanted && ($name eq $namewanted)) {
       $result=$file;
@@ -505,7 +491,8 @@ sub handler {
   #my $t0 = [&gettimeofday()];
   my $request=$_[0];
 
-#  if ( $ENV{'user.name'} eq 'physnet' ) {$Apache::lonxml::debug=1;}
+#  if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}
+  $Apache::lonxml::debug=$ENV{'user.debug'};
 
   if (&setupheader($request)) { return OK; }
   $ENV{'request.uri'}=$request->uri;