version 1.130, 2003/05/19 21:05:23
|
version 1.131, 2003/05/23 06:25:53
|
Line 399 sub analyze {
|
Line 399 sub analyze {
|
my $subresult=&Apache::lonnet::ssi($request->uri, |
my $subresult=&Apache::lonnet::ssi($request->uri, |
('grade_target' => 'analyze'), |
('grade_target' => 'analyze'), |
('rndseed' => $i+$rndseed)); |
('rndseed' => $i+$rndseed)); |
&Apache::lonxml::debug(":$subresult:"); |
|
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2); |
(my $garbage,$subresult)=split(/_HASH_REF__/,$subresult,2); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
my %analyze=&Apache::lonnet::str2hash($subresult); |
my @parts; |
my @parts; |
Line 572 sub newproblem {
|
Line 571 sub newproblem {
|
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:"); |
|
my $templatelist=&get_template_list('',$extension); |
if ($ENV{'form.template'} && |
if ($ENV{'form.template'} && |
$ENV{'form.template'} ne "Select a $extension template") { |
$ENV{'form.template'} ne "Select a $extension template") { |
use File::Copy; |
use File::Copy; |
Line 579 sub newproblem {
|
Line 579 sub newproblem {
|
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,$dest); |
|
} elsif($ENV{'form.newfile'} && !$templatelist) { |
|
# I don't like hard-coded filenames but for now, this will work. |
|
use File::Copy; |
|
my $templatefilename = |
|
$request->dir_config('lonIncludes').'/templates/blank.problem'; |
|
&Apache::lonxml::debug("$templatefilename"); |
|
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
|
copy($templatefilename,$dest); |
|
&renderpage($request,$dest); |
} else { |
} else { |
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); |
my $errormsg; |
my $errormsg; |