version 1.103, 2002/12/05 22:59:37
|
version 1.108, 2003/02/13 21:14:35
|
Line 48 use Apache::optionresponse();
|
Line 48 use Apache::optionresponse();
|
use Apache::imageresponse(); |
use Apache::imageresponse(); |
use Apache::essayresponse(); |
use Apache::essayresponse(); |
use Apache::externalresponse(); |
use Apache::externalresponse(); |
|
use Apache::rankresponse(); |
|
use Apache::matchresponse(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use HTML::Entities(); |
use HTML::Entities(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 150 sub check_access {
|
Line 152 sub check_access {
|
my $temp; |
my $temp; |
my $type; |
my $type; |
my $passed; |
my $passed; |
|
|
|
if ($ENV{'request.state'} eq "construct") { |
|
&Apache::lonxml::debug("in construction ignoring dates"); |
|
$status='CAN_ANSWER'; |
|
$datemsg='is in under construction'; |
|
return ($status,$datemsg); |
|
} |
|
|
&Apache::lonxml::debug("checking for part :$id:"); |
&Apache::lonxml::debug("checking for part :$id:"); |
&Apache::lonxml::debug("time:".time); |
&Apache::lonxml::debug("time:".time); |
foreach $temp ("opendate","duedate","answerdate") { |
foreach $temp ("opendate","duedate","answerdate") { |
Line 216 sub check_access {
|
Line 226 sub check_access {
|
$status='CAN_ANSWER'; |
$status='CAN_ANSWER'; |
$datemsg='is closed but you are allowed to view it'; |
$datemsg='is closed but you are allowed to view it'; |
} |
} |
if ($ENV{'request.state'} eq "construct") { |
|
&Apache::lonxml::debug("in construction ignoring dates"); |
|
$status='CAN_ANSWER'; |
|
$datemsg='is in under construction'; |
|
} |
|
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
|
|
Line 230 sub showhash {
|
Line 236 sub showhash {
|
return ''; |
return ''; |
} |
} |
|
|
|
sub showarray { |
|
my ($array)=@_; |
|
my $string="("; |
|
foreach my $elm (@{ $array }) { |
|
if (ref($elm)) { |
|
if ($elm =~ /ARRAY/ ) { |
|
$string.=&showarray($elm); |
|
} |
|
} else { |
|
$string.="$elm," |
|
} |
|
} |
|
chop($string); |
|
$string.=")"; |
|
return $string; |
|
} |
|
|
sub showhashsubset { |
sub showhashsubset { |
my ($hash,$keyre) = @_; |
my ($hash,$keyre) = @_; |
my $resultkey; |
my $resultkey; |
Line 237 sub showhashsubset {
|
Line 260 sub showhashsubset {
|
if ($resultkey =~ /$keyre/) { |
if ($resultkey =~ /$keyre/) { |
if (ref($$hash{$resultkey})) { |
if (ref($$hash{$resultkey})) { |
if ($$hash{$resultkey} =~ /ARRAY/ ) { |
if ($$hash{$resultkey} =~ /ARRAY/ ) { |
my $string="$resultkey ---- ("; |
&Apache::lonxml::debug("$resultkey ---- ". |
foreach my $elm (@{ $$hash{$resultkey} }) { |
&showarray($$hash{$resultkey})); |
$string.="$elm,"; |
} elsif ($$hash{$resultkey} =~ /HASH/ ) { |
} |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
chop($string); |
&showhashsubset($$hash{$resultkey},'.'); |
&Apache::lonxml::debug("$string)"); |
|
} else { |
} else { |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
} |
} |
} else { |
} else { |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
Line 426 sub renderpage {
|
Line 448 sub renderpage {
|
|
|
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags(); |
|
&Apache::outputtags::initialize_outputtags(); |
|
&Apache::edit::initialize_edit(); |
|
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} |
Line 470 sub get_template_list {
|
Line 489 sub get_template_list {
|
$result=$file; |
$result=$file; |
last; |
last; |
} else { |
} else { |
push (@allnames, $name); |
if ($name) { push (@allnames, $name); } |
} |
} |
} |
} |
if (@allnames && !$result) { |
if (@allnames && !$result) { |
Line 506 sub newproblem {
|
Line 525 sub newproblem {
|
my $url=$request->uri; |
my $url=$request->uri; |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
my $dest = &Apache::lonnet::filelocation("",$request->uri); |
my $instructions; |
my $instructions; |
if ($templatelist) { $instructions=", select a template from the pull-down menu below. Then";} |
if ($templatelist) { $instructions=", select a template from the pull-down menu below.<br />Then";} |
$request->print(<<ENDNEWPROBLEM); |
$request->print(<<ENDNEWPROBLEM); |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
The requested file $url doesn\'t exist. <br /> |
<h1>Creating a new $extension resource</h1> |
To create a new $extension$instructions click on the Create $extension button. |
The requested file <tt>$url</tt> currently does not exist. |
<form action="$url" method="POST"> |
<p> |
|
To create a new $extension$instructions click on the "Create $extension" button. |
|
</p> |
|
<p><form action="$url" method="POST"> |
ENDNEWPROBLEM |
ENDNEWPROBLEM |
if (defined($templatelist)) { |
if (defined($templatelist)) { |
$request->print("<select name=\"template\">$templatelist</select>"); |
$request->print("<select name=\"template\">$templatelist</select>"); |
} |
} |
$request->print("<br /><input type=\"submit\" name=\"newfile\" value=\"Create $extension\" />"); |
$request->print("<br /><input type=\"submit\" name=\"newfile\" value=\"Create $extension\" />"); |
$request->print("</form></body>"); |
$request->print("</form></p></body>"); |
} |
} |
return ''; |
return ''; |
} |
} |