--- loncom/publisher/lonretrieve.pm 2013/06/07 16:07:49 1.52 +++ loncom/publisher/lonretrieve.pm 2023/07/23 12:24:16 1.53 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to retrieve an old version of a file # -# $Id: lonretrieve.pm,v 1.52 2013/06/07 16:07:49 bisitz Exp $ +# $Id: lonretrieve.pm,v 1.53 2023/07/23 12:24:16 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -302,6 +302,7 @@ sub handler { # ----------------------------------------------------------- Start page output my $uname; my $udom; + my $crsauthor; ($uname,$udom) = &Apache::lonnet::constructaccess($fn); unless (($uname ne '') && ($udom ne '')) { @@ -316,10 +317,20 @@ sub handler { $r->send_http_header; # 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::add_breadcrumb({ - 'text' => 'Authoring Space', - 'href' => &Apache::loncommon::authorspace($fn), + 'text' => $text, + 'href' => $href, }); &Apache::lonhtmlcommon::add_breadcrumb({ 'text' => 'Retrieve previous version', @@ -342,13 +353,15 @@ sub handler { .&mt('Retrieve previous versions of [_1]' ,''.$fn.'') .'

'); - - 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('

' .&mt('Co-Author [_1]' ,&Apache::loncommon::plainname($uname,$udom) .' ('.$uname.':'.$udom.')') .'

'); + } }