--- loncom/publisher/lonpubdir.pm 2003/09/22 03:02:06 1.39
+++ loncom/publisher/lonpubdir.pm 2003/09/25 22:30:06 1.40
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construction Space Directory Lister
#
-# $Id: lonpubdir.pm,v 1.39 2003/09/22 03:02:06 www Exp $
+# $Id: lonpubdir.pm,v 1.40 2003/09/25 22:30:06 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -221,11 +221,14 @@ ENDPUBDIRSCRIPT
'
');
+ $uname.$thisdisfn."/default.meta'".'" value="'.
+&mt('Edit Directory Catalog Information').'" /> '.&mt('Force publication of unmodified files').'. | |
');
if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {
$r->print(''.&mt('Co-Author').': '.$uname.' at '.$udom.
@@ -247,7 +250,7 @@ sub getTitleString {
my $title = &Apache::lonnet::metadata($fullname, 'title');
unless ($title) {
- $title = "[untitled]";
+ $title = "[".&mt('untitled')."]";
}
return $title;
}
@@ -303,6 +306,10 @@ sub putresource {
if ($rmtime>=$cmtime) {
$status='Published';
$bgcolor='#CCFFCC';
+ if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
+ $status='Obsolete';
+ $bgcolor='#AAAAAA';
+ }
$title=''.
getTitleString($targetdir.'/'.$filename, 'title').'';
@@ -331,14 +338,14 @@ sub putresource {
}
$r->print(''.
''.'Publish'.
+ $uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').''.
' | '.
''.
''.
$filename.''.$editlink2.$editlink.
' | '.
''.$title.' | '.
- ''.$status.' | '.
+ ''.&mt($status).' | '.
''.localtime($cmtime).' | '.
"
\n");
return OK;