Return to imsprocessor.pm CVS log | Up to [LON-CAPA] / loncom / imspackages |
version 1.5, 2004/03/20 00:45:16 | version 1.6, 2004/03/21 20:44:58 |
---|---|
Line 651 sub build_structure { | Line 651 sub build_structure { |
my $filestem; | my $filestem; |
if ($context eq 'DOCS') { | if ($context eq 'DOCS') { |
$filestem = "/uploaded/$cdom/$crs"; | $filestem = "/uploaded/$cdom/$crs/$timenow"; |
} elsif ($context eq 'CSTR') { | } elsif ($context eq 'CSTR') { |
$filestem = "/res/$udom/$uname/$newdir"; | $filestem = "/res/$udom/$uname/$newdir"; |
} | } |