Return to lonrights.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Localization - Corrected "loncommon::select_form" usage:
Only translate once but translate what needs to be translated. Don't translate custom text, e.g. custom folder names.
Even avoid ISE: Unusual but possible special folder names on messages screen used to be misinterpreted.

    1: # The LearningOnline Network with CAPA
    2: # Handler to show and edit custom distribution rights
    3: #
    4: # $Id: lonrights.pm,v 1.29 2009/12/02 18:33:35 bisitz Exp $
    5: #
    6: # Copyright Michigan State University Board of Trustees
    7: #
    8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    9: #
   10: # LON-CAPA is free software; you can redistribute it and/or modify
   11: # it under the terms of the GNU General Public License as published by
   12: # the Free Software Foundation; either version 2 of the License, or
   13: # (at your option) any later version.
   14: #
   15: # LON-CAPA is distributed in the hope that it will be useful,
   16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   18: # GNU General Public License for more details.
   19: #
   20: # You should have received a copy of the GNU General Public License
   21: # along with LON-CAPA; if not, write to the Free Software
   22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   23: #
   24: # /home/httpd/html/adm/gpl.txt
   25: #
   26: # http://www.lon-capa.org/
   27: #
   28: #
   29: ###
   30: 
   31: package Apache::lonrights;
   32: 
   33: use strict;
   34: use Apache::Constants qw(:common :http);
   35: use Apache::lonnet;
   36: use Apache::loncommon();
   37: use HTML::LCParser;
   38: use Apache::File;
   39: use Apache::lonlocal;
   40: 
   41: sub handler {
   42: 
   43:   my $r=shift;
   44:   my $target = $env{'form.grade_target'};
   45:   if ($target eq 'meta') {
   46:       &Apache::loncommon::content_type($r,'text/html');
   47:       $r->send_http_header;
   48:       $env{'request.uri'}=$r->uri;
   49:       my $file = &Apache::lonnet::filelocation("",$r->uri);
   50:       my $content=&Apache::lonnet::getfile($file);
   51:       my $result=&Apache::lonxml::xmlparse(undef,'meta',$content);
   52:       $r->print($result);
   53:       return OK;
   54:   }
   55:   &Apache::loncommon::content_type($r,'text/html');
   56:   $r->send_http_header;
   57: 
   58:   # Breadcrumbs
   59:   &Apache::lonhtmlcommon::clear_breadcrumbs();
   60:   &Apache::lonhtmlcommon::add_breadcrumb({
   61:       'text'  => 'Construction Space',
   62:       'href'  => &Apache::loncommon::authorspace(),
   63:       });
   64:   &Apache::lonhtmlcommon::add_breadcrumb({
   65:       'text'  => 'Custom Rights Editor',
   66:       'title' => 'Custom Distribution Rights Editor',
   67:       'href'  => '',});
   68: 
   69:   my $js = &Apache::loncommon::coursebrowser_javascript().
   70:       &Apache::loncommon::studentbrowser_javascript();
   71:   # Breadcrumbs are included by &start_page
   72:   $r->print(&Apache::loncommon::start_page('Custom Distribution Rights',$js)
   73:            .&Apache::loncommon::head_subbox(
   74:                 &Apache::loncommon::CSTR_pageheader())
   75:   );
   76:   $r->rflush();
   77: 
   78:   my $uri=$r->uri;
   79:   my $fn=&Apache::lonnet::filelocation('',$uri);
   80:   my $contents='';
   81:   my $constructmode=($uri=~/^\/\~/);
   82: 
   83: # ============================================================ Modify and store
   84:   if ($constructmode && $env{'form.store'}) {
   85:       
   86:       my @newrules;
   87: 
   88: # read rules from form
   89:       foreach my $key (keys(%env)) {
   90: 	  next if ($key!~/^form\.effect\_(\d+)$/);
   91: 	  my $number=$1;
   92: 	  my %rulehash;
   93: 	  foreach my $action ('effect','type','domain','course','section','role') {
   94: 	      $rulehash{$action}=$env{'form.'.$action.'_'.$number};
   95: 	  }
   96: 	  if ($rulehash{'type'} !~ /^(user|course)$/) {
   97: 	      $rulehash{'type'} = 'course';
   98: 	  }
   99: 	  if ($rulehash{'type'} eq 'user') {
  100: 	      $rulehash{'section'}='';
  101: 	      $rulehash{'role'}='';
  102: 	  }
  103: 	  if ($rulehash{'role'} eq 'au') {
  104: 	      $rulehash{'course'}='';
  105: 	      $rulehash{'section'}='';
  106: 	  }
  107: 	  if ($rulehash{'role'} eq 'cc') {
  108: 	      $rulehash{'section'}='';
  109: 	  }
  110: 	  unless (($rulehash{'effect'} eq 'deny') ||
  111: 		  ($rulehash{'effect'} eq 'allow')) {
  112: 	      $rulehash{'effect'}='deny';
  113: 	  }
  114: 	  $rulehash{'domain'} = 
  115: 	      &LONCAPA::clean_domain($rulehash{'domain'});
  116: 	  if ($rulehash{'type'} eq 'course') {
  117: 	      $rulehash{'course'} = 
  118: 		  &LONCAPA::clean_courseid($rulehash{'course'});
  119: 	  } else {
  120: 	      $rulehash{'course'} = 
  121: 		  &LONCAPA::clean_username($rulehash{'course'});
  122: 	  }
  123: 	  $rulehash{'section'}=~s/\W//g;
  124: 	  if (!$rulehash{'domain'}) { 
  125: 	      $rulehash{'domain'}=$env{'user.domain'}; 
  126: 	  }
  127: 	  my $realm='';
  128: 	  my $separator = ($rulehash{'type'} eq 'course') ? '_' : '/';
  129: 	  if ($number) {
  130: 	      $realm=$rulehash{'domain'};
  131: 	      if ($rulehash{'course'}) {
  132: 		  $realm.=$separator.$rulehash{'course'};
  133: 	      }
  134: 	      if ($rulehash{'section'}) {
  135: 		  $realm.=$separator.$rulehash{'section'};
  136: 	      }
  137: 	  }
  138: 	  $newrules[$number]=$rulehash{'effect'}.':'.
  139: 	      $realm.':'.$rulehash{'role'}.':'.$rulehash{'type'};
  140:       }
  141: # edit actions?
  142:       foreach my $key (keys(%env)) {
  143: 	  next if ($key!~/^form\.action\_(\d+)$/);
  144: 	  my $number=$1;
  145: 	  if ($env{$key} eq 'delete') { splice(@newrules,$number,1); }
  146: 	  if (($env{$key} eq 'moveup') && ($number>1)) {
  147: 	      @newrules[$number-1,$number] = @newrules[$number,$number-1];
  148: 	  }
  149: 	  if (($env{$key} eq 'movedown') && ($number<$#newrules)) {
  150: 	      @newrules[$number+1,$number] = @newrules[$number,$number+1];
  151: 	  }
  152: 	  if ($env{$key} eq 'insertabove') {
  153: 	      splice(@newrules,$number,0,'deny');
  154: 	  }
  155: 	  if ($env{$key} eq 'insertbelow') {
  156: 	      splice(@newrules,$number+1,0,'deny');
  157: 	  }
  158:       }
  159:       
  160: # store file
  161:       my $fh=Apache::File->new('>'.$fn);
  162:       foreach (my $i=0;$i<=$#newrules;$i++) {
  163: 	  if ($newrules[$i]) {
  164: 	      my ($effect,$realm,$role,$type)=split(/\:/,$newrules[$i]);
  165: 	      print $fh
  166: 		  "<accessrule effect='$effect' realm='$realm' role='$role' type='$type' />\n";
  167: 	  }
  168:       }
  169:       $fh->close;
  170:   }
  171: # ============================================================ Read and display
  172:   unless ($constructmode) { 
  173: # =========================================== This is not in construction space
  174:       $contents=&Apache::lonnet::getfile($fn);
  175:       if ($contents==-1) { $contents=''; }
  176:   } else {
  177: # =============================================== This is in construction space
  178:       if (-e $fn) {
  179: 	  my $fh=Apache::File->new($fn);
  180:           $contents=join('',<$fh>);
  181:           $fh->close();
  182:       }
  183:       $r->print('<form name="rules" method="post">');
  184:   }
  185:   unless ($contents=~/\<accessrule/s) {
  186:       $contents='<accessrule effect="deny" />';
  187:   }
  188:   my $parser=HTML::LCParser->new(\$contents);
  189:   my $token;
  190:   my $rulecounter=0;
  191:   my $colzero=&mt($constructmode?'Edit action':'Rule');
  192:   my %lt=&Apache::lonlocal::texthash(
  193: 				     'ef' => 'Effect',
  194: 				     'ty' => 'Type',
  195: 				     'do' => 'Domain',
  196: 				     'co' => 'Course / User',
  197: 				     'se' => 'Section',
  198: 				     'ro' => 'Role');
  199: # ---------------------------------------------------------- Start table output
  200:   $r->print(&Apache::loncommon::start_data_table().
  201: 	    &Apache::loncommon::start_data_table_header_row().
  202: 	    "<th>$colzero</th><th>$lt{'ef'}</th><th>$lt{'ty'}</th><th>$lt{'do'}</th>".
  203: 	    "<th>$lt{'co'}</th><th>$lt{'se'}</th><th>$lt{'ro'}</th>".
  204: 	    &Apache::loncommon::end_data_table_header_row());
  205: # --------------------------------------------------------------------- Default
  206: # Fast forward to first rule
  207:   $token=$parser->get_token;
  208:   while ($token->[1] ne 'accessrule') { $token=$parser->get_token; }
  209: # print default
  210:   $r->print(&Apache::loncommon::start_data_table_row().'<td align="right">');
  211:   if ($constructmode) {
  212:      $r->print(&Apache::loncommon::select_form('','action_0',
  213:                                   ('' => '',
  214:                                    'insertbelow' => &mt('Insert rule below'))));
  215:                                                 
  216:   } else {
  217:       $r->print('&nbsp;');
  218:   }
  219:   $r->print('</td><td>');
  220:   if ($constructmode) {
  221:       $r->print(&Apache::loncommon::select_form
  222:                                  ($token->[2]->{'effect'},'effect_0',
  223:                                   &Apache::lonlocal::texthash
  224:                                    ('allow' => 'allow',
  225:                                     'deny'  => 'deny')));
  226:   } else {
  227:       $r->print($token->[2]->{'effect'});
  228:   }
  229:   $r->print('</td><td colspan="5">'.&mt('Default'));
  230:   if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) {
  231:       $r->print(' - <span class="LC_error">'.&mt('Error! No default set.').
  232: 		'</span>');
  233:   }
  234:   $r->print('</td>'.&Apache::loncommon::end_data_table_row());
  235: # Additional roles
  236:   while ($token=$parser->get_token) {
  237:       if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) {
  238:           $rulecounter++;
  239: 	  $r->print(&Apache::loncommon::start_data_table_row().
  240: 		     '<td align="right" rowspan="2">');
  241: # insert, delete, etc
  242: 	  $r->print('<span class="LC_nobreak">'.$rulecounter.'. ');
  243:           if ($constructmode) {
  244:              $r->print(&Apache::loncommon::select_form(
  245:                     '','action_'.$rulecounter,
  246:                     &Apache::lonlocal::texthash
  247:                     ('' => '', 
  248:                      'delete' => 'Delete this rule',
  249:                      'insertabove' => 'Insert rule above',
  250:                      'insertbelow' => 'Insert rule below',
  251:                      'moveup'      => 'Move rule up',
  252:                      'movedown'    => 'Move rule down')));
  253: 	  }
  254:           $r->print('</span></td>'.
  255: 		    '<td rowspan="2">');
  256: # effect
  257:           if ($constructmode) {
  258:              $r->print(&Apache::loncommon::select_form
  259:                                  ($token->[2]->{'effect'},
  260:                                   'effect_'.$rulecounter,
  261:                                   &Apache::lonlocal::texthash
  262:                                    ('allow' => 'allow',
  263:                                     'deny'  => 'deny')));
  264:           } else {
  265:              $r->print($token->[2]->{'effect'});
  266:           }
  267: 
  268: # type
  269: 	  $r->print('</td><td rowspan="2">');
  270: 	  my $type = ($token->[2]{'type'} || 'course');
  271:           if ($constructmode) {
  272:               $r->print(&Apache::loncommon::select_form($type,
  273: 							'type_'.$rulecounter,
  274:                             &Apache::lonlocal::texthash
  275: 							('course' => 'Course',
  276: 							 'user'   => 'User')));
  277:           } else {
  278:               $r->print($type);
  279:           }
  280: 
  281: # ---- realm
  282:           my $realm=$token->[2]->{'realm'};
  283:           my ($rdom,$rcourse,$rsec);
  284: 	  if ($type eq 'course') {
  285: 	      ($rdom,$rcourse,$rsec) = split(m{[/_]},$realm,3);
  286: 	      $rcourse = &LONCAPA::clean_courseid($rcourse);
  287: 	  } else {
  288: 	      ($rdom,$rcourse,$rsec) = split(m{/},$realm,3);
  289: 	      $rcourse = &LONCAPA::clean_username($rcourse);
  290: 	  }
  291:           $r->print('</td><td>');
  292: # realm domain
  293:           if ($constructmode) {
  294:               unless ($rdom) { $rdom=$env{'user.domain'}; }
  295:               $r->print(&Apache::loncommon::select_dom_form($rdom,
  296:                                                       'domain_'.$rulecounter));
  297:           } else {
  298:               $r->print($rdom);
  299:           }
  300:           $r->print('</td><td>');
  301: # realm course
  302:           if ($constructmode) {
  303:              $r->print('<input type="text" size="25" name="course_'.
  304:                        $rulecounter.'" value="'.$rcourse.'" />');
  305:           } else {
  306:               $r->print($rcourse);
  307:           }
  308: 
  309:           $r->print('</td><td rowspan="2">');
  310: # realm section
  311: 	  if ($type eq 'course') {
  312: 	      if ($constructmode) {
  313: 		  $r->print('<input type="text" size="5" name="section_'.
  314: 			    $rulecounter.'" value="'.$rsec.'" />');
  315: 	      } else {
  316: 		  $r->print($rsec);
  317: 	      }
  318: 	  }
  319: 
  320:           $r->print('</td><td rowspan="2">');
  321: # role
  322: 	  if ($type eq 'course') {
  323: 	      if ($constructmode) {
  324: 		  my %hash=('' => '');
  325: 		  foreach ('au','cc','in','ta','st') { 
  326: 		      $hash{$_}=&Apache::lonnet::plaintext($_); 
  327: 		  }
  328: 		  my $role=$token->[2]->{'role'};
  329: 		  unless ($role) { $role=''; }
  330: 		  $r->print(&Apache::loncommon::select_form(
  331: 							    $role,'role_'.$rulecounter,%hash));
  332: 	      } else {
  333: 		  $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'}));
  334: 	      }
  335: 	  }
  336: # course selection link
  337:           $r->print('</td>'.
  338: 		    &Apache::loncommon::end_data_table_row().
  339: 		    &Apache::loncommon::continue_data_table_row().
  340: 		    '<td colspan="2" align="right">');
  341: 	  if ($type eq 'course') {
  342: 	      if ($rcourse) {
  343: 		  my %descript=
  344: 		      &Apache::lonnet::coursedescription($rdom.'_'.$rcourse,
  345: 							 {'one_time' => 1});
  346: 		  $r->print($descript{'description'}.'&nbsp;&nbsp;&nbsp;');
  347: 	      }
  348: 	      if ($constructmode) {
  349: 		  $r->print(&Apache::loncommon::selectcourse_link('rules',
  350: 								  'course_'.$rulecounter,'domain_'.$rulecounter));
  351: 	      }
  352: 	  } else {
  353: 	      if ($rcourse) {
  354: 		  my $name = &Apache::loncommon::plainname($rcourse,$rdom);
  355: 		  $r->print($name.'&nbsp;&nbsp;&nbsp;');
  356: 	      }
  357: 	      if ($constructmode) {
  358: 		  $r->print(&Apache::loncommon::selectstudent_link('rules','course_'.$rulecounter,'domain_'.$rulecounter));
  359: 	      }
  360: 	  }
  361: # close row
  362: 	  $r->print('</td>'.&Apache::loncommon::end_data_table_row());
  363:      }                                       
  364:   }
  365:   $r->print(&Apache::loncommon::end_data_table());
  366: # ------------------------------------------------------------ End table output
  367:   if ($constructmode) { 
  368:      $r->print('<input type="submit" name="store" value="'.&mt('Save').'" /></form>'); 
  369:   }
  370:   $r->print(&Apache::loncommon::end_page());
  371:   return OK;  
  372: }
  373: 
  374: 
  375: 1;
  376: __END__
  377: 
  378: 
  379: 
  380: