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

Diff for /loncom/publisher/lonretrieve.pm between versions 1.31 and 1.32

version 1.31, 2006/09/13 21:43:26 version 1.32, 2006/09/19 21:47:29
Line 54  sub phaseone { Line 54  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" method="POST">'.
       '<input type=hidden name=filename value="/~'.$uname.$fn.'">'.    '<input type="hidden" name="filename" value="/~'.$uname.$fn.'" />'.
               '<input type=hidden name=phase value=two>'.    '<input type="hidden" name="phase" value="two" />'.
               '<table border=2><tr><th>'.&mt('Select').'</th><th>'.    &Apache::loncommon::start_data_table().
       &mt('Version').'</th>'.    &Apache::loncommon::start_data_table_header_row().
               '<th>'.&mt('Published on ...').'</th>');    '<th>'.&mt('Select').'</th>'.
     if (!$is_meta) {    '<th>'.&mt('Version').'</th>'.
  $r->print('<th>'.&mt('Metadata').'</th>');    '<th>'.&mt('Published on ...').'</th>');
     }   if (!$is_meta) {
     if ($is_meta      $r->print('<th>'.&mt('Metadata').'</th>');
  || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {   }
  $r->print('<th>'.&mt('Diffs').'</th>');   if ($is_meta
     }      || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {
     $r->print('</tr>');      $r->print('<th>'.&mt('Diffs').'</th>');
        }
     opendir(DIR,$resdir);   $r->print(&Apache::loncommon::end_data_table_header_row());
     my @files = grep(/^\Q$main\E\.(\d+)\.\Q$suffix\E$/,readdir(DIR));  
     @files = sort {   opendir(DIR,$resdir);
  my ($aver) = ($a=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/);   my @files = grep(/^\Q$main\E\.(\d+)\.\Q$suffix\E$/,readdir(DIR));
  my ($bver) = ($b=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/);   @files = sort {
  return $aver <=> $bver;      my ($aver) = ($a=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/);
     } (@files);      my ($bver) = ($b=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/);
     closedir(DIR);      return $aver <=> $bver;
    } (@files);
     foreach my $filename (@files) {   closedir(DIR);
         if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {  
    my $version=$1;   foreach my $filename (@files) {
            my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate');      if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {
            $r->print('<tr><td><input type=radio name=version value="'.   my $version=$1;
                      $version.'"></td><td>'.&mt('Previously published version').' '.$version.'</td><td>'.   my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate');
                      localtime($rmtime).'</td>');   $r->print(&Apache::loncommon::start_data_table_row().
          '<td><input type="radio" name="version" value="'.
    if (!$is_meta) {    $version.'" /></td><td>'.&mt('Previously published version').' '.$version.'</td><td>'.
        $r->print('<td><a href="'.$urldir.$filename.'.meta" target=cat>'.    localtime($rmtime).'</td>');
  &mt('Metadata Version').' '.$version.'</a></td>');  
    }   if (!$is_meta) {
            if ($is_meta      $r->print('<td><a href="'.$urldir.$filename.'.meta" target=cat>'.
        || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {        &mt('Metadata Version').' '.$version.'</a></td>');
                $r->print(   }
                     '<td><a target=cat href="/adm/diff?filename=/~'.   if ($is_meta
                         $uname.$fn.      || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {
                         '&versiontwo=priv&versionone='.$version.      $r->print(
  '">'.&mt('Diffs with Version').' '.$version.        '<td><a target="cat" href="/adm/diff?filename=/~'.
  '</a></td>');        $uname.$fn.
            }        '&amp;versiontwo=priv&amp;versionone='.$version.
            $r->print('</tr>');        '">'.&mt('Diffs with Version').' '.$version.
         }        '</a></td>');
     }   }
     closedir(DIR);   $r->print(&Apache::loncommon::end_data_table_row());
     my $rmtime=&Apache::lonnet::metadata($resfn,'lastrevisiondate');      }
     $r->print('<tr><td><input type=radio name=version value="new"></td>'.   }
               '<th>'.&mt('Currently published version').'</th><td>'.localtime($rmtime).   closedir(DIR);
            '</td>');   my $rmtime=&Apache::lonnet::metadata($resfn,'lastrevisiondate');
     if (!$is_meta) {   $r->print(&Apache::loncommon::start_data_table_row().
  $r->print('<td><a href="'.$urldir.$main.'.'.$suffix.'.meta" target=cat>'.    '<td><input type="radio" name="version" value="new" /></td>'.
   &mt('Metadata current version').'</a></td>');               '<td><b>'.&mt('Currently published version').'</b></td><td>'.localtime($rmtime).
     '</td>');
    if (!$is_meta) {
       $r->print('<td><a href="'.$urldir.$main.'.'.$suffix.'.meta" target=cat>'.
         &mt('Metadata current version').'</a></td>');           
    }
    if ($is_meta 
       || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {
       $r->print(
         '<td><a target="cat" href="/adm/diff?filename=/~'.
         $uname.$fn.
         '&amp;versiontwo=priv'.
         '">'.&mt('Diffs with current Version').'</a></td>');
    }
    $r->print(&Apache::loncommon::end_data_table_row().
     &Apache::loncommon::end_data_table().
     '<p>'.
     '<span class="LC_error">'.
     &mt('Retrieval of an old version will overwrite the file currently in construction space').'</span><p>'.
     '<input type="submit" value="'.&mt('Retrieve version').'" /></form>');
       } else {
    $r->print('<h3>'.&mt('No previous versions published.').'</h3>');
     }      }
            if ($is_meta   
        || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {  
                $r->print(  
                     '<td><a target=cat href="/adm/diff?filename=/~'.  
                         $uname.$fn.  
                         '&versiontwo=priv'.  
                         '">'.&mt('Diffs with current Version').'</a></td>');  
            }  
            $r->print('</tr></table><p>'.  
            '<font size=+1 color=red>'.  
 &mt('Retrieval of an old version will overwrite the file currently in construction space').'</font><p>'.  
            '<input type=submit value="'.&mt('Retrieve version').'"></form>');  
 } else {  
     $r->print('<h3>'.&mt('No previous versions published.').'</h3>');  
 }  
     $r->print('<p><a href="/priv/'.$uname.$fn.'">'.&mt('Back to').' '.$fn.      $r->print('<p><a href="/priv/'.$uname.$fn.'">'.&mt('Back to').' '.$fn.
       '</a></p>');         '</a></p>'); 
 }  }
Line 173  sub phasetwo { Line 179  sub phasetwo {
         $r->print('<font size=+2><a href="/priv/'.$uname.$fn.          $r->print('<font size=+2><a href="/priv/'.$uname.$fn.
                   '">'.&mt('Back to').' '.$fn.'</a></font>');                     '">'.&mt('Back to').' '.$fn.'</a></font>'); 
     } else {      } else {
        $r->print(         $r->print('<span class="LC_warning">'.&mt('Please pick a version to retrieve').'</span><p>');
    '<font size=+1 color=red>'.&mt('Please pick a version to retrieve').'</font><p>');  
        &phaseone($r,$fn,$uname,$udom);         &phaseone($r,$fn,$uname,$udom);
     }      }
 }  }
Line 244  sub handler { Line 249  sub handler {
   $r->print('<h1>'.&mt('Retrieve previous versions of').' <tt>'.$fn.'</tt></h1>');    $r->print('<h1>'.&mt('Retrieve previous versions of').' <tt>'.$fn.'</tt></h1>');
       
   if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {    if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
           $r->print('<h3><font color=red>'.&mt('Co-Author').': '.$uname.            $r->print('<h3><span class="LC_diff_coauthor">'.&mt('Co-Author').': '.$uname.
     &mt(' at ').$udom.      &mt(' at ').$udom.
                '</font></h3>');                 '</span></h3>');
   }    }
   
   
Removed from v.1.31  
changed lines
  Added in v.1.32

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