loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.127, 2004/05/11 06:37:39	version 1.129, 2004/06/10 22:23:35
Line 399 sub editor {	Line 399 sub editor {
if ($ENV{'form.cmd'}) {	if ($ENV{'form.cmd'}) {
my ($cmd,$idx)=split(/\_/,$ENV{'form.cmd'});	my ($cmd,$idx)=split(/\_/,$ENV{'form.cmd'});
if ($cmd eq 'del') {	if ($cmd eq 'del') {
	my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]);
	if ($url=~m\|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/\|) {
	&Apache::lonnet::removeuploadedurl($url);
	}
for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {	for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {
$Apache::lonratedt::order[$i]=	$Apache::lonratedt::order[$i]=
$Apache::lonratedt::order[$i+1];	$Apache::lonratedt::order[$i+1];
Line 1321 $lt{'title'}:<br />	Line 1325 $lt{'title'}:<br />
<input type="text" size="50" name="comment">	<input type="text" size="50" name="comment">
<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="cmd" value="upload_default">	<input type="hidden" name="cmd" value="upload_default">
<input type="submit" value="$lt{'upld'}">
<nobr>	<nobr>
	<input type="submit" value="$lt{'upld'}">
$help{'Uploading_From_Harddrive'}	$help{'Uploading_From_Harddrive'}
</nobr>	</nobr>
</form>	</form>