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

Diff for /loncom/interface/loncreateuser.pm between versions 1.357 and 1.360

version 1.357, 2011/09/01 02:47:51 version 1.360, 2012/04/25 21:22:01
Line 742  sub user_modification_js { Line 742  sub user_modification_js {
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
 // <![CDATA[  // <![CDATA[
   
     function pclose() {  
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
         parmwin.close();  
     }  
   
     $pjump_def      $pjump_def
     $dc_setcourse_code      $dc_setcourse_code
   
     function dateset() {      function dateset() {
         eval("document.cu."+document.cu.pres_marker.value+          eval("document.cu."+document.cu.pres_marker.value+
             ".value=document.cu.pres_value.value");              ".value=document.cu.pres_value.value");
         pclose();          modalWindow.close();
     }      }
   
     $nondc_setsection_code      $nondc_setsection_code
Line 1471  sub display_existing_roles { Line 1465  sub display_existing_roles {
             $rolesdump{$newkey} = $newvalue;              $rolesdump{$newkey} = $newvalue;
         }          }
     } else {      } else {
         my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});          %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
         %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname,'.',undef,$extra);  
     }      }
     # Build up table of user roles to allow revocation and re-enabling of roles.      # Build up table of user roles to allow revocation and re-enabling of roles.
     my ($tmp) = keys(%rolesdump);      my ($tmp) = keys(%rolesdump);
Line 4042  sub handler { Line 4035  sub handler {
     my ($permission,$allowed) =       my ($permission,$allowed) = 
         &Apache::lonuserutils::get_permission($context,$crstype);          &Apache::lonuserutils::get_permission($context,$crstype);
     if (!$allowed) {      if (!$allowed) {
           if ($context eq 'course') {
               $r->internal_redirect('/adm/viewclasslist');
               return OK;
           }
         $env{'user.error.msg'}=          $env{'user.error.msg'}=
             "/adm/createuser:cst:0:0:Cannot create/modify user data ".              "/adm/createuser:cst:0:0:Cannot create/modify user data ".
                                  "or view user status.";                                   "or view user status.";
Removed from v.1.357  
changed lines
  Added in v.1.360

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