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

Diff for /loncom/publisher/lonpublisher.pm between versions 1.259 and 1.262

version 1.259, 2009/05/26 16:08:00 version 1.262, 2009/07/30 09:42:25
Line 1641  sub phasetwo { Line 1641  sub phasetwo {
         my $srcf=$2;          my $srcf=$2;
         my $srct=$3;          my $srct=$3;
         my $srcd=$1;          my $srcd=$1;
         unless ($srcd=~/^\/home\/httpd\/html\/res/) {          my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};
           unless ($srcd=~/^\Q$docroot\E\/res/) {
             print $logfile "\nPANIC: Target dir is ".$srcd;              print $logfile "\nPANIC: Target dir is ".$srcd;
             $r->print(              $r->print(
  "<span class=\"LC_error\">".&mt('Invalid target directory, FAIL')."</span>");   "<span class=\"LC_error\">".&mt('Invalid target directory, FAIL')."</span>");
Line 1769  sub phasetwo { Line 1770  sub phasetwo {
         my $thissrcdir=$thissrc;          my $thissrcdir=$thissrc;
         $thissrcdir=~s/\/[^\/]+$/\//;          $thissrcdir=~s/\/[^\/]+$/\//;
                   
                   $r->print(&Apache::lonhtmlcommon::start_funclist());
           unless ($env{'request.role'}=~/^(aa)/) {
               $r->print(
                   &Apache::lonhtmlcommon::add_item_funclist(
                       '<a href="'.$thisdistarget.'">'
                      .&mt('View Published Version')
                      .'</a>')
               );
           }
         $r->print(          $r->print(
            '<hr /><a href="'.$thisdistarget.'"><font size="+2">'.              &Apache::lonhtmlcommon::add_item_funclist(
            &mt('View Published Version').'</font></a>'.                  '<a href="'.$thissrc.'">'
            '<p><a href="'.$thissrc.'"><font size="+2">'.                 .&mt('Back to Source')
   &mt('Back to Source').'</font></a></p>'.                 .'</a>')
            '<p><a href="'.$thissrcdir.             .&Apache::lonhtmlcommon::add_item_funclist(
                    '"><font size="+2">'.                  '<a href="'.$thissrcdir.'">'
   &mt('Back to Source Directory').'</font></a></p>');                 .&mt('Back to Source Directory')
                  .'</a>')
              .&Apache::lonhtmlcommon::end_funclist()
           );
     }      }
     return 1;      return 1;
 }  }
Line 2167  sub handler { Line 2179  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'  => '', # FIXME Add link to /priv/[user]          'href'  => &Apache::loncommon::authorspace(),
     });      });
     &Apache::lonhtmlcommon::add_breadcrumb({      &Apache::lonhtmlcommon::add_breadcrumb({
         'text'  => 'Resource Publication',          'text'  => 'Resource Publication',
Line 2282  ENDDIFF Line 2294  ENDDIFF
     }      }
  } else {   } else {
     &phasetwo($r,$thisfn,$thistarget,$thisembstyle,$thisdistarget);       &phasetwo($r,$thisfn,$thistarget,$thisembstyle,$thisdistarget); 
     $r->print('<hr />');  
  }   }
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
Removed from v.1.259  
changed lines
  Added in v.1.262

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