version 1.40, 2003/09/25 22:30:06
|
version 1.42, 2003/10/04 20:49:40
|
Line 282 sub putdirectory {
|
Line 282 sub putdirectory {
|
$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 304 sub putresource {
|
Line 304 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 345 sub putresource {
|
Line 345 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; |
} |
} |