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.24 and 1.25

version 1.24, 2002/04/09 06:01:56	version 1.25, 2002/06/04 13:13:38
Line 95 sub handler {	Line 95 sub handler {

my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn; # Resource directory	my $resdir=$docroot.'/res/'.$udom.'/'.$uname.$thisdisfn; # Resource directory
my $targetdir=$udom.'/'.$uname.$thisdisfn; # Publiction target directory.	my $targetdir=$udom.'/'.$uname.$thisdisfn; # Publiction target directory.
my $linkdir='/~'.$uname.$thisdisfn; # Full URL name of constr space.	my $linkdir='/priv/'.$uname.$thisdisfn; # Full URL name of constr space.



Line 236 sub putdirectory {	Line 236 sub putdirectory {
}	}
unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|	unless (( ($dirname eq '..') && ($reqfile eq '')) \|\|
($dirname eq '.')) {	($dirname eq '.')) {
$r->print('<tr>'.	$r->print('<tr bgcolor="#CCCCFF">'.
'<td>Click to cwd</td>'.	'<td>Go to ...</td>'.
'<td><a href="'.$here.'/'.$dirname.'/">'.	'<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>'.localtime($modtime).'</td>'.
'</tr>');	"</tr>\n");
}	}
return OK;	return OK;
}	}
Line 256 sub putresource {	Line 256 sub putresource {
$cmtime) = @_;	$cmtime) = @_;

my $status='Unpublished';	my $status='Unpublished';
	my $bgcolor='#FFCCCC';
my $title=' ';	my $title=' ';
if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
my ($rdev,$rino,$rmode,$rnlink,	my ($rdev,$rino,$rmode,$rnlink,
Line 264 sub putresource {	Line 265 sub putresource {
$rblksize,$rblocks)=stat($resdir.'/'.$filename);	$rblksize,$rblocks)=stat($resdir.'/'.$filename);
if ($rmtime>=$cmtime) {	if ($rmtime>=$cmtime) {
$status='Published';	$status='Published';
	$bgcolor='#CCFFCC';
$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='Modified';
	$bgcolor='#FFFFCC';
$title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.	$title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
&Apache::lonnet::metadata($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.
Line 280 sub putresource {	Line 283 sub putresource {
$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>'.	$r->print('<tr bgcolor="'.$bgcolor.'">'.
'<td><a target="_parent" href="/adm/publish?filename=/~'.	'<td><a target="_parent" href="/adm/publish?filename=/~'.
$uname.$thisdisfn.'/'.$filename.'">'.'Publish</a>'.	$uname.$thisdisfn.'/'.$filename.'">'.'Publish</a>'.
'</td>'.	'</td>'.
'<td>'.	'<td>'.
'<a href="'.$linkdir.'/'.$filename.'">'.$filename.'</a>'.	'<a href="'.$linkdir.'/'.$filename.'" target="_top">'.
	$filename.'</a>'.
'</td>'.	'</td>'.
'<td>'.$title.'</td>'.	'<td>'.$title.'</td>'.
'<td>'.$status.'</td>'.	'<td>'.$status.'</td>'.
'<td>'.localtime($cmtime).'</td>'.	'<td>'.localtime($cmtime).'</td>'.
'</tr>');	"</tr>\n");
return OK;	return OK;
}	}
#	#

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

Removed from v.1.24
changed lines
	Added in v.1.25