version 1.102, 2002/11/13 23:05:46
|
version 1.105, 2002/12/11 15:33:55
|
Line 144 $Apache::lonxml::browse='';
|
Line 144 $Apache::lonxml::browse='';
|
sub check_access { |
sub check_access { |
my ($id) = @_; |
my ($id) = @_; |
my $date =''; |
my $date =''; |
my $status = ''; |
my $status; |
my $datemsg = ''; |
my $datemsg = ''; |
my $lastdate = ''; |
my $lastdate = ''; |
my $temp; |
my $temp; |
Line 156 sub check_access {
|
Line 156 sub check_access {
|
$lastdate = $date; |
$lastdate = $date; |
$date = &Apache::lonnet::EXT("resource.$id.$temp"); |
$date = &Apache::lonnet::EXT("resource.$id.$temp"); |
my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type"); |
my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type"); |
|
if ($thistype =~ /^(con_lost|no_such_host)/ || |
|
$date =~ /^(con_lost|no_such_host)/) { |
|
$status='UNAVAILABLE'; |
|
$date="may open later."; |
|
return($status,$date); |
|
} |
if ($thistype eq 'date_interval') { |
if ($thistype eq 'date_interval') { |
if ($temp eq 'opendate') { |
if ($temp eq 'opendate') { |
$date=&Apache::lonnet::EXT("resource.$id.duedate")-$date; |
$date=&Apache::lonnet::EXT("resource.$id.duedate")-$date; |
Line 464 sub get_template_list {
|
Line 470 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 500 sub newproblem {
|
Line 506 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 ''; |
} |
} |