--- loncom/publisher/lonpubdir.pm 2001/12/15 20:48:47 1.17
+++ loncom/publisher/lonpubdir.pm 2002/02/05 12:54:46 1.21
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# (Publication Handler
#
-# $Id: lonpubdir.pm,v 1.17 2001/12/15 20:48:47 harris41 Exp $
+# $Id: lonpubdir.pm,v 1.21 2002/02/05 12:54:46 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -37,6 +37,7 @@
# 03/24,03/29 Gerd Kortemeyer)
# 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer
# 12/15 Scott Harrison
+# 12/28 Gerd Kortemeyer
#
###
@@ -102,18 +103,20 @@ sub handler {
$r->print('
Construction Space Directory '.$thisdisfn.'/
');
if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {
- $r->print('Co-Author: '.$uname.' at '.$udom.
- '
');
+ $r->print('Co-Author: '.$uname.' at '.$udom.
+ '
');
}
my $docroot=$r->dir_config('lonDocRoot');
my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn;
+ my $targetdir=$udom.'/'.$uname.$thisdisfn;
my $linkdir='/~'.$uname.$thisdisfn;
$r->print(''.
- 'Filename | Modified | Status | |
');
+ 'Actions | Name | Title | '.
+ 'Status | Last Modified |
');
my $filename;
my $dirptr=16384;
@@ -129,20 +132,10 @@ sub handler {
my $extension='';
if ($filename=~/\.(\w+)$/) { $extension=$1; }
if ($cmode&$dirptr) {
- my $disfilename=$filename;
- if ($filename eq '..') {
- $disfilename='Parent Directory';
- }
- unless ((($filename eq '..') && ($thisdisfn eq '')) ||
- ($filename eq '.')) {
- $r->print(''.$disfilename.
- ' | '.localtime($cmtime).' | | |
'
- );
- }
+ putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime);
} elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {
my $status='Unpublished';
- my $bgcol='#FFBBBB';
+ my $title=' ';
if (-e $resdir.'/'.$filename) {
my ($rdev,$rino,$rmode,$rnlink,
$ruid,$rgid,$rrdev,$rsize,
@@ -150,10 +143,14 @@ sub handler {
$rblksize,$rblocks)=stat($resdir.'/'.$filename);
if ($rmtime>=$cmtime) {
$status='Published';
- $bgcol='#BBFFBB';
+ $title=
+ ''.
+ &Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'';
} else {
$status='Modified';
- $bgcol='#FFFFBB';
+ $title=
+ ''.
+ &Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'';
if
(&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
$status.='
Retrieve';
}
- $r->print(''.$filename.
- ' | '.localtime($cmtime).' | '.$status.' | '.
- ''.
- 'Publish |
');
+ $r->print(''.
+ ''.'Publish'.
+ ' | '.
+ ''.
+ ''.$filename.''.
+ ' | '.
+ ''.$title.' | '.
+ ''.$status.' | '.
+ ''.localtime($cmtime).' | '.
+ '
');
} else {
# "hidden" extension and not a directory, so hide it away.
}
@@ -179,7 +181,37 @@ sub handler {
$r->print('