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

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

version 1.258.2.2, 2009/08/14 12:26:08 version 1.262, 2009/07/30 09:42:25
Line 1770  sub phasetwo { Line 1770  sub phasetwo {
         my $thissrcdir=$thissrc;          my $thissrcdir=$thissrc;
         $thissrcdir=~s/\/[^\/]+$/\//;          $thissrcdir=~s/\/[^\/]+$/\//;
                   
         unless ($env{'request.role'} =~ /^aa/) {          $r->print(&Apache::lonhtmlcommon::start_funclist());
           unless ($env{'request.role'}=~/^(aa)/) {
             $r->print(              $r->print(
                '<hr /><a href="'.$thisdistarget.'"><font size="+2">'.                  &Apache::lonhtmlcommon::add_item_funclist(
                &mt('View Published Version').'</font></a>');                      '<a href="'.$thisdistarget.'">'
                      .&mt('View Published Version')
                      .'</a>')
               );
         }          }
         $r->print('<p><a href="'.$thissrc.'"><font size="+2">'.          $r->print(
   &mt('Back to Source').'</font></a></p>'.              &Apache::lonhtmlcommon::add_item_funclist(
                   '<p><a href="'.$thissrcdir.                  '<a href="'.$thissrc.'">'
                   '"><font size="+2">'.                 .&mt('Back to Source')
   &mt('Back to Source Directory').'</font></a></p>');                 .'</a>')
              .&Apache::lonhtmlcommon::add_item_funclist(
                   '<a href="'.$thissrcdir.'">'
                  .&mt('Back to Source Directory')
                  .'</a>')
              .&Apache::lonhtmlcommon::end_funclist()
           );
     }      }
     return 1;      return 1;
 }  }
Line 2165  sub handler { Line 2175  sub handler {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
           
       # Breadcrumbs
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       &Apache::lonhtmlcommon::add_breadcrumb({
           'text'  => 'Construction Space',
           'href'  => &Apache::loncommon::authorspace(),
       });
       &Apache::lonhtmlcommon::add_breadcrumb({
           'text'  => 'Resource Publication',
           'href'  => '',
       });
   
     my $js='<script type="text/javascript">'.      my $js='<script type="text/javascript">'.
  &Apache::loncommon::browser_and_searcher_javascript().   &Apache::loncommon::browser_and_searcher_javascript().
  '</script>';   '</script>';
     $r->print(&Apache::loncommon::start_page('Resource Publication',$js));      $r->print(&Apache::loncommon::start_page('Resource Publication',$js)
                .&Apache::lonhtmlcommon::breadcrumbs()
                .&Apache::loncommon::head_subbox(
                     &Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken?
       );
   
   
     my $thisfn=$fn;      my $thisfn=$fn;
Line 2269  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.258.2.2  
changed lines
  Added in v.1.262

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