--- loncom/interface/londocs.pm 2003/10/29 21:21:55 1.92
+++ loncom/interface/londocs.pm 2003/12/30 20:47:23 1.97
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.92 2003/10/29 21:21:55 www Exp $
+# $Id: londocs.pm,v 1.97 2003/12/30 20:47:23 albertel 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.='
'.
@@ -725,7 +728,7 @@ ENDHEADERS
$currentversion.' | ');
# Used in course
my $usedversion=$hash{'version_'.$linkurl};
- if ($usedversion) {
+ if (($usedversion) && ($usedversion ne 'mostrecent')) {
$r->print($usedversion);
} else {
$r->print($currentversion);
@@ -735,7 +738,7 @@ ENDHEADERS
$r->print(&Apache::loncommon::select_form($setversions{$linkurl},
'set_version_'.$linkurl,
('' => '',
- 'current' => 'most recent',
+ 'mostrecent' => 'most recent',
map {$_,$_} (1..$currentversion))));
$r->print(' | ');
my $lastold=1;
@@ -789,7 +792,6 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
- &Apache::lonlocal::clearreroutetrans();
# --------------------------------------------- Initialize help topics for this
foreach ('Adding_Course_Doc','Main_Course_Documents',
'Adding_External_Resource','Navigate_Content',
@@ -981,7 +983,10 @@ ENDNEWSCRIPT
'sipr' => 'Simple Problem',
'scuf' => 'Score Upload Form',
'bull' => 'Bulletin Board',
- 'mypi' => 'My Personal Info'
+ 'mypi' => 'My Personal Info',
+ 'file' => 'File',
+ 'title' => 'Title',
+ 'comment' => 'Comment'
);
# -----------------------------------------------------------------------------
if ($allowed) {
@@ -1011,7 +1016,7 @@ $dumpbut
ENDCOURSEVERIFY
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
- 'Editing the Table of Contents for your Course'));
+ &mt('Editing the Table of Contents for your Course')));
}
# --------------------------------------------------------- Standard documents
$r->print('');
@@ -1040,11 +1045,11 @@ ENDCOURSEVERIFY
$lt{'spec'} |
-File:
+$lt{'file'}:
| ');
}
}
- $r->print(&Apache::lonlocal::endreroutetrans().' |