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.49 and 1.53

version 1.49, 2003/12/29 19:01:27	version 1.53, 2004/01/03 15:11:37
Line 37 use Apache::loncacc;	Line 37 use Apache::loncacc;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonmsg;

sub handler {	sub handler {

Line 85 sub handler {	Line 86 sub handler {
my $targetdir=$udom.'/'.$uname.$thisdisfn; # Publiction target directory.	my $targetdir=$udom.'/'.$uname.$thisdisfn; # Publiction target directory.
my $linkdir='/priv/'.$uname.$thisdisfn; # Full URL name of constr space.	my $linkdir='/priv/'.$uname.$thisdisfn; # Full URL name of constr space.

	my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);

&startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page.	&startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page.

# Start off the diretory table.	# Start off the directory table.

$r->print('<table border=2>'.	$r->print('<table border="0" cellspacing="2" cellpadding="2">'.
'<tr><th>'.&mt('Actions').'</th><th>'.&mt('Name').'</th><th>'.	'<tr><th> </th><th>'.&mt('Actions').'</th><th>'.&mt('Name').'</th><th>'.
&mt('Title').'</th>'.	&mt('Title').'</th>'.
'<th>'.&mt('Status').'</th><th>'.&mt('Last Modified').	'<th>'.&mt('Status').'</th><th>'.&mt('Last Modified').
'</th></tr>');	'</th></tr>');
Line 111 sub handler {	Line 112 sub handler {
my $extension='';	my $extension='';
if ($filename=~/\.(\w+)$/) { $extension=$1; }	if ($filename=~/\.(\w+)$/) { $extension=$1; }
if ($cmode&$dirptr) {	if ($cmode&$dirptr) {
putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime);	putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime,$targetdir,\%bombs);
} elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {	} elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {
putresource($r, $uname, $filename, $thisdisfn, $resdir,	putresource($r, $uname, $filename, $thisdisfn, $resdir,
$targetdir, $linkdir, $cmtime);	$targetdir, $linkdir, $cmtime,\%bombs);
} else {	} else {
# "hidden" extension and not a directory, so hide it away.	# "hidden" extension and not a directory, so hide it away.
}	}
Line 222 ENDPUBDIRSCRIPT	Line 223 ENDPUBDIRSCRIPT
'</h3>');	'</h3>');
}	}
$r->print(	$r->print(
&Apache::lonhtmlcommon::crumbs($thisdisfn.'/','_top','/priv/'.$uname));	&Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn.'/','_top','/priv').'<br />');
}	}

#	#
Line 255 sub getTitleString {	Line 256 sub getTitleString {
# modtime - Encoded modification time.	# modtime - Encoded modification time.
#	#
sub putdirectory {	sub putdirectory {
my ($r, $reqfile, $here, $dirname, $modtime) = @_;	my ($r, $reqfile, $here, $dirname, $modtime, $resdir, $bombs) = @_;

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

Line 265 sub putdirectory {	Line 266 sub putdirectory {
}	}
unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|	unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|
($dirname eq '.')) {	($dirname eq '.')) {
	my $kaputt=0;
	foreach (keys %{$bombs}) {
	if ($_=~/^$resdir\/$disfilename\//) { $kaputt=1; last; }
	}
	%Apache::lonpublisher::metadatafields=();
	%Apache::lonpublisher::metadatakeys=();
	my $construct=$here;
	$construct=~s/^\/priv\/(\w+)$/\/home\/$1\/public_html/;
	&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile(
	$construct.'/'.$dirname.'/default.meta'
	));
$r->print('<tr bgcolor="#CCCCFF">'.	$r->print('<tr bgcolor="#CCCCFF">'.
	'<td><img src="'.
	$Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" /></td>'.
'<td>'.&mt('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 colspan="2">'.($kaputt?'<img src="/adm/lonMisc/bomb.gif" />':'').$Apache::lonpublisher::metadatafields{'title'}.' <i>'.
'<td> </td>'.	$Apache::lonpublisher::metadatafields{'subject'}.'</i> '.
	$Apache::lonpublisher::metadatafields{'keywords'}.'</td>'.
'<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.	'<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.
"</tr>\n");	"</tr>\n");
}	}
Line 282 sub putdirectory {	Line 297 sub putdirectory {
sub putresource {	sub putresource {
my ($r, $uname, $filename, $thisdisfn,	my ($r, $uname, $filename, $thisdisfn,
$resdir, $targetdir, $linkdir,	$resdir, $targetdir, $linkdir,
$cmtime) = @_;	$cmtime,$bombs) = @_;

my $status=&mt('Unpublished');	my $status=&mt('Unpublished');
my $bgcolor='#FFCCCC';	my $bgcolor='#FFAA99';
my $title=' ';	my $title=' ';
if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
my ($rdev,$rino,$rmode,$rnlink,	my ($rdev,$rino,$rmode,$rnlink,
Line 294 sub putresource {	Line 309 sub putresource {
$rblksize,$rblocks)=stat($resdir.'/'.$filename);	$rblksize,$rblocks)=stat($resdir.'/'.$filename);
if ($rmtime>=$cmtime) {	if ($rmtime>=$cmtime) {
$status=&mt('Published');	$status=&mt('Published');
$bgcolor='#CCFFCC';	$bgcolor='#CCFF88';
if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {	if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
$status=&mt('Obsolete');	$status=&mt('Obsolete');
$bgcolor='#AAAAAA';	$bgcolor='#AAAAAA';
Line 304 sub putresource {	Line 319 sub putresource {
getTitleString($targetdir.'/'.$filename, 'title').'</a>';	getTitleString($targetdir.'/'.$filename, 'title').'</a>';
} else {	} else {
$status=&mt('Modified');	$status=&mt('Modified');
$bgcolor='#FFFFCC';	$bgcolor='#FFFF77';
$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') {
Line 312 sub putresource {	Line 327 sub putresource {
$thisdisfn.'/'.$filename.	$thisdisfn.'/'.$filename.
'&versiontwo=priv" target=cat>'.&mt('Diffs').'</a>';	'&versiontwo=priv" target=cat>'.&mt('Diffs').'</a>';
}	}
}	}
	$title.='<br /><a href="/~'.$uname.$thisdisfn.'/'.$filename.'.meta">'.
	($$bombs{$targetdir.'/'.$filename}?'<img src="/adm/lonMisc/bomb.gif" border="0" />':'Edit Metadata').'</a>';
$status.='<br><a href="/adm/retrieve?filename=/~'.$uname.	$status.='<br><a href="/adm/retrieve?filename=/~'.$uname.
$thisdisfn.'/'.$filename.'" target=cat>'.&mt('Retrieve').'</a>';	$thisdisfn.'/'.$filename.'" target=cat>'.&mt('Retrieve').'</a>';
}	}
Line 330 sub putresource {	Line 347 sub putresource {
$uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)';	$uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)';
}	}
$r->print('<tr bgcolor="'.$bgcolor.'">'.	$r->print('<tr bgcolor="'.$bgcolor.'">'.
	'<td>'.($filename=~/[\#\~]$/?' ':
	'<img src="'.&Apache::loncommon::icon($filename).'" /></td>').
'<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>'.
'</td>'.	'</td>'.

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

Removed from v.1.49
changed lines
	Added in v.1.53