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

Diff for /loncom/publisher/lonunauthorized.pm between versions 1.14 and 1.16

version 1.14, 2011/11/30 18:32:23 version 1.16, 2013/06/04 22:20:16
Line 32  use strict; Line 32  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncacc;  
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA();  use LONCAPA();
 use HTML::Entities();  use HTML::Entities();
Line 49  sub handler { Line 48  sub handler {
     my ($ownername,$ownerdomain,$ownerhome);      my ($ownername,$ownerdomain,$ownerhome);
     if ($env{'request.editurl'} ne '') {      if ($env{'request.editurl'} ne '') {
         ($ownername,$ownerdomain,$ownerhome) =           ($ownername,$ownerdomain,$ownerhome) = 
             &Apache::loncacc::constructaccess($env{'request.editurl'});              &Apache::lonnet::constructaccess($env{'request.editurl'});
     }      }
   
     # Breadcrumbs      # Breadcrumbs
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     if ($env{'request.role'} =~ /^(au|ca|aa)/) {       if ($env{'request.role'} =~ /^(au|ca|aa)/) { 
         &Apache::lonhtmlcommon::add_breadcrumb({          &Apache::lonhtmlcommon::add_breadcrumb({
             'text' => 'Construction Space',              'text' => 'Authoring Space',
             'href' => &Apache::loncommon::authorspace($env{'request.editurl'}),              'href' => &Apache::loncommon::authorspace($env{'request.editurl'}),
         });          });
     } elsif (($env{'request.course.id'}) &&       } elsif (($env{'request.course.id'}) && 
Line 68  sub handler { Line 67  sub handler {
     }      }
   
 # print header  # print header
     $r->print(&Apache::loncommon::start_page("Failed Access to Construction Space",      $r->print(&Apache::loncommon::start_page("Failed Access to Authoring Space",
      undef,       undef,
      {'domain' => $ownerdomain,}).       {'domain' => $ownerdomain,}).
                                              &Apache::lonhtmlcommon::breadcrumbs());                                               &Apache::lonhtmlcommon::breadcrumbs());
Removed from v.1.14  
changed lines
  Added in v.1.16

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