loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.167, 2003/12/29 21:17:00
+version 1.168, 2003/12/30 20:47:23
  Line 3284  sub propath {
  sub icon {
      my ($file)=@_;
-     my @file_ext = split(/\./,$file);
+     my $curfext = (split(/\./,$file))[-1];
-     my $curfext = $file_ext[-1];
+     my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif';
-     my $iconname="unknown.gif";
      my $embstyle = &Apache::loncommon::fileembstyle($curfext);
-     # The unless conditional that follows is a bit of overkill
+     if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) {
-     $iconname = $curfext.".gif" unless
+ 	if (-e  $Apache::lonnet::perlvar{'lonDocRoot'}.'/'.
- 	(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn');
+ 	          $Apache::lonnet::perlvar{'lonIconsURL'}.'/'.
-     return $Apache::lonnet::perlvar{'lonIconsURL'}."/$iconname";
+ 	            $curfext.".gif") {
+ 	    $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/'.
+ 		$curfext.".gif";
+ 	}
+     }
+     return $iconname;
  }
  =pod