version 1.55, 2004/01/04 00:50:11
|
version 1.57, 2004/01/06 02:15:12
|
Line 271 sub putdirectory {
|
Line 271 sub putdirectory {
|
($dirname eq '.')) { |
($dirname eq '.')) { |
my $kaputt=0; |
my $kaputt=0; |
foreach (keys %{$bombs}) { |
foreach (keys %{$bombs}) { |
if ($_=~/^$resdir\/$disfilename\//) { $kaputt=1; last; } |
if ($_=~m:^\Q$resdir\E/\Q$disfilename\E/:) { $kaputt=1; last; } |
} |
} |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
my $construct=$here; |
my $construct=$here; |
$construct=~s/^\/priv\/(\w+)$/\/home\/$1\/public_html/; |
$construct=~s:^/priv/(\w+)$:/home/$1/public_html:; |
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( |
&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( |
$construct.'/'.$dirname.'/default.meta' |
$construct.'/'.$dirname.'/default.meta' |
)); |
)); |
Line 284 sub putdirectory {
|
Line 284 sub putdirectory {
|
'<td><img src="'. |
'<td><img src="'. |
$Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" /></td>'. |
$Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" /></td>'. |
'<td>'.&mt('Go to ...').'</td>'. |
'<td>'.&mt('Go to ...').'</td>'. |
'<td><font size="+1" face="arial"><a href="'.$here.'/'.$dirname.'/" target="_top">'. |
'<td><font face="arial"><a href="'.$here.'/'.$dirname.'/" target="_top">'. |
$disfilename.'</a></font></td>'. |
$disfilename.'</a></font></td>'. |
'<td colspan="2">'.($kaputt?'<img src="/adm/lonMisc/bomb.gif" />':'').$Apache::lonpublisher::metadatafields{'title'}.' <i>'. |
'<td colspan="2">'.($kaputt?'<img src="/adm/lonMisc/bomb.gif" />':'').$Apache::lonpublisher::metadatafields{'title'}.' <i>'. |
$Apache::lonpublisher::metadatafields{'subject'}.'</i> '. |
$Apache::lonpublisher::metadatafields{'subject'}.'</i> '. |
Line 328 sub putresource {
|
Line 328 sub putresource {
|
$title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'. |
$title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'. |
&getTitleString($targetdir.'/'.$filename).'</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. |
'&versiontwo=priv" target=cat>'.&mt('Diffs').'</a>'; |
'&versiontwo=priv" target=cat>'.&mt('Diffs').'</a>'; |
} |
} |
Line 357 sub putresource {
|
Line 357 sub putresource {
|
'<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>'. |
'<td><font size="+1" face="arial">'. |
'<td><font face="arial">'. |
'<a href="'.$linkdir.'/'.$filename.'" target="_top">'. |
'<a href="'.$linkdir.'/'.$filename.'" target="_top">'. |
$filename.'</a></font>'.$editlink2.$editlink. |
$filename.'</a></font>'.$editlink2.$editlink. |
'</td>'. |
'</td>'. |