version 1.65, 2001/12/06 16:19:05
|
version 1.67, 2001/12/21 20:06:25
|
Line 34 use strict;
|
Line 34 use strict;
|
use Apache::style; |
use Apache::style; |
use Apache::lonxml; |
use Apache::lonxml; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::lonplot; |
use Apache::inputtags; |
use Apache::inputtags; |
use Apache::structuretags; |
use Apache::structuretags; |
use Apache::randomlabel; |
use Apache::randomlabel; |
Line 49 sub BEGIN {
|
Line 50 sub BEGIN {
|
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
|
if ( defined($ENV{'form.grade_target'}) |
|
&& ($Apache::lonhomework::viewgrades == 'F' )) { |
|
return ($ENV{'form.grade_target'}); |
|
} |
if ( defined($ENV{'form.submitted'})) { |
if ( defined($ENV{'form.submitted'})) { |
return ('grade', 'web'); |
return ('grade', 'web'); |
} else { |
} else { |
Line 359 sub newproblem {
|
Line 364 sub newproblem {
|
# I don't like hard-coded filenames but for now, this will work. |
# I don't like hard-coded filenames but for now, this will work. |
use File::Copy; |
use File::Copy; |
my $templatefilename = |
my $templatefilename = |
"/home/httpd/html/res/adm/includes/templates/blank.problem"; |
$request->dir_config('lonIncludes').'/templates/blank.problem'; |
|
&Apache::lonxml::debug("$templatefilename"); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
copy($templatefilename,$dest); |
copy($templatefilename,$dest); |
&renderpage($request,$dest); |
&renderpage($request,$dest); |