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.40 and 1.48

version 1.40, 2003/09/25 22:30:06	version 1.48, 2003/12/22 19:30:25
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
#
# (TeX Content Handler
#
# YEAR=2000
# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#
# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer
# YEAR=2001
# 03/23 Guy Albertelli
# 03/24,03/29 Gerd Kortemeyer)
# 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer
# 12/28 Gerd Kortemeyer
#
###	###

package Apache::lonpubdir;	package Apache::lonpubdir;
Line 48 use File::Copy;	Line 35 use File::Copy;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;	use Apache::loncacc;
use Apache::loncommon();	use Apache::loncommon();
	use Apache::lonhtmlcommon();
use Apache::lonlocal;	use Apache::lonlocal;

sub handler {	sub handler {
Line 113 sub handler {	Line 101 sub handler {
my $dirptr=16384; # Mask indicating a directory in stat.cmode.	my $dirptr=16384; # Mask indicating a directory in stat.cmode.

opendir(DIR,$fn);	opendir(DIR,$fn);
my @files=sort(readdir(DIR));	my @files=sort {uc($a) cmp uc($b)} (readdir(DIR));
foreach my $filename (@files) {	foreach my $filename (@files) {
my ($cdev,$cino,$cmode,$cnlink,	my ($cdev,$cino,$cmode,$cnlink,
$cuid,$cgid,$crdev,$csize,	$cuid,$cgid,$crdev,$csize,
Line 213 parent.lastknownpriv='/~$uname/$thisdisf	Line 201 parent.lastknownpriv='/~$uname/$thisdisf
</script>	</script>
ENDPUBDIRSCRIPT	ENDPUBDIRSCRIPT

$r->print('<h1>'.&mt('Construction Space Directory').' <tt>'.	$r->print('<h2>'.&mt('Construction Space Directory').'</h2>'.
$thisdisfn.'/</tt></h1>'.
'<script type="text/javascript">top.document.title = \''.	'<script type="text/javascript">top.document.title = \''.
$thisdisfn.'/ - LON-CAPA Construction Space\';</script>'.	$thisdisfn.'/ - LON-CAPA Construction Space\';</script>'.
$pubdirscript.	$pubdirscript.
Line 234 ENDPUBDIRSCRIPT	Line 221 ENDPUBDIRSCRIPT
$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.	$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.
'</h3>');	'</h3>');
}	}
	$r->print(
	&Apache::lonhtmlcommon::crumbs($thisdisfn,'_top','/priv/'.$uname));
}	}

#	#
Line 277 sub putdirectory {	Line 266 sub putdirectory {
unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|	unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|
($dirname eq '.')) {	($dirname eq '.')) {
$r->print('<tr bgcolor="#CCCCFF">'.	$r->print('<tr bgcolor="#CCCCFF">'.
'<td>Go to ...</td>'.	'<td>'.&mt('Go to ...').'</td>'.
'<td><a href="'.$here.'/'.$dirname.'/" target="_top">'.	'<td><a href="'.$here.'/'.$dirname.'/" target="_top">'.
$disfilename.'</a></td>'.	$disfilename.'</a></td>'.
'<td> </td>'.	'<td> </td>'.
'<td> </td>'.	'<td> </td>'.
'<td>'.localtime($modtime).'</td>'.	'<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.
"</tr>\n");	"</tr>\n");
}	}
return OK;	return OK;
Line 295 sub putresource {	Line 284 sub putresource {
$resdir, $targetdir, $linkdir,	$resdir, $targetdir, $linkdir,
$cmtime) = @_;	$cmtime) = @_;

my $status='Unpublished';	my $status=&mt('Unpublished');
my $bgcolor='#FFCCCC';	my $bgcolor='#FFCCCC';
my $title=' ';	my $title=' ';
if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
Line 304 sub putresource {	Line 293 sub putresource {
$ratime,$rmtime,$rctime,	$ratime,$rmtime,$rctime,
$rblksize,$rblocks)=stat($resdir.'/'.$filename);	$rblksize,$rblocks)=stat($resdir.'/'.$filename);
if ($rmtime>=$cmtime) {	if ($rmtime>=$cmtime) {
$status='Published';	$status=&mt('Published');
$bgcolor='#CCFFCC';	$bgcolor='#CCFFCC';
if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {	if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
$status='Obsolete';	$status=&mt('Obsolete');
$bgcolor='#AAAAAA';	$bgcolor='#AAAAAA';
}	}
$title='<a href="/res/'.$targetdir.'/'.$filename.	$title='<a href="/res/'.$targetdir.'/'.$filename.
'.meta" target=cat>'.	'.meta" target=cat>'.
getTitleString($targetdir.'/'.$filename, 'title').'</a>';	getTitleString($targetdir.'/'.$filename, 'title').'</a>';
} else {	} else {
$status='Modified';	$status=&mt('Modified');
$bgcolor='#FFFFCC';	$bgcolor='#FFFFCC';
$title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.	$title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
getTitleString($targetdir.'/'.$filename,'title').'</a>';	getTitleString($targetdir.'/'.$filename,'title').'</a>';
if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {	if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
$status.='<br><a href="/adm/diff?filename=/~'.$uname.	$status.='<br><a href="/adm/diff?filename=/~'.$uname.
$thisdisfn.'/'.$filename.	$thisdisfn.'/'.$filename.
'&versiontwo=priv" target=cat>Diffs</a>';	'&versiontwo=priv" target=cat>'.&mt('Diffs').'</a>';
}	}
}	}
$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>'.&mt('Retrieve').'</a>';
}	}
my $editlink='';	my $editlink='';
my $editlink2='';	my $editlink2='';
Line 336 sub putresource {	Line 325 sub putresource {
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('EditXML').'</a>)';	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('EditXML').'</a>)';
$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';	$editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';
}	}
	if ($filename=~/\.(zip\|tar\|bz2\|gz\|tar.gz\|tar.bz2\|tgz)$/) {
	$editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'.
	$uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)';
	}
$r->print('<tr bgcolor="'.$bgcolor.'">'.	$r->print('<tr bgcolor="'.$bgcolor.'">'.
'<td><a target="_parent" href="/adm/publish?filename=/~'.	'<td><a target="_parent" href="/adm/publish?filename=/~'.
$uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').'</a>'.	$uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').'</a>'.
Line 345 sub putresource {	Line 338 sub putresource {
$filename.'</a>'.$editlink2.$editlink.	$filename.'</a>'.$editlink2.$editlink.
'</td>'.	'</td>'.
'<td>'.$title.'</td>'.	'<td>'.$title.'</td>'.
'<td>'.&mt($status).'</td>'.	'<td>'.$status.'</td>'.
'<td>'.localtime($cmtime).'</td>'.	'<td>'.&Apache::lonlocal::locallocaltime($cmtime).'</td>'.
"</tr>\n");	"</tr>\n");
return OK;	return OK;
}	}

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

Removed from v.1.40
changed lines
	Added in v.1.48