version 1.49, 2001/07/18 18:45:37
|
version 1.52, 2001/08/06 20:33:23
|
Line 287 sub get_template_list {
|
Line 287 sub get_template_list {
|
sub newproblem { |
sub newproblem { |
my ($request) = @_; |
my ($request) = @_; |
|
|
|
my $extension=$request->uri; |
|
$extension=~s:^.*\.([\w]+)$:$1:; |
|
&Apache::lonxml::debug("Looking for :$extension:"); |
if ($ENV{'form.template'}) { |
if ($ENV{'form.template'}) { |
use File::Copy; |
use File::Copy; |
my $extension=$request->uri; |
|
$extension=~s:\.([\w]+)$:$1:; |
|
my $file = &get_template_list($ENV{'form.template'},$extension); |
my $file = &get_template_list($ENV{'form.template'},$extension); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
copy($file,$dest); |
copy($file,$dest); |
&renderpage($request,$file); |
&renderpage($request,$file); |
} else { |
} else { |
my $templatelist=&get_template_list(); |
my $templatelist=&get_template_list('',$extension); |
my $url=$request->uri; |
my $url=$request->uri; |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
$request->print(<<ENDNEWPROBLEM); |
$request->print(<<ENDNEWPROBLEM); |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
The request file $url doesn\'t exist. You can create a new problem <br /> |
The request file $url doesn\'t exist. You can create a new $extension <br /> |
<form action="$url" method="POST"> |
<form action="$url" method="POST"> |
<input type="submit" value="New Problem"><br /> |
<input type="submit" value="New $extension"><br /> |
<select name="template"> |
<select name="template"> |
$templatelist |
$templatelist |
</select> |
</select> |