--- loncom/homework/lonhomework.pm 2001/07/18 18:45:37 1.49 +++ loncom/homework/lonhomework.pm 2001/07/18 20:08:34 1.50 @@ -287,23 +287,24 @@ sub get_template_list { sub newproblem { my ($request) = @_; + my $extension=$request->uri; + $extension=~s:^.*\.([\w]+)$:$1:; + &Apache::lonxml::debug("Looking for :$extension:"); if ($ENV{'form.template'}) { use File::Copy; - my $extension=$request->uri; - $extension=~s:\.([\w]+)$:$1:; my $file = &get_template_list($ENV{'form.template'},$extension); my $dest = &Apache::lonnet::filelocation("",$request->uri); copy($file,$dest); &renderpage($request,$file); } else { - my $templatelist=&get_template_list(); + my $templatelist=&get_template_list('',$extension); my $url=$request->uri; my $dest = &Apache::lonnet::filelocation("",$request->uri); $request->print(< -The request file $url doesn\'t exist. You can create a new problem
+The request file $url doesn\'t exist. You can create a new $extension
-
+