[LON-CAPA-cvs] cvs: loncom /interface londocs.pm
albertel
lon-capa-cvs-allow@mail.lon-capa.org
Thu, 08 Nov 2007 22:20:34 -0000
albertel Thu Nov 8 17:20:34 2007 EDT
Modified files:
/loncom/interface londocs.pm
Log:
- BUG#5514 - use the folder icon for folders, and elminate the description
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.298 loncom/interface/londocs.pm:1.299
--- loncom/interface/londocs.pm:1.298 Mon Sep 10 17:41:02 2007
+++ loncom/interface/londocs.pm Thu Nov 8 17:20:32 2007
@@ -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 @@
&LONCAPA::map::qtescape($env{'docs.markedcopy_url'}).')');
} else {
my $extension = (split(/\./,$env{'docs.markedcopy_url'}))[-1];
- my $type = &Apache::loncommon::filedescription($extension);
- my $icon = '<img src="'.&Apache::loncommon::icon($extension).
- '" alt="" class="LC_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 = '<img src="'.$icon.'" alt="" class="LC_icon" />';
$r->print($icon.$type.': '. &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'})));
}
if ($container eq 'page') {