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

Diff for /loncom/publisher/lonretrieve.pm between versions 1.42.2.1 and 1.43

version 1.42.2.1, 2011/11/07 13:38:45 version 1.43, 2011/10/23 01:27:34
Line 233  sub phasetwo { Line 233  sub phasetwo {
  my ($main,$suffix,$is_meta) = &get_file_info($fn);   my ($main,$suffix,$is_meta) = &get_file_info($fn);
   
         my $logfile;          my $logfile;
         my $ctarget='/home/'.$uname.'/public_html'.$fn;          my $ctarget=$r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.$fn;
         my $vfn=$fn;          my $vfn=$fn;
         if ($version ne 'new') {          if ($version ne 'new') {
     $vfn=~s/\.(\Q$suffix\E)$/\.$version\.$1/;      $vfn=~s/\.(\Q$suffix\E)$/\.$version\.$1/;
Line 292  sub handler { Line 292  sub handler {
   
   my $r=shift;    my $r=shift;
   
   my ($fn,$trailfile);    my $fn;
   
   
 # Get query string for limited number of parameters  # Get query string for limited number of parameters
Line 330  sub handler { Line 330  sub handler {
   }    }
   
   $fn=~s{/~($LONCAPA::username_re)}{};    $fn=~s{/~($LONCAPA::username_re)}{};
   $trailfile = "/home/$uname/public_html".$fn;  
   
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
Line 349  sub handler { Line 348  sub handler {
   $r->print(&Apache::loncommon::start_page('Retrieve Published Resources')    $r->print(&Apache::loncommon::start_page('Retrieve Published Resources')
            .&Apache::lonhtmlcommon::breadcrumbs()             .&Apache::lonhtmlcommon::breadcrumbs()
            .&Apache::loncommon::head_subbox(             .&Apache::loncommon::head_subbox(
                 &Apache::loncommon::CSTR_pageheader($trailfile))                  &Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken?
     );      );
   
   $r->print('<p>'    $r->print('<p>'
Removed from v.1.42.2.1  
changed lines
  Added in v.1.43

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