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

Diff for /loncom/publisher/lonrights.pm between versions 1.32 and 1.36

version 1.32, 2011/11/13 21:11:42 version 1.36, 2023/07/13 22:21:26
Line 55  sub handler { Line 55  sub handler {
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
   
     my $text = 'Authoring Space';
     my $href = &Apache::loncommon::authorspace($r->uri);
     my ($crsauthor,$cdom,$cnum);
     if ($env{'request.course.id'}) {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         if ($href eq "/priv/$cdom/$cnum/") {
             $crsauthor = 1;
             $text = 'Course Authoring Space';
         }
     }
   # Breadcrumbs    # Breadcrumbs
   &Apache::lonhtmlcommon::clear_breadcrumbs();    &Apache::lonhtmlcommon::clear_breadcrumbs();
   &Apache::lonhtmlcommon::add_breadcrumb({    &Apache::lonhtmlcommon::add_breadcrumb({
       'text'  => 'Construction Space',        'text'  => $text,
       'href'  => &Apache::loncommon::authorspace(),        'href'  => $href,
       });        });
   &Apache::lonhtmlcommon::add_breadcrumb({    if ($crsauthor) {
       'text'  => 'Custom Rights Editor',        &Apache::lonhtmlcommon::add_breadcrumb({
       'title' => 'Custom Distribution Rights Editor',            'text'  => 'Custom Rights',
       'href'  => '',});            'title' => 'Custom Distribution Rights',
             'href'  => '',});
     } else {
         &Apache::lonhtmlcommon::add_breadcrumb({
             'text'  => 'Custom Rights Editor',
             'title' => 'Custom Distribution Rights Editor',
             'href'  => '',});
     }
   
   my $js = &Apache::loncommon::coursebrowser_javascript().    my $js = &Apache::loncommon::coursebrowser_javascript().
       &Apache::loncommon::studentbrowser_javascript();        &Apache::loncommon::studentbrowser_javascript();
Line 79  sub handler { Line 97  sub handler {
   my $fn=&Apache::lonnet::filelocation('',$uri);    my $fn=&Apache::lonnet::filelocation('',$uri);
   my $contents='';    my $contents='';
   my $constructmode=($uri=~ m{^/priv/});    my $constructmode=($uri=~ m{^/priv/});
     if ($constructmode) {
         if (($crsauthor) && ($uri eq "/priv/$cdom/$cnum/default.rights")) {
             undef($constructmode);
         }
     }
   
 # ============================================================ Modify and store  # ============================================================ Modify and store
   if ($constructmode && $env{'form.store'}) {    if ($constructmode && $env{'form.store'}) {
Line 180  sub handler { Line 203  sub handler {
           $contents=join('',<$fh>);            $contents=join('',<$fh>);
           $fh->close();            $fh->close();
       }        }
       $r->print('<form name="rules" method="post">');        $r->print('<form name="rules" method="post" action="">');
   }    }
   unless ($contents=~/\<accessrule/s) {    unless ($contents=~/\<accessrule/s) {
       $contents='<accessrule effect="deny" />';        $contents='<accessrule effect="deny" />';
Line 196  sub handler { Line 219  sub handler {
      'co' => 'Course / User',       'co' => 'Course / User',
      'se' => 'Section',       'se' => 'Section',
      'ro' => 'Role');       'ro' => 'Role');
     my %iconimg = ('allow' => '<img src="/adm/lonIcons/navmap.correct.gif"'
                              .' alt="'.&mt('allow').'" title="'.&mt('allow').'" />',
                    'deny' => '<img src="/adm/lonIcons/navmap.wrong.gif"'
                              .' alt="'.&mt('deny').'" title="'.&mt('deny').'" />');
 # ---------------------------------------------------------- Start table output  # ---------------------------------------------------------- Start table output
   $r->print(&Apache::loncommon::start_data_table().    $r->print(&Apache::loncommon::start_data_table().
     &Apache::loncommon::start_data_table_header_row().      &Apache::loncommon::start_data_table_header_row().
Line 217  sub handler { Line 244  sub handler {
       $r->print('&nbsp;');        $r->print('&nbsp;');
   }    }
   $r->print('</td><td>');    $r->print('</td><td>');
     $r->print($iconimg{$token->[2]->{'effect'}});
   if ($constructmode) {    if ($constructmode) {
       my %lt = &Apache::lonlocal::texthash        my %lt = &Apache::lonlocal::texthash
                                    ('allow' => 'allow',                                     ('allow' => 'allow',
                                     'deny'  => 'deny');                                      'deny'  => 'deny');
       $r->print(&Apache::loncommon::select_form        $r->print(&Apache::loncommon::select_form
                                  ($token->[2]->{'effect'},'effect_0',\%lt));                                   ($token->[2]->{'effect'},'effect_0',\%lt));
   } else {  
       $r->print($token->[2]->{'effect'});  
   }    }
   $r->print('</td><td colspan="5">'.&mt('Default'));    $r->print('</td><td colspan="5">'.&mt('Default'));
   if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) {    if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) {
Line 242  sub handler { Line 268  sub handler {
   $r->print('<span class="LC_nobreak">'.$rulecounter.'. ');    $r->print('<span class="LC_nobreak">'.$rulecounter.'. ');
           if ($constructmode) {            if ($constructmode) {
              my %lt = &Apache::lonlocal::texthash               my %lt = &Apache::lonlocal::texthash
                           ('' => '',                            (''            => '',
                            'delete' => 'Delete this rule',                             'delete'      => 'Delete this rule',
                            'insertabove' => 'Insert rule above',                             'insertabove' => 'Insert rule above',
                            'insertbelow' => 'Insert rule below',                             'insertbelow' => 'Insert rule below',
                            'moveup'      => 'Move rule up',                             'moveup'      => 'Move rule up',
Line 256  sub handler { Line 282  sub handler {
           $r->print('</span></td>'.            $r->print('</span></td>'.
     '<td rowspan="2">');      '<td rowspan="2">');
 # effect  # effect
             $r->print($iconimg{$token->[2]->{'effect'}});
           if ($constructmode) {            if ($constructmode) {
              my %lt = &Apache::lonlocal::texthash               my %lt = &Apache::lonlocal::texthash
                              ('allow' => 'allow',                               ('allow' => 'allow',
Line 263  sub handler { Line 290  sub handler {
              $r->print(&Apache::loncommon::select_form               $r->print(&Apache::loncommon::select_form
                                  ($token->[2]->{'effect'},                                   ($token->[2]->{'effect'},
                                   'effect_'.$rulecounter,\%lt));                                    'effect_'.$rulecounter,\%lt));
           } else {  
              $r->print($token->[2]->{'effect'});  
           }            }
   
 # type  # type
Line 277  sub handler { Line 302  sub handler {
               $r->print(&Apache::loncommon::select_form($type,                $r->print(&Apache::loncommon::select_form($type,
  'type_'.$rulecounter,\%lt));   'type_'.$rulecounter,\%lt));
           } else {            } else {
               $r->print($type);                $r->print(&mt($type));
           }            }
   
 # ---- realm  # ---- realm
Removed from v.1.32  
changed lines
  Added in v.1.36

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