--- loncom/homework/lonhomework.pm	2001/07/02 15:02:44	1.48
+++ loncom/homework/lonhomework.pm	2001/07/18 18:45:37	1.49
@@ -269,9 +269,10 @@ sub renderpage {
 # with no arg it returns a HTML <option> list of the template titles
 # with one arg it returns the filename associated with the arg passed
 sub get_template_list {
-  my ($namewanted) = @_;
+  my ($namewanted,$extension) = @_;
   my $result;
-  foreach my $file (</home/httpd/html/res/adm/includes/templates/*.problem>) {
+  &Apache::lonxml::debug("Looking for :$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;
@@ -288,7 +289,9 @@ sub newproblem {
 
   if ($ENV{'form.template'}) {
     use File::Copy;
-    my $file = &get_template_list($ENV{'form.template'});
+    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);
@@ -296,12 +299,6 @@ sub newproblem {
     my $templatelist=&get_template_list();
     my $url=$request->uri;
     my $dest = &Apache::lonnet::filelocation("",$request->uri);
-    unless (-e $dest) {
-	print "fnx=$dest<br>";
-	my $fh=Apache::File->new(">".$dest);
-	print $fh "<problem>\n</problem>";
-	$fh->close;
-    }
     $request->print(<<ENDNEWPROBLEM);
 <body bgcolor="#FFFFFF">
 The request file $url doesn\'t exist. You can create a new problem <br />
@@ -335,7 +332,7 @@ 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;}
 
   if (&setupheader($request)) { return OK; }
   $ENV{'request.uri'}=$request->uri;
