--- loncom/publisher/lonpubdir.pm 2006/05/17 13:41:45 1.91
+++ loncom/publisher/lonpubdir.pm 2006/06/22 20:09:41 1.92
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construction Space Directory Lister
#
-# $Id: lonpubdir.pm,v 1.91 2006/05/17 13:41:45 www Exp $
+# $Id: lonpubdir.pm,v 1.92 2006/06/22 20:09:41 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -105,13 +105,13 @@ sub handler {
# Start off the directory table.
$r->print('
Directory Contents:
');
- $r->print(''.
- ''.&mt('Type').' | '.
- ''.&mt('Actions').' | '.
- ''.&mt('Name').' | '.
- ''.&mt('Title').' | '.
- ''.&mt('Status').' | '.
- ''.&mt('Last Modified').
+ $r->print(''.
+ ''.&mt('Type').' | '.
+ ''.&mt('Actions').' | '.
+ ''.&mt('Name').' | '.
+ ''.&mt('Title').' | '.
+ ''.&mt('Status').' | '.
+ ''.&mt('Last Modified').
' | '."\n");
my $filename;
@@ -399,7 +399,7 @@ sub dircontrols {
|
@@ -540,15 +540,19 @@ sub putdirectory {
'';
$$numdir ++;
}
- $r->print(''.
+ $r->print(' '.
' | '.
''.$actionitem.' | '.
- ''.
- $disfilename.' | '.
- ''.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'}.' '.
- $Apache::lonpublisher::metadatafields{'subject'}.' '.
- $Apache::lonpublisher::metadatafields{'keywords'}.' | '.
+ ''.
+ $disfilename.' | '.
+ ''.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
+ if ($Apache::lonpublisher::metadatafields{'subject'} ne '') {
+ $r->print(' '.
+ $Apache::lonpublisher::metadatafields{'subject'}.
+ ' ');
+ }
+ $r->print($Apache::lonpublisher::metadatafields{'keywords'}.' | '.
''.&Apache::lonlocal::locallocaltime($modtime).' | '.
" \n");
}
@@ -564,7 +568,7 @@ sub putresource {
&Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename);
my $pubstatus = 'unpublished';
my $status=&mt('Unpublished');
- my $bgcolor='#FFAA99';
+ my $css_class='LC_browser_file';
my $title=' ';
my $publish_button=&mt('Publish');
# my $action_buttons=
@@ -593,11 +597,9 @@ sub putresource {
$status=&mt('Published').' '.
&mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
&mt(&getSourceRightString($targetdir.'/'.$filename));
- $bgcolor='#CCFF88';
if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
$pubstatus = 'obsolete';
$status=&mt('Obsolete');
- $bgcolor='#AAAAAA';
}
# } else {
# $action_buttons='';
@@ -610,7 +612,6 @@ sub putresource {
$status=&mt('Modified').' '.
&mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
&mt(&getSourceRightString($targetdir.'/'.$filename));
- $bgcolor='#FFFF77';
# $action_buttons='';
$title=''.
&getTitleString($targetdir.'/'.$filename).'';
@@ -644,13 +645,13 @@ sub putresource {
}
my $pub_select = '';
&create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);
- $r->print(''.
+ $r->print(' '.
''.($filename=~/[\#\~]$/?' ':
'').' | '.
''.$pub_select.' | '.
- ''.
+ ' | '.
''.
- $filename.''.$editlink2.$editlink.
+ $filename.''.$editlink2.$editlink.
' | '.
''.$title.' | '.
''.$status.' | '.
|