version 1.48, 2011/12/23 17:21:18
|
version 1.52, 2013/06/07 16:07:49
|
Line 99 use strict;
|
Line 99 use strict;
|
use Apache::File; |
use Apache::File; |
use File::Copy; |
use File::Copy; |
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::loncacc; |
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
Line 162 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 195 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 304 sub handler {
|
Line 303 sub handler {
|
my $uname; |
my $uname; |
my $udom; |
my $udom; |
|
|
($uname,$udom) = &Apache::loncacc::constructaccess($fn); |
($uname,$udom) = &Apache::lonnet::constructaccess($fn); |
unless (($uname ne '') && ($udom ne '')) { |
unless (($uname ne '') && ($udom ne '')) { |
$r->log_reason($uname.' at '.$udom. |
$r->log_reason($uname.' at '.$udom. |
' trying to publish file '.$env{'form.filename'}. |
' trying to publish file '.$env{'form.filename'}. |
Line 319 sub handler {
|
Line 318 sub handler {
|
# Breadcrumbs |
# Breadcrumbs |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |
'text' => 'Construction Space', |
'text' => 'Authoring Space', |
'href' => &Apache::loncommon::authorspace($fn), |
'href' => &Apache::loncommon::authorspace($fn), |
}); |
}); |
&Apache::lonhtmlcommon::add_breadcrumb({ |
&Apache::lonhtmlcommon::add_breadcrumb({ |