[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[albertel]

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') {