--- loncom/interface/londocs.pm 2007/09/10 21:41:02 1.298 +++ loncom/interface/londocs.pm 2007/11/08 22:20:32 1.299 @@ -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.299 2007/11/08 22:20:32 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'; + } + my $icon = ''; $r->print($icon.$type.': '. &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'}))); } if ($container eq 'page') {