version 1.65, 2001/12/06 16:19:05
|
version 1.68, 2002/01/03 22:16:53
|
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 203 sub setupheader {
|
Line 208 sub setupheader {
|
} else { |
} else { |
$request->content_type('text/html'); |
$request->content_type('text/html'); |
} |
} |
if (!$Apache::lonxml::debug) { &Apache::loncommon::no_cache($request); } |
if (!$Apache::lonxml::debug && ($ENV{'REQUEST_METHOD'} eq 'GET')) { |
|
&Apache::loncommon::no_cache($request); |
|
} |
$request->send_http_header; |
$request->send_http_header; |
return OK if $request->header_only; |
return OK if $request->header_only; |
return '' |
return '' |
Line 359 sub newproblem {
|
Line 366 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); |