version 1.207, 2007/05/12 23:04:07
|
version 1.212, 2008/03/06 20:20:18
|
Line 839 sub report_bombs {
|
Line 839 sub report_bombs {
|
&Apache::lonmsg::clear_author_res_msg($uri); |
&Apache::lonmsg::clear_author_res_msg($uri); |
} |
} |
my $clear=&mt('Clear all Messages in Subdirectory'); |
my $clear=&mt('Clear all Messages in Subdirectory'); |
$r->print(<<ENDCLEAR); |
my $cancel=&mt('Back to Directory'); |
|
my $cancelurl=$uri; |
|
$cancelurl=~s/^\Q$domain\E/\/priv/; |
|
$r->print(<<ENDCLEAR); |
<form method="post"> |
<form method="post"> |
<input type="submit" name="clearbombs" value="$clear" /> |
<input type="submit" name="clearbombs" value="$clear" /> |
</form> |
<a href="$cancelurl">$cancel</a> |
|
</form><hr /> |
ENDCLEAR |
ENDCLEAR |
my %brokenurls = |
my %brokenurls = |
&Apache::lonmsg::all_url_author_res_msg($author,$domain); |
&Apache::lonmsg::all_url_author_res_msg($author,$domain); |
Line 1074 sub print_dynamic_metadata {
|
Line 1078 sub print_dynamic_metadata {
|
$table .= '</table>'.$/; |
$table .= '</table>'.$/; |
$r->print($table); |
$r->print($table); |
} else { |
} else { |
$r->print('No new dynamic data found.'); |
$r->print(&mt('No new dynamic data found.')); |
} |
} |
} else { |
} else { |
$r->print('<h4>'. |
$r->print('<h4>'. |
Line 1212 ENDBOMBS
|
Line 1216 ENDBOMBS
|
<input type="submit" name="clearmsg" value="$clear" /> |
<input type="submit" name="clearmsg" value="$clear" /> |
ENDDEL |
ENDDEL |
} else { |
} else { |
$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>'); |
$r->print('<p><a href="'.$disuri.'">'.$goback.'</a></p>'); |
if ($env{'form.clearmsg'}) { |
if ($env{'form.clearmsg'}) { |
my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); |
my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); |
$r->print('<p><a href="'.$diruri.'" />'. |
$r->print('<p><a href="'.$diruri.'">'. |
&mt('Back To Directory').'</a></p>'); |
&mt('Back To Directory').'</a></p>'); |
} |
} |
} |
} |
$r->print('<br />'.$bombs); |
$r->print('<br />'.$bombs); |
} else { |
} else { |
my $displayfile='Catalog Information for '.$disuri; |
my $displayfile=&mt('Catalog Information for [_1]',$disuri); |
if ($disuri=~/\/default$/) { |
if ($disuri=~/\/default$/) { |
my $dir=$disuri; |
my $dir=$disuri; |
$dir=~s/default$//; |
$dir=~s/default$//; |
$displayfile= |
$displayfile=&mt('Default Cataloging Information for Directory [_1]',$dir); |
&mt('Default Cataloging Information for Directory').' '. |
|
$dir; |
|
} |
} |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
Line 1312 ENDEDIT
|
Line 1314 ENDEDIT
|
$Apache::lonpublisher::metadatafields{'owner'} = |
$Apache::lonpublisher::metadatafields{'owner'} = |
$env{'user.name'}.':'.$env{'user.domain'}; |
$env{'user.name'}.':'.$env{'user.domain'}; |
} |
} |
|
if (! $Apache::lonpublisher::metadatafields{'author'}) { |
|
$Apache::lonpublisher::metadatafields{'author'} = |
|
&Apache::loncommon::plainname($env{'user.name'}, |
|
$env{'user.domain'}); |
|
} |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
|
|
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
Line 1327 ENDEDIT
|
Line 1334 ENDEDIT
|
".description"}.'</strong>').'<br />'); |
".description"}.'</strong>').'<br />'); |
} |
} |
} else { |
} else { |
$r->print('<a href="'.$uri.'?changecourse=true">This resource is not associated with a course.</a><br />'); |
$r->print('<a href="'.$uri.'?changecourse=true">'.&mt('This resource is not associated with a course.').'</a><br />'); |
} |
} |
} |
} |
if (@added_order) { |
if (@added_order) { |