![[BACK]](/icons/back.gif){kind=icon}
Return to imsprocessor.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / imspackages|
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"; |
| } | } |