version 1.52, 2013/06/07 16:07:49
|
version 1.53, 2023/07/23 12:24:16
|
Line 302 sub handler {
|
Line 302 sub handler {
|
# ----------------------------------------------------------- Start page output |
# ----------------------------------------------------------- Start page output |
my $uname; |
my $uname; |
my $udom; |
my $udom; |
|
my $crsauthor; |
|
|
($uname,$udom) = &Apache::lonnet::constructaccess($fn); |
($uname,$udom) = &Apache::lonnet::constructaccess($fn); |
unless (($uname ne '') && ($udom ne '')) { |
unless (($uname ne '') && ($udom ne '')) { |
Line 316 sub handler {
|
Line 317 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
|
|
# Breadcrumbs |
# Breadcrumbs |
|
my $text = 'Authoring Space'; |
|
my $href = &Apache::loncommon::authorspace($fn); |
|
if ($env{'request.course.id'}) { |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
if ($href eq "/priv/$cdom/$cnum/") { |
|
$text = 'Course Authoring Space'; |
|
$crsauthor = 1; |
|
} |
|
} |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Authoring Space', |
'text' => $text, |
'href' => &Apache::loncommon::authorspace($fn), |
'href' => $href, |
}); |
}); |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Retrieve previous version', |
'text' => 'Retrieve previous version', |
Line 342 sub handler {
|
Line 353 sub handler {
|
.&mt('Retrieve previous versions of [_1]' |
.&mt('Retrieve previous versions of [_1]' |
,'<span class="LC_filename">'.$fn.'</span>') |
,'<span class="LC_filename">'.$fn.'</span>') |
.'</p>'); |
.'</p>'); |
|
|
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
unless ($crsauthor) { |
|
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
$r->print('<p><span class="LC_info">' |
$r->print('<p><span class="LC_info">' |
.&mt('Co-Author [_1]' |
.&mt('Co-Author [_1]' |
,&Apache::loncommon::plainname($uname,$udom) |
,&Apache::loncommon::plainname($uname,$udom) |
.' ('.$uname.':'.$udom.')') |
.' ('.$uname.':'.$udom.')') |
.'</span></p>'); |
.'</span></p>'); |
|
} |
} |
} |
|
|
|
|