Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.537, 2012/12/07 17:16:01 | version 1.538, 2013/03/11 21:37:10 |
---|---|
Line 1880 sub get_courseupload_hierarchy { | Line 1880 sub get_courseupload_hierarchy { |
while (@folders) { | while (@folders) { |
my $folder=shift(@folders); | my $folder=shift(@folders); |
my $foldername=shift(@folders); | my $foldername=shift(@folders); |
$foldername =~ s/\:(\d*)\:(\w*)\:(\w*):(\d*)\:?(\d*)$//; | |
push(@pathitems,&unescape($foldername)); | push(@pathitems,&unescape($foldername)); |
} | } |
if ($title) { | if ($title) { |