loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.12, 2000/10/02 22:23:19
+version 1.13, 2000/10/05 19:25:38
  Line 22  sub handler {
    my %mystyle;
    my $result = '';
    &Apache::inputtags::initialize_inputtags;
-   $result = Apache::lonxml::xmlparse($target, &getfile($file),
- 		&getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm').&setup_vars($target),%mystyle);
+   my $problem=&Apache::lonnet::getfile($file);
+   if ($problem == -1) {
+     &Apache::lonxml::error("<b> Unable to find <i>$file</i></b>");
+     $problem='';
+   }
+   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>$file</i></b>");
+     $default='';
+   }
+   $result = Apache::lonxml::xmlparse($target, $problem,
+ 				     $default.&setup_vars($target),%mystyle);
    #$request->print("Result follows:");
    $request->print($result);
    #$request->print(":Result ends");