version 1.59, 2004/01/29 00:44:43
|
version 1.60, 2004/06/07 22:34:12
|
Line 312 sub putresource {
|
Line 312 sub putresource {
|
my $status=&mt('Unpublished'); |
my $status=&mt('Unpublished'); |
my $bgcolor='#FFAA99'; |
my $bgcolor='#FFAA99'; |
my $title=' '; |
my $title=' '; |
|
my $publish_button=&mt('Publish'); |
if (-e $resdir.'/'.$filename) { |
if (-e $resdir.'/'.$filename) { |
my ($rdev,$rino,$rmode,$rnlink, |
my ($rdev,$rino,$rmode,$rnlink, |
$ruid,$rgid,$rrdev,$rsize, |
$ruid,$rgid,$rrdev,$rsize, |
$ratime,$rmtime,$rctime, |
$ratime,$rmtime,$rctime, |
$rblksize,$rblocks)=stat($resdir.'/'.$filename); |
$rblksize,$rblocks)=stat($resdir.'/'.$filename); |
|
$publish_button=&mt('Re-Publish'); |
if ($rmtime>=$cmtime) { |
if ($rmtime>=$cmtime) { |
$status=&mt('Published').'<br />'. |
$status=&mt('Published').'<br />'. |
&mt(&getCopyRightString($targetdir.'/'.$filename)); |
&mt(&getCopyRightString($targetdir.'/'.$filename)); |
$bgcolor='#CCFF88'; |
$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 362 sub putresource {
|
Line 364 sub putresource {
|
'<td>'.($filename=~/[\#\~]$/?' ': |
'<td>'.($filename=~/[\#\~]$/?' ': |
'<img src="'.&Apache::loncommon::icon($filename).'" /></td>'). |
'<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.'">'.$publish_button.'</a>'. |
'</td>'. |
'</td>'. |
'<td><font face="arial">'. |
'<td><font face="arial">'. |
'<a href="'.$linkdir.'/'.$filename.'" target="_top">'. |
'<a href="'.$linkdir.'/'.$filename.'" target="_top">'. |