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; |