--- loncom/interface/londocs.pm 2007/09/10 21:41:02 1.298 +++ loncom/interface/londocs.pm 2007/12/01 03:46:03 1.301 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.298 2007/09/10 21:41:02 albertel Exp $ +# $Id: londocs.pm,v 1.301 2007/12/01 03:46:03 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1227,9 +1227,13 @@ ENDPASTE &LONCAPA::map::qtescape($env{'docs.markedcopy_url'}).')'); } else { my $extension = (split(/\./,$env{'docs.markedcopy_url'}))[-1]; - my $type = &Apache::loncommon::filedescription($extension); - my $icon = ''; + my $icon = &Apache::loncommon::icon($extension); + if ($extension eq 'sequence' && + $env{'docs.markedcopy_url'} =~ m{/default_\d+\.sequence$ }x) { + $icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL')); + $icon .= '/folder_closed.gif'; + } + $icon = ''; $r->print($icon.$type.': '. &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'}))); } if ($container eq 'page') { @@ -1750,7 +1754,7 @@ sub entryline { # no copy for published maps $nocopy = 1; } else { - foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$url))) { + foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$url),1)) { my ($title,$url,$ext,$type)=split(/\:/,$_); if (($url=~/\.(page|sequence)/) && ($type ne 'zombie')) { $nocopy=1;