--- loncom/publisher/lonretrieve.pm 2008/12/21 04:38:43 1.34.2.2 +++ loncom/publisher/lonretrieve.pm 2011/10/23 01:27:34 1.43 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to retrieve an old version of a file # -# $Id: lonretrieve.pm,v 1.34.2.2 2008/12/21 04:38:43 raeburn Exp $ +# $Id: lonretrieve.pm,v 1.43 2011/10/23 01:27:34 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -28,6 +28,71 @@ # ### +=head1 NAME + +Apache::lonretrieve - retrieves an old version of a file + +=head1 SYNOPSIS + +Invoked by /etc/httpd/conf/srm.conf: + + + PerlAccessHandler Apache::lonacc + SetHandler perl-script + PerlHandler Apache::lonretrieve + ErrorDocument 403 /adm/login + ErrorDocument 404 /adm/notfound.html + ErrorDocument 406 /adm/unauthorized.html + ErrorDocument 500 /adm/errorhandler + + +=head1 INTRODUCTION + +This module retrieves an old published version of a file. + +This is part of the LearningOnline Network with CAPA project +described at http://www.lon-capa.org. + +=head1 HANDLER SUBROUTINE + +This routine is called by Apache and mod_perl. + +=over 4 + +=item * + +Get query string for limited number of parameters + +=item * + +Start page output + +=item * + +print phase relevant output + +=item * + +(phase one is to select version; phase two retrieves version) + +=back + +=head1 OTHER SUBROUTINES + +=over 4 + +=item * + +phaseone() : Interface for selecting previous version. + +=item * + +phasetwo() : Interface for presenting specified version. + +=back + +=cut + package Apache::lonretrieve; use strict; @@ -55,7 +120,7 @@ sub phaseone { my ($main,$suffix,$is_meta) = &get_file_info($fn); if (-e $resfn) { - $r->print('
'. + $r->print(''. ''. ''. &Apache::loncommon::start_data_table(). @@ -87,11 +152,11 @@ sub phaseone { my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate'); $r->print(&Apache::loncommon::start_data_table_row(). ''.&mt('Previously published version').' '.$version.''. - localtime($rmtime).''); + $version.'" />'.&mt('Previously published version').' '.$version.''. + ''.&Apache::lonlocal::locallocaltime($rmtime).''); if (!$is_meta) { - $r->print(''. + $r->print(''. &mt('Metadata Version').' '.$version.''); } if ($is_meta @@ -110,10 +175,11 @@ sub phaseone { my $rmtime=&Apache::lonnet::metadata($resfn,'lastrevisiondate'); $r->print(&Apache::loncommon::start_data_table_row(). ''. - ''.&mt('Currently published version').''.localtime($rmtime). - ''); + ''.&mt('Currently published version').''. + ''.&Apache::lonlocal::locallocaltime($rmtime).'' + ); if (!$is_meta) { - $r->print(''. + $r->print(''. &mt('Metadata current version').''); } if ($is_meta @@ -130,15 +196,28 @@ sub phaseone { &mt('Retrieval of an old version will overwrite the file currently in construction space.').'

'); if (!$is_meta) { $r->print('

'.''. - &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.'). '

'); } - $r->print('
'); + $r->print(''); } else { $r->print('

'.&mt('No previous versions published.').'

'); } - $r->print('

'.&mt('Back to [_1]',''.$fn.'') - .'

'); + + my $dir = &Apache::loncommon::authorspace() + .&File::Basename::dirname($fn) + .'/'; + $r->print(&Apache::lonhtmlcommon::start_funclist() + .&Apache::lonhtmlcommon::add_item_funclist( + '' + .&mt('Back to Resource') + .'') + .&Apache::lonhtmlcommon::add_item_funclist( + '' + .&mt('Back to Directory') + .'') + .&Apache::lonhtmlcommon::end_funclist() + ); } # ---------------------------------- Interface for presenting specified version @@ -154,7 +233,7 @@ sub phasetwo { my ($main,$suffix,$is_meta) = &get_file_info($fn); my $logfile; - my $ctarget='/home/'.$uname.'/public_html'.$fn; + my $ctarget=$r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.$fn; my $vfn=$fn; if ($version ne 'new') { $vfn=~s/\.(\Q$suffix\E)$/\.$version\.$1/; @@ -166,9 +245,9 @@ sub phasetwo { if ($is_meta) { $logname =~ s/\.meta$//; } $logname = $ctarget.'.log'; unless ($logfile=Apache::File->new('>>'.$logname)) { - $r->print('' - .&mt('No write permission to user directory, FAIL') - .''); + $r->print('' + .&mt('No write permission to user directory, FAIL') + .''); } print $logfile "\n\n================= Retrieve ".localtime()." ================\n". @@ -176,20 +255,20 @@ sub phasetwo { $r->print('

'.&mt('Copying file').': '); if (copy($csource,$ctarget)) { $r->print('' - .&mt('ok') - .''); + .&mt('ok') + .''); print $logfile "Copied sucessfully.\n\n"; } else { my $error=$!; $r->print('' - .&mt('Copy failed: [_1]',$error) - .''); + .&mt('Copy failed: [_1]',$error) + .''); print $logfile "Copy failed: $error\n\n"; } $r->print('

' - .'

' - .&mt('Back to [_1]',$fn) - .'

'); + .'

' + .&mt('Back to Resource') + .'

'); } else { $r->print('

'.&mt('Please pick a version to retrieve:').'

'); &phaseone($r,$fn,$uname,$udom); @@ -255,18 +334,34 @@ sub handler { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; - $r->print(&Apache::loncommon::start_page('Retrieve Published Resources')); - - - $r->print('

' - .&mt('Retrieve previous versions of [_1]' - ,''.$fn.'') - .'

'); + # Breadcrumbs + &Apache::lonhtmlcommon::clear_breadcrumbs(); + &Apache::lonhtmlcommon::add_breadcrumb({ + 'text' => 'Construction Space', + 'href' => &Apache::loncommon::authorspace(), + }); + &Apache::lonhtmlcommon::add_breadcrumb({ + 'text' => 'Retrieve previous version', + 'href' => '', + }); + + $r->print(&Apache::loncommon::start_page('Retrieve Published Resources') + .&Apache::lonhtmlcommon::breadcrumbs() + .&Apache::loncommon::head_subbox( + &Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken? + ); + + $r->print('

' + .&mt('Retrieve previous versions of [_1]' + ,''.$fn.'') + .'

'); if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { - $r->print('

'.&mt('Co-Author').': '.$uname. - &mt(' at ').$udom. - '

'); + $r->print('

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

'); } @@ -283,67 +378,4 @@ sub handler { 1; __END__ -=head1 NAME - -Apache::lonretrieve - retrieves an old version of a file - -=head1 SYNOPSIS - -Invoked by /etc/httpd/conf/srm.conf: - - PerlAccessHandler Apache::lonacc - SetHandler perl-script - PerlHandler Apache::lonretrieve - ErrorDocument 403 /adm/login - ErrorDocument 404 /adm/notfound.html - ErrorDocument 406 /adm/unauthorized.html - ErrorDocument 500 /adm/errorhandler - - -=head1 INTRODUCTION - -This module retrieves an old published version of a file. - -This is part of the LearningOnline Network with CAPA project -described at http://www.lon-capa.org. - -=head1 HANDLER SUBROUTINE - -This routine is called by Apache and mod_perl. - -=over 4 - -=item * - -Get query string for limited number of parameters - -=item * - -Start page output - -=item * - -print phase relevant output - -=item * - -(phase one is to select version; phase two retrieves version) - -=back - -=head1 OTHER SUBROUTINES - -=over 4 - -=item * - -phaseone() : Interface for selecting previous version. - -=item * - -phasetwo() : Interface for presenting specified version. - -=back - -=cut