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.195, 2005/07/25 00:50:00
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;