version 1.103, 2002/12/05 22:59:37
|
version 1.105, 2002/12/11 15:33:55
|
Line 470 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 506 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 ''; |
} |
} |