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

Diff for /loncom/publisher/lonunauthorized.pm between versions 1.12 and 1.17

version 1.12, 2011/11/14 02:12:42 version 1.17, 2013/06/07 16:07:49
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());
Line 86  sub handler { Line 85  sub handler {
                 my $switchlink = '/adm/switchserver?otherserver='.$ownerhome.                  my $switchlink = '/adm/switchserver?otherserver='.$ownerhome.
                                  '&origurl='.&HTML::Entities::encode($env{'request.editurl'},'<>&"');                                   '&origurl='.&HTML::Entities::encode($env{'request.editurl'},'<>&"');
         $r->print('<p class="LC_warning">'.          $r->print('<p class="LC_warning">'.
                           &mt('The construction space for this resource is located on a different server: [_1]',                            &mt('The Authoring Space for this resource is located on a different server: [_1]',
                           '<b><tt>'.&Apache::lonnet::hostname($ownerhome).'</b></tt>').                            '<b><tt>'.&Apache::lonnet::hostname($ownerhome).'</b></tt>').
                           '</p>'.                            '</p>'.
                           '<p class="LC_error"><a href="'.$switchlink.'">'.                            '<p class="LC_error"><a href="'.$switchlink.'">'.
Line 122  sub handler { Line 121  sub handler {
                         $option = 'decompress';                          $option = 'decompress';
                     } elsif ($name eq 'qualifiedfilename') {                      } elsif ($name eq 'qualifiedfilename') {
                         $qualifiedfilename = $value;                          $qualifiedfilename = $value;
                     } elsif ($name = 'versionone') {                      } elsif ($name eq 'versionone') {
                         if ($value eq 'priv') {                          if ($value eq 'priv') {
                             $option = 'cstr';                              $option = 'cstr';
                         }                          }
Line 155  sub handler { Line 154  sub handler {
                 if ($warning) {                  if ($warning) {
                     if (($action eq 'diff') && ($option ne 'cstr')) {                      if (($action eq 'diff') && ($option ne 'cstr')) {
                         $r->print('<p class="LC_error">'.                          $r->print('<p class="LC_error">'.
                                   $deniedactions{$action}.'</p><p class="LC_warning">'                                    $deniedactions{$action}.'</p><p class="LC_warning">'.
                                   &mt('You do not have privileges to view the published resource').' '.                                    &mt('You do not have privileges to view the published resource').' '.
                                       '<span class="LC_filename">'.$filename.'</span>'.                                        '<span class="LC_filename">'.$filename.'</span>'.
                                   '</p>');                                    '</p>');
Line 180  sub handler { Line 179  sub handler {
                       &mt('There is a problem with the filename').' '.                        &mt('There is a problem with the filename').' '.
                       '<span class="LC_filename">'.$r->uri.'</span></p>'.                        '<span class="LC_filename">'.$r->uri.'</span></p>'.
                       '<p class="LC_warning">'.                        '<p class="LC_warning">'.
                       &mt('You may be attempting to edit a versioned file (files in construction space may not include a version number before the extension).').                        &mt('You may be attempting to edit a versioned file (files in Authoring Space may not include a version number before the extension).').
                       '</p>');                        '</p>');
         } else {          } else {
             $r->print('<p class="LC_error">'.              $r->print('<p class="LC_error">'.
Line 192  sub handler { Line 191  sub handler {
                   &mt('There is a problem with the filename').' '.                    &mt('There is a problem with the filename').' '.
                   '<span class="LC_filename">'.$env{'request.editurl'}.'</span></p>'.                    '<span class="LC_filename">'.$env{'request.editurl'}.'</span></p>'.
                   '<p class="LC_warning">'.                    '<p class="LC_warning">'.
                   &mt('You may be attempting to edit a versioned file (files in construction space may not include a version number before the extension).').                    &mt('You may be attempting to edit a versioned file (files in Authoring Space may not include a version number before the extension).').
                   '</p>');                    '</p>');
     } else {      } else {
         $r->print('<p class="LC_error">'          $r->print('<p class="LC_error">'
Removed from v.1.12  
changed lines
  Added in v.1.17

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