version 1.49, 2012/10/29 17:38:55
|
version 1.53, 2023/07/23 12:24:16
|
Line 161 sub phaseone {
|
Line 161 sub phaseone {
|
|| &Apache::loncommon::fileembstyle($suffix) eq 'ssi') { |
|| &Apache::loncommon::fileembstyle($suffix) eq 'ssi') { |
$r->print('<td>'. |
$r->print('<td>'. |
&Apache::loncommon::modal_link( |
&Apache::loncommon::modal_link( |
'/adm/diff?filename=/priv/'.$udom,'/'.$uname.$fn. |
'/adm/diff?filename=/priv/'.$udom.'/'.$uname.$fn. |
'&versiontwo=priv&versionone='.$version, |
'&versiontwo=priv&versionone='.$version, |
&mt('Diffs with Version [_1]',$version),550,450). |
&mt('Diffs with Version [_1]',$version),550,450). |
'</td>'); |
'</td>'); |
Line 194 sub phaseone {
|
Line 194 sub phaseone {
|
$r->print(&Apache::loncommon::end_data_table_row(). |
$r->print(&Apache::loncommon::end_data_table_row(). |
&Apache::loncommon::end_data_table(). |
&Apache::loncommon::end_data_table(). |
'<p>'.'<span class="LC_warning">'. |
'<p>'.'<span class="LC_warning">'. |
&mt('Retrieval of an old version will overwrite the file currently in construction space.').'</span></p>'); |
&mt('Retrieval of an old version will overwrite the file currently in Authoring Space.').'</span></p>'); |
if (!$is_meta) { |
if (!$is_meta) { |
$r->print('<p>'.'<span class="LC_warning">'. |
$r->print('<p>'.'<span class="LC_warning">'. |
&mt('This will only retrieve the resource. If you want to retrieve the metadata, you will need to do that separately.'). |
&mt('This will only retrieve the resource. If you want to retrieve the metadata, you will need to do that separately.'). |
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' => 'Construction 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>'); |
|
} |
} |
} |
|
|
|
|