version 1.64, 2001/12/04 14:51:19
|
version 1.65, 2001/12/06 16:19:05
|
Line 345 sub get_template_list {
|
Line 345 sub get_template_list {
|
} |
} |
|
|
sub newproblem { |
sub newproblem { |
my ($request) = @_; |
my ($request) = @_; |
|
my $extension=$request->uri; |
my $extension=$request->uri; |
$extension=~s:^.*\.([\w]+)$:$1:; |
$extension=~s:^.*\.([\w]+)$:$1:; |
&Apache::lonxml::debug("Looking for :$extension:"); |
&Apache::lonxml::debug("Looking for :$extension:"); |
if ($ENV{'form.template'}) { |
if ($ENV{'form.template'}) { |
use File::Copy; |
use File::Copy; |
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,$dest); |
&renderpage($request,$file); |
} elsif($ENV{'form.newfile'}) { |
} else { |
# I don't like hard-coded filenames but for now, this will work. |
my $templatelist=&get_template_list('',$extension); |
use File::Copy; |
my $url=$request->uri; |
my $templatefilename = |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
"/home/httpd/html/res/adm/includes/templates/blank.problem"; |
$request->print(<<ENDNEWPROBLEM); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
|
copy($templatefilename,$dest); |
|
&renderpage($request,$dest); |
|
}else { |
|
my $templatelist=&get_template_list('',$extension); |
|
my $url=$request->uri; |
|
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
|
if (!defined($templatelist)) { |
|
# We didn't find a template, so just create a blank problem. |
|
$request->print(<<ENDNEWPROBLEM); |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
The request file $url doesn\'t exist. You can create a new $extension <br /> |
The requested file $url doesn\'t exist. You can create a new $extension <br /> |
|
<form action="$url" method="POST"> |
|
<input type="submit" name="newfile" value="New $extension"><br /> |
|
</form> |
|
</body> |
|
ENDNEWPROBLEM |
|
return ''; |
|
} |
|
$request->print(<<ENDNEWPROBLEM); |
|
<body bgcolor="#FFFFFF"> |
|
The requested 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 $extension"><br /> |
<input type="submit" value="New $extension"><br /> |
<select name="template"> |
<select name="template"> |
Line 371 $templatelist
|
Line 390 $templatelist
|
</form> |
</form> |
</body> |
</body> |
ENDNEWPROBLEM |
ENDNEWPROBLEM |
} |
} |
|
return ''; |
return ''; |
|
} |
} |
|
|
sub view_or_edit_menu { |
sub view_or_edit_menu { |