loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.194, 2005/07/24 19:31:00	version 1.196, 2005/07/25 02:35:29
Line 1288 sub process_secondary_uploads {	Line 1288 sub process_secondary_uploads {
my ($upload_output,$coursedom,$coursenum,$formname,$num,$newidx) = @_;	my ($upload_output,$coursedom,$coursenum,$formname,$num,$newidx) = @_;
my $folder=$env{'form.folder'};	my $folder=$env{'form.folder'};
my $destination = 'docs/';	my $destination = 'docs/';
if ($folder eq 'default') {	if ($folder =~ /^supplemental/) {
	$destination = 'supplemental/';
	}
	if (($folder eq 'default') \|\| ($folder eq 'supplemental')) {
$destination .= 'default/';	$destination .= 'default/';
} elsif ($folder =~ /^default_(\d+)$/) {	} elsif ($folder =~ /^(default\|supplemental)_(\d+)$/) {
$destination .= $1.'/';	$destination .= $1.'/';
}	}
$destination .= $newidx;	$destination .= $newidx;
Line 2660 ENDBLOCK	Line 2663 ENDBLOCK
<tr><td bgcolor="#DDDDDD">	<tr><td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
<input type="file" name="uploaddoc" size="40">	<input type="file" name="uploaddoc" size="40">
<br />$lt{'comment'}:<br />	<br />
	<br />
	<nobr>
	<label>$lt{'parse'}?
	<input type="checkbox" name="parserflag" />
	</label>
	</nobr>
	<br /><br />
	$lt{'comment'}:<br />
<textarea cols=50 rows=4 name='comment'>	<textarea cols=50 rows=4 name='comment'>
</textarea>	</textarea>
<br />	<br />