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

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

version 1.32, 2006/09/19 21:47:29 version 1.34, 2006/12/06 22:22:39
Line 38  use Apache::loncacc; Line 38  use Apache::loncacc;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
   use LONCAPA();
   
 # ------------------------------------ Interface for selecting previous version  # ------------------------------------ Interface for selecting previous version
 sub phaseone {  sub phaseone {
Line 125  sub phaseone { Line 126  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>'.    '<p>'.'<span class="LC_warning">'.
   '<span class="LC_error">'.    &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 construction space').'</span><p>'.   if (!$is_meta) {
   '<input type="submit" value="'.&mt('Retrieve version').'" /></form>');      $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.').
         '</span></p>');
    }
    $r->print('<input type="submit" value="'.&mt('Retrieve version').'" /></form>');
     } else {      } else {
  $r->print('<h3>'.&mt('No previous versions published.').'</h3>');   $r->print('<h3>'.&mt('No previous versions published.').'</h3>');
     }      }
Line 238  sub handler { Line 243  sub handler {
      return HTTP_NOT_ACCEPTABLE;       return HTTP_NOT_ACCEPTABLE;
   }    }
   
   $fn=~s/\/\~(\w+)//;    $fn=~s{/~($LONCAPA::username_re)}{};
   
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
Removed from v.1.32  
changed lines
  Added in v.1.34

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