version 1.54, 2004/01/03 15:57:11
|
version 1.55, 2004/01/04 00:50:11
|
Line 245 sub getTitleString {
|
Line 245 sub getTitleString {
|
return $title; |
return $title; |
} |
} |
|
|
|
sub getCopyRightString { |
|
my $fullname = shift; |
|
return &Apache::lonnet::metadata($fullname, 'copyright'); |
|
} |
# |
# |
# Put out a directory table row: |
# Put out a directory table row: |
# putdirectory(r, base, here, dirname, modtime) |
# putdirectory(r, base, here, dirname, modtime) |
Line 308 sub putresource {
|
Line 311 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=&mt('Published'); |
$status=&mt('Published').'<br />'. |
|
&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'); |
Line 316 sub putresource {
|
Line 320 sub putresource {
|
} |
} |
$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).'</a>'; |
} else { |
} else { |
$status=&mt('Modified'); |
$status=&mt('Modified').'<br />'. |
|
&mt(&getCopyRightString($targetdir.'/'.$filename)); |
$bgcolor='#FFFF77'; |
$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).'</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. |