--- loncom/interface/londocs.pm 2003/10/28 21:50:02 1.91 +++ loncom/interface/londocs.pm 2004/02/04 20:53:54 1.102 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.91 2003/10/28 21:50:02 www Exp $ +# $Id: londocs.pm,v 1.102 2004/02/04 20:53:54 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -425,14 +425,11 @@ END # Figure out what kind of a resource this is my ($extension)=($url=~/\.(\w+)$/); my $uploaded=($url=~/^\/*uploaded\//); - my $icon='unknown'; - if (-e "/home/httpd/html/adm/lonIcons/$extension.gif") { - $icon=$extension; - } + my $icon=&Apache::loncommon::icon($url); my $isfolder=0; if ($uploaded) { if ($extension eq 'sequence') { - $icon='folder_closed'; + $icon=$iconpath.'/folder_closed.gif'; $url=~/\/(\w+)\.sequence/; $url='/adm/coursedocs?folder='.$1; $isfolder=1; @@ -454,8 +451,7 @@ END if ($isfolder) { $url.='&foldername='. &Apache::lonnet::escape($foldertitle); } $line.='
'.
&Apache::lonnet::gettitle($linkurl).
' '.$linkurl. ' | '. - &Apache::lonlocal::locallocaltime($changes{$_}). + &Apache::lonlocal::locallocaltime( + &Apache::lonnet::metadata($root.'.'.$extension, + 'lastrevisiondate') + ). ' | '. $currentversion.' | '); # Used in course my $usedversion=$hash{'version_'.$linkurl}; - if ($usedversion) { + if (($usedversion) && ($usedversion ne 'mostrecent')) { $r->print($usedversion); } else { $r->print($currentversion); } $r->print(' | '); # Set version - $r->print(&Apache::loncommon::select_form($usedversion, + $r->print(&Apache::loncommon::select_form($setversions{$linkurl}, 'set_version_'.$linkurl, ('' => '', - 'current' => 'most recent', + 'mostrecent' => 'most recent', map {$_,$_} (1..$currentversion)))); $r->print(' |
|
$lt{'spec'} |
---|
-File: +$lt{'file'}: + |