loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.20 and 1.21

version 1.20, 2002/01/18 16:48:41	version 1.21, 2002/02/05 12:54:46
Line 103 sub handler {	Line 103 sub handler {
$r->print('<h1>Construction Space Directory <tt>'.$thisdisfn.'/</tt></h1>');	$r->print('<h1>Construction Space Directory <tt>'.$thisdisfn.'/</tt></h1>');

if (($uname ne $ENV{'user.name'}) \|\| ($udom ne $ENV{'user.domain'})) {	if (($uname ne $ENV{'user.name'}) \|\| ($udom ne $ENV{'user.domain'})) {
$r->print('<h3><font color=red>Co-Author: '.$uname.' at '.$udom.	$r->print('<h3>Co-Author: '.$uname.' at '.$udom.
'</font></h3>');	'</h3>');
}	}


Line 115 sub handler {	Line 115 sub handler {
my $linkdir='/~'.$uname.$thisdisfn;	my $linkdir='/~'.$uname.$thisdisfn;

$r->print('<table border=2>'.	$r->print('<table border=2>'.
'<tr><th>Filename</th><th>Metadata</th><th>Modified</th>'.	'<tr><th>Actions</th><th>Name</th><th>Title</th>'.
'<th>Status</th><th> </th></tr>');	'<th>Status</th><th>Last Modified</th></tr>');

my $filename;	my $filename;
my $dirptr=16384;	my $dirptr=16384;
Line 132 sub handler {	Line 132 sub handler {
my $extension='';	my $extension='';
if ($filename=~/\.(\w+)$/) { $extension=$1; }	if ($filename=~/\.(\w+)$/) { $extension=$1; }
if ($cmode&$dirptr) {	if ($cmode&$dirptr) {
my $disfilename=$filename;	putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime);
if ($filename eq '..') {
$disfilename='<i>Parent Directory</i>';
}
unless ((($filename eq '..') && ($thisdisfn eq '')) \|\|
($filename eq '.')) {
$r->print('<tr bgcolor=#BBBBFF'.
'><td><a href="'.$linkdir.'/'.$filename.'/">'.$disfilename.
'</a></td><td> </td><td>'.localtime($cmtime).
'</td><td> </td><td> </td></tr>'
);
}
} elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {	} elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {
my $status='Unpublished';	my $status='Unpublished';
my $bgcol='#FFBBBB';
my $title=' ';	my $title=' ';
if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
my ($rdev,$rino,$rmode,$rnlink,	my ($rdev,$rino,$rmode,$rnlink,
Line 155 sub handler {	Line 143 sub handler {
$rblksize,$rblocks)=stat($resdir.'/'.$filename);	$rblksize,$rblocks)=stat($resdir.'/'.$filename);
if ($rmtime>=$cmtime) {	if ($rmtime>=$cmtime) {
$status='Published';	$status='Published';
$bgcol='#BBFFBB';
$title=	$title=
'<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.	'<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
&Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';	&Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';
} else {	} else {
$status='Modified';	$status='Modified';
$bgcol='#FFFFBB';
$title=	$title=
'<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.	'<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
&Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';	&Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';
Line 175 sub handler {	Line 161 sub handler {
$status.='<br><a href="/adm/retrieve?filename=/~'.$uname.	$status.='<br><a href="/adm/retrieve?filename=/~'.$uname.
$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';	$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';
}	}
$r->print('<tr bgcolor='.$bgcol.	$r->print('<tr>'.
'><td><a href="'.$linkdir.'/'.$filename.'">'.$filename.	'<td><a target="_parent" href="/adm/publish?filename=/~'.
'</a></td><td>'.$title.	$uname.$thisdisfn.'/'.$filename.'">'.'Publish</a>'.
'<td>'.localtime($cmtime).'</td><td>'.$status.'</td>'.	'</td>'.
'<td><a target="_parent" href="/adm/publish?filename=/~'.$uname.	'<td>'.
$thisdisfn.'/'.$filename.'">'.	'<a href="'.$linkdir.'/'.$filename.'">'.$filename.'</a>'.
'Publish</a></td></tr>');	'</td>'.
	'<td>'.$title.'</td>'.
	'<td>'.$status.'</td>'.
	'<td>'.localtime($cmtime).'</td>'.
	'</tr>');
} else {	} else {
# "hidden" extension and not a directory, so hide it away.	# "hidden" extension and not a directory, so hide it away.
}	}
Line 191 sub handler {	Line 181 sub handler {
$r->print('</table></body></html>');	$r->print('</table></body></html>');
return OK;	return OK;
}	}
	#
	# Put out a directory table row:
	# putdirectory(r, base, here, dirname, modtime)
	# r - Apache request object.
	# reqfile - File in request.
	# here - Where we are in directory tree.
	# dirname - Name of directory special file.
	# modtime - Encoded modification time.
	#
	sub putdirectory {
	my ($r, $reqfile, $here, $dirname, $modtime) = @_;

	# construct the display filename: the directory name unless ..:

	my $disfilename = $dirname;
	if ($dirname eq '..') {
	$disfilename = '<i>Parent Directory</i>';
	}
	unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|
	($dirname eq '.')) {
	$r->print('<tr>'.
	'<td>Click to cwd</td>'.
	'<td><a href="'.$here.'/'.$dirname.'/">'.
	$disfilename.'</a></td>'.
	'<td> </td>'.
	'<td> </td>'.
	'<td>'.localtime($modtime).'</td>'.
	'</tr>');
	}
	return OK;
	}
1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.20
changed lines
	Added in v.1.21