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

Diff for /loncom/publisher/lonunauthorized.pm between versions 1.8 and 1.9

version 1.8, 2008/08/11 10:18:31 version 1.9, 2009/05/14 15:36:29
Line 54  sub handler { Line 54  sub handler {
 # figure out what went wrong  # figure out what went wrong
   
     if ($ownerdomain) {      if ($ownerdomain) {
  $r->print('<h1>'.&mt('Choose another server').'</h1><p>'   $r->print('<p class="LC_error">'
                  .&mt('The construction space for this resource is located on another server.')                   .&mt('The construction space for this resource is located on another server.')
                    .'</p>'
                    .'<p>'
                    .&mt('Choose another server.')
                  .'</p>');                   .'</p>');
         my $ownerhome=&Apache::lonnet::homeserver($ownername,$ownerdomain);          my $ownerhome=&Apache::lonnet::homeserver($ownername,$ownerdomain);
         unless ($ownerhome eq 'no_host') {          unless ($ownerhome eq 'no_host') {
Line 65  sub handler { Line 68  sub handler {
                      .'</p>');                       .'</p>');
         }          }
     } else {      } else {
         $r->print('<h1>'          $r->print('<p class="LC_error">'
                  .&mt('You do not have authoring privileges for this resource')                   .&mt('You do not have authoring privileges for this resource')
                  .'</h1>');                   .'</p>');
         my ($realownername)=          my ($realownername)=
     ($env{'request.editurl'}=~m{/(?:~|priv/|home/)($LONCAPA::username_re)});      ($env{'request.editurl'}=~m{/(?:~|priv/|home/)($LONCAPA::username_re)});
         my $realownerhome=          my $realownerhome=
Line 75  sub handler { Line 78  sub handler {
  $r->dir_config('lonDefDomain'));   $r->dir_config('lonDefDomain'));
         unless ($realownerhome eq 'no_host') {          unless ($realownerhome eq 'no_host') {
             my $plainname=&Apache::loncommon::plainname($realownername,$r->dir_config('lonDefDomain'));              my $plainname=&Apache::loncommon::plainname($realownername,$r->dir_config('lonDefDomain'));
             my $user=&mt('[_1] at [_2]',$realownername,$r->dir_config('lonDefDomain'));              my $user=$realownername.':'.$r->dir_config('lonDefDomain');
             my $userlink=&Apache::loncommon::aboutmewrapper(              my $userlink=&Apache::loncommon::aboutmewrapper(
                              $plainname.' ('.$user.')'                               $plainname.' ('.$user.')'
                             ,$realownername                              ,$realownername
Removed from v.1.8  
changed lines
  Added in v.1.9

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