--- loncom/homework/lonhomework.pm	2002/10/14 16:46:42	1.94
+++ loncom/homework/lonhomework.pm	2002/10/21 20:31:06	1.98
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.94 2002/10/14 16:46:42 bowersj2 Exp $
+# $Id: lonhomework.pm,v 1.98 2002/10/21 20:31:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -378,8 +378,9 @@ 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();
@@ -395,14 +396,9 @@ sub renderpage {
     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') {
@@ -506,7 +502,8 @@ sub handler {
   #my $t0 = [&gettimeofday()];
   my $request=$_[0];
 
-  #if ( $ENV{'user.name'} eq 'albertel' ) {$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;