[BACK]Return to lonretrieve.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonretrieve.pm between versions 1.46 and 1.50

version 1.46, 2011/10/31 17:27:10 version 1.50, 2012/12/05 16:57:29
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 118  sub phaseone { Line 117  sub phaseone {
     my ($main,$suffix,$is_meta) = &get_file_info($fn);      my ($main,$suffix,$is_meta) = &get_file_info($fn);
           
     if (-e $resfn) {        if (-e $resfn) {  
  $r->print('<form action="/adm/retrieve" method="post">'.   $r->print('<form action="/adm/retrieve?inhibitmenu=yes" method="post">'.
   '<input type="hidden" name="filename" value="/priv/'.$udom.'/'.$uname.$fn.'" />'.    '<input type="hidden" name="filename" value="/priv/'.$udom.'/'.$uname.$fn.'" />'.
   '<input type="hidden" name="phase" value="two" />'.    '<input type="hidden" name="phase" value="two" />'.
   &Apache::loncommon::start_data_table().    &Apache::loncommon::start_data_table().
Line 154  sub phaseone { Line 153  sub phaseone {
               '<td>'.&Apache::lonlocal::locallocaltime($rmtime).'</td>');                '<td>'.&Apache::lonlocal::locallocaltime($rmtime).'</td>');
   
  if (!$is_meta) {   if (!$is_meta) {
     $r->print('<td><a href="'.$urldir.$filename.'.meta" target="cat">'.      $r->print('<td>'.
       &mt('Metadata Version').' '.$version.'</a></td>');                                &Apache::loncommon::modal_link($urldir.$filename.'.meta',
         &mt('Metadata Version [_1]',$version),550,450).'</td>');
  }   }
  if ($is_meta   if ($is_meta
     || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {      || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {
     $r->print(      $r->print('<td>'.
       '<td><a target="cat" href="/adm/diff?filename=/priv/'.                                &Apache::loncommon::modal_link(
       $udom,'/'.$uname.$fn.                                 '/adm/diff?filename=/priv/'.$udom.'/'.$uname.$fn.
       '&amp;versiontwo=priv&amp;versionone='.$version.        '&amp;versiontwo=priv&amp;versionone='.$version,
       '">'.&mt('Diffs with Version').' '.$version.         &mt('Diffs with Version [_1]',$version),550,450).
       '</a></td>');        '</td>');
  }   }
  $r->print(&Apache::loncommon::end_data_table_row());   $r->print(&Apache::loncommon::end_data_table_row());
     }      }
Line 177  sub phaseone { Line 177  sub phaseone {
           '<td>'.&Apache::lonlocal::locallocaltime($rmtime).'</td>'            '<td>'.&Apache::lonlocal::locallocaltime($rmtime).'</td>'
     );      );
  if (!$is_meta) {   if (!$is_meta) {
     $r->print('<td><a href="'.$urldir.$main.'.'.$suffix.'.meta" target="cat">'.      $r->print('<td>',
       &mt('Metadata current version').'</a></td>');                                   &Apache::loncommon::modal_link($urldir.$main.'.'.$suffix.'.meta',
         &mt('Metadata current version'),550,450).'</td>');           
  }   }
  if ($is_meta    if ($is_meta 
     || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {      || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {
     $r->print(      $r->print('<td>'.
       '<td><a target="cat" href="/adm/diff?filename=/priv/'.                        &Apache::loncommon::modal_link(
                          '/adm/diff?filename=/priv/'.
       $udom.'/'.$uname.$fn.        $udom.'/'.$uname.$fn.
       '&amp;versiontwo=priv'.        '&amp;versiontwo=priv',
       '">'.&mt('Diffs with current Version').'</a></td>');        &mt('Diffs with current Version'),550,450).
                         '</td>');
  }   }
  $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().
Line 202  sub phaseone { Line 205  sub phaseone {
  $r->print('<p class="LC_warning">'.&mt('No previous versions published.').'</p>');   $r->print('<p class="LC_warning">'.&mt('No previous versions published.').'</p>');
     }      }
   
     my $dir =  &Apache::loncommon::authorspace()  
               .&File::Basename::dirname($fn)  
               .'/';  
     $r->print('<br />'  
              .&Apache::loncommon::head_subbox(  
                   &Apache::lonhtmlcommon::start_funclist()  
                  .&Apache::lonhtmlcommon::add_item_funclist(  
                      '<a href="/priv/'.$udom.'/'.$uname.$fn.'">'  
                     .&mt('Back to Resource')  
                     .'</a>')  
                  .&Apache::lonhtmlcommon::add_item_funclist(  
                      '<a href="'.$dir.'">'  
                     .&mt('Back to Directory')  
                     .'</a>')  
                  .&Apache::lonhtmlcommon::end_funclist()  
              )  
     );  
 }  }
   
 # ---------------------------------- Interface for presenting specified version  # ---------------------------------- Interface for presenting specified version
Line 259  sub phasetwo { Line 245  sub phasetwo {
                      .&mt('ok')                       .&mt('ok')
                      .'</span>');                       .'</span>');
             print $logfile "Copied sucessfully.\n\n";              print $logfile "Copied sucessfully.\n\n";
               $r->print(&Apache::lonhtmlcommon::scripttag('parent.location.reload();'));
         } else {          } else {
             my $error=$!;              my $error=$!;
     $r->print('<span class="LC_error">'      $r->print('<span class="LC_error">'
Line 266  sub phasetwo { Line 253  sub phasetwo {
                      .'</span>');                       .'</span>');
             print $logfile "Copy failed: $error\n\n";              print $logfile "Copy failed: $error\n\n";
         }          }
         $r->print('</p>'  
                  .'<p><a href="/priv/'.$udom.'/'.$uname.$fn.'">'  
                  .&mt('Back to Resource')  
                  .'</a></p>');  
     } else {      } else {
        $r->print('<p class="LC_info">'.&mt('Please pick a version to retrieve:').'</p>');         $r->print('<p class="LC_info">'.&mt('Please pick a version to retrieve:').'</p>');
        &phaseone($r,$fn,$uname,$udom);         &phaseone($r,$fn,$uname,$udom);
Line 320  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 336  sub handler { Line 319  sub handler {
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({      &Apache::lonhtmlcommon::add_breadcrumb({
         'text'  => 'Construction Space',          'text'  => 'Construction Space',
         'href'  => &Apache::loncommon::authorspace(),          'href'  => &Apache::loncommon::authorspace($fn),
     });      });
     &Apache::lonhtmlcommon::add_breadcrumb({      &Apache::lonhtmlcommon::add_breadcrumb({
         'text'  => 'Retrieve previous version',          'text'  => 'Retrieve previous version',
Removed from v.1.46  
changed lines
  Added in v.1.50

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>