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

Diff for /loncom/interface/loncreateuser.pm between versions 1.69 and 1.160

version 1.69, 2003/10/13 21:41:19 version 1.160, 2007/07/28 21:38:29
Line 64  use Apache::Constants qw(:common :http); Line 64  use Apache::Constants qw(:common :http);
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::longroup;
   use LONCAPA qw(:DEFAULT :match);
   
 my $loginscript; # piece of javascript used in two separate instances  my $loginscript; # piece of javascript used in two separate instances
 my $generalrule;  my $generalrule;
Line 73  my $authformint; Line 75  my $authformint;
 my $authformfsys;  my $authformfsys;
 my $authformloc;  my $authformloc;
   
 BEGIN {  sub initialize_authen_forms {
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;      my ($krbdefdom)=( $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/);
     my $krbdefdom=$1;      $krbdefdom= uc($krbdefdom);
     $krbdefdom=~tr/a-z/A-Z/;  
     my %param = ( formname => 'document.cu',      my %param = ( formname => 'document.cu',
                   kerb_def_dom => $krbdefdom                     kerb_def_dom => $krbdefdom 
                   );                    );
Line 97  BEGIN { Line 98  BEGIN {
 sub my_custom_roles {  sub my_custom_roles {
     my %returnhash=();      my %returnhash=();
     my %rolehash=&Apache::lonnet::dump('roles');      my %rolehash=&Apache::lonnet::dump('roles');
     foreach (keys %rolehash) {      foreach my $key (keys %rolehash) {
  if ($_=~/^rolesdef\_(\w+)$/) {   if ($key=~/^rolesdef\_(\w+)$/) {
     $returnhash{$1}=$1;      $returnhash{$1}=$1;
  }   }
     }      }
Line 109  sub my_custom_roles { Line 110  sub my_custom_roles {
   
 sub authorpriv {  sub authorpriv {
     my ($auname,$audom)=@_;      my ($auname,$audom)=@_;
     if (($auname ne $ENV{'user.name'}) ||      unless ((&Apache::lonnet::allowed('cca',$audom.'/'.$auname))
         (($audom ne $ENV{'user.domain'}) &&           || (&Apache::lonnet::allowed('caa',$audom.'/'.$auname))) { return ''; }
          ($audom ne $ENV{'request.role.domain'}))) { return ''; }  
     unless (&Apache::lonnet::allowed('cca',$audom)) { return ''; }  
     return 1;      return 1;
 }  }
   
   # ====================================================
   
   sub portfolio_quota {
       my ($ccuname,$ccdomain) = @_;
       my %lt = &Apache::lonlocal::texthash(
                      'disk' => "Disk space allocated to user's portfolio files",
                      'cuqu' => "Current quota",
                      'cust' => "Custom quota",
                      'defa' => "Default",
                      'chqu' => "Change quota",
       );
       my ($currquota,$quotatype,$inststatus,$defquota) = 
           &Apache::loncommon::get_user_quota($ccuname,$ccdomain);
       my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain);
       my ($longinsttype,$showquota,$custom_on,$custom_off,$defaultinfo);
       if ($inststatus ne '') {
           if ($usertypes->{$inststatus} ne '') {
               $longinsttype = $usertypes->{$inststatus};
           }
       }
       $custom_on = ' ';
       $custom_off = ' checked="checked" ';
       my $quota_javascript = <<"END_SCRIPT";
   <script type="text/javascript">
   function quota_changes(caller) {
       if (caller == "custom") {
           if (document.cu.customquota[0].checked) {
               document.cu.portfolioquota.value = "";
           }
       }
       if (caller == "quota") {
           document.cu.customquota[1].checked = true;
       }
   }
   </script>
   END_SCRIPT
       if ($quotatype eq 'custom') {
           $custom_on = $custom_off;
           $custom_off = ' ';
           $showquota = $currquota;
           if ($longinsttype eq '') {
               $defaultinfo = &mt('For this user, the default quota would be [_1]
                               Mb.',$defquota);
           } else {
               $defaultinfo = &mt("For this user, the default quota would be [_1] 
                               Mb, as determined by the user's institutional
                              affiliation ([_2]).",$defquota,$longinsttype);
           }
       } else {
           if ($longinsttype eq '') {
               $defaultinfo = &mt('For this user, the default quota is [_1]
                               Mb.',$defquota);
           } else {
               $defaultinfo = &mt("For this user, the default quota of [_1]
                               Mb, is determined by the user's institutional
                               affiliation ([_2]).",$defquota,$longinsttype);
           }
       }
       my $output = $quota_javascript.
                    '<h3>'.$lt{'disk'}.'</h3>'.
                    $lt{'cuqu'}.': '.$currquota.'&nbsp;Mb.&nbsp;&nbsp;'.
                    $defaultinfo.'<br /><span class="LC_nobreak">'.$lt{'chqu'}.
                    ': <label>'.
                    '<input type="radio" name="customquota" value="0" '.
                    $custom_off.' onchange="javascript:quota_changes('."'custom'".')"
                     />'.$lt{'defa'}.'&nbsp;('.$defquota.' Mb).</label>&nbsp;'.
                    '&nbsp;<label><input type="radio" name="customquota" value="1" '. 
                    $custom_on.'  onchange="javascript:quota_changes('."'custom'".')" />'.
                    $lt{'cust'}.':</label>&nbsp;'.
                    '<input type="text" name="portfolioquota" size ="5" value="'.
                    $showquota.'" onfocus="javascript:quota_changes('."'quota'".')" '.
                    '/>&nbsp;Mb';
       return $output;
   }
   
 # =================================================================== Phase one  # =================================================================== Phase one
   
 sub print_username_entry_form {  sub print_username_entry_form {
     my $r=shift;      my ($r,$response,$srch,$forcenewuser) = @_;
     my $defdom=$ENV{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
     my @domains = &Apache::loncommon::get_domains();      my $formtoset = 'crtuser';
     my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');      if (exists($env{'form.startrolename'})) {
     my $bodytag =&Apache::loncommon::bodytag(          $formtoset = 'docustom';
                                   'Create Users, Change User Privileges');          $env{'form.rolename'} = $env{'form.startrolename'};
     my $selscript=&Apache::loncommon::studentbrowser_javascript();      }
     my $sellink=&Apache::loncommon::selectstudent_link      my ($newuserscript,$newuservalidate);
                                         ('crtuser','ccuname','ccdomain');  
       if ($forcenewuser) {
           $newuserscript = <<"ENDSCRIPT";
   
   function setSearch() {
       var createnew = 0;
       for (var i=0; i<document.crtuser.forcenew.length; i++) {
           if (document.crtuser.forcenew[i].checked) {
               if (document.crtuser.forcenew[i].value == 1) {
                   createnew = 1;
               }
           }
       } 
       if (createnew == 1) {
           for (var i=0; i<document.crtuser.srchby.length; i++) {
               if (document.crtuser.srchby.options[i].value == 'uname') {
                   document.crtuser.srchby.selectedIndex = i;
               }
           }
           for (var i=0; i<document.crtuser.srchin.length; i++) {
               if (document.crtuser.srchin.options[i].value == 'dom') {
                   document.crtuser.srchin.selectedIndex = i;
               }
           }
           for (var i=0; i<document.crtuser.srchtype.length; i++) {
               if (document.crtuser.srchtype.options[i].value == 'exact') {
                   document.crtuser.srchtype.selectedIndex = i;
               }
           }
           for (var i=0; i<document.crtuser.srchdomain.length; i++) {
               if (document.crtuser.srchdomain.options[i].value == '$env{'request.role.domain'}') {
                   document.crtuser.srchdomain.selectedIndex = i;
               }
           }
       }
   }
   ENDSCRIPT
           $newuservalidate = <<"ENDBLOCK";
       setSearch();
   ENDBLOCK
       }
       my $validatescript = <<"ENDSCRIPT";
   
   function validateEntry() {
       var checkok = 1;
       var srchin = document.crtuser.srchin.options[document.crtuser.srchin.selectedIndex].value;
       var srchtype = document.crtuser.srchtype.options[document.crtuser.srchtype.selectedIndex].value;
       var srchby = document.crtuser.srchby.options[document.crtuser.srchby.selectedIndex].value;
       var srchdomain = document.crtuser.srchdomain.options[document.crtuser.srchdomain.selectedIndex].value;
       var srchterm =  document.crtuser.srchterm.value;
       var msg = "";
   
       if (srchterm == "") {
           checkok = 0;
           msg += "You must include some text to search for.\\n";
       }
   
       $newuservalidate
   
       if (srchtype== 'contains') {
           if (srchterm.length < 3) {
               checkok = 0;
               msg += "The text you are searching for must contain at least three characters when using a 'contained in' type search.\\n";   
           }
       }
       if (srchin == 'instd') {
           if (srchdomain == '') {
               checkok = 0;
               msg += "You must choose a domain when using an institutional directory search.\\n"; 
           }
       }
       if (srchin == 'dom') {
           if (srchdomain == '') {
               checkok = 0;
               msg += "You must choose a domain when using a domain search.\\n";
           }
       }
       if (srchby == 'lastfirst') {
           if (srchterm.indexOf(",") == -1) {
               checkok = 0;
               msg += "When using searching by last,first you must include a comma as separator between last name and first name.\\n";
           }
           if (srchterm.indexOf(",") == srchterm.length -1) { 
               checkok = 0;
               msg += "When searching by last,first you must include at least one character in the first name.\\n";
           }
       }
       if (checkok == 0) {
           alert("The following need to be corrected before the search can be run:\\n"+msg);
           return;
       }
       if (checkok == 1) {
           document.crtuser.submit();
       }
   }
   
   ENDSCRIPT
   
       my ($jsback,$elements) = &crumb_utilities();
   
       my $jscript = &Apache::loncommon::studentbrowser_javascript()."\n".
           '<script type"text/javascript">'."\n".
           &Apache::lonhtmlcommon::set_form_elements($elements->{$formtoset}).
           $newuserscript.$validatescript.'</script>'."\n";
   
       my %loaditems = (
                   'onload' => "javascript:setFormElements(document.$formtoset)",
                       );
       my $start_page =
    &Apache::loncommon::start_page('Create Users, Change User Privileges',
          $jscript,{'add_entries' => \%loaditems,});
      &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.crtuser)",
          text=>"User/custom role search",
          faq=>282,bug=>'Instructor Interface',});
   
       my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');
     my %existingroles=&my_custom_roles();      my %existingroles=&my_custom_roles();
     my $choice=&Apache::loncommon::select_form('make new role','rolename',      my $choice=&Apache::loncommon::select_form('make new role','rolename',
  ('make new role' => 'Generate new role ...',%existingroles));   ('make new role' => 'Generate new role ...',%existingroles));
     $r->print(<<"ENDDOCUMENT");      my %lt=&Apache::lonlocal::texthash(
 <html>                      'srch' => "User Search",
 <head>                       or    => "or",
 <title>The LearningOnline Network with CAPA</title>      'siur' => "Set Individual User Roles",
 $selscript      'usr'  => "Username",
 </head>                      'dom'  => "Domain",
 $bodytag                      'ecrp' => "Edit Custom Role Privileges",
                       'nr'   => "Name of Role",
                       'cre'  => "Custom Role Editor",
          );
       my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface');
       my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');
       my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles');
       my $sellink=&Apache::loncommon::selectstudent_link('crtuser','srchterm','srchdomain');
       if ($sellink) {
           $sellink = "$lt{'or'} ".$sellink;
       } 
       $r->print("
   $start_page
   $crumbs
   <h2>$lt{siur}$helpsiur</h2>
   <h3>$lt{'srch'} $sellink</h3>
   $response");
       $r->print(&entry_form($defdom,$srch,$forcenewuser));
       if (&Apache::lonnet::allowed('mcr','/')) {
           $r->print(<<ENDCUSTOM);
   <form action="/adm/createuser" method="post" name="docustom">
   <input type="hidden" name="phase" value="selected_custom_edit" />
   <h2>$lt{'ecrp'}$helpecpr</h2>
   $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
   <input name="customeditor" type="submit" value="$lt{'cre'}" />
   </form>
   ENDCUSTOM
       }
       $r->print(&Apache::loncommon::end_page());
   }
   
   sub entry_form {
       my ($dom,$srch,$forcenewuser) = @_;
       my $userpicker = 
          &Apache::loncommon::user_picker($dom,$srch,$forcenewuser);
       my $srchbutton = &mt('Search');
       my $output = <<"ENDDOCUMENT";
 <form action="/adm/createuser" method="post" name="crtuser">  <form action="/adm/createuser" method="post" name="crtuser">
 <input type="hidden" name="phase" value="get_user_info">  <input type="hidden" name="phase" value="get_user_info" />
 <h2>Set Individual User Roles</h2>  $userpicker
 <table>  <input name="userrole" type="button" value="$srchbutton" onclick="javascript:validateEntry()" />
 <tr><td>Username:</td><td><input type="text" size="15" name="ccuname">  
 </td><td rowspan="2">$sellink</td></tr><tr><td>  
 Domain:</td><td>$domform</td></tr>  
 </table>  
 <input name="userrole" type="submit" value="User Roles" />  
 </form>  </form>
 <form action="/adm/createuser" method="post" name="docustom">  
 <input type="hidden" name="phase" value="selected_custom_edit">  
 <h2>Edit Custom Role Privileges</h2>  
 Name of Role: $choice <input type="text" size="15" name="newrolename" /><br />  
 <input name="customeditor" type="submit" value="Custom Role Editor" />  
 </body>  
 </html>  
 ENDDOCUMENT  ENDDOCUMENT
       return $output;
   }
   
   sub user_modification_js {
       my ($pjump_def,$dc_setcourse_code,$nondc_setsection_code,$groupslist)=@_;
       
       return <<END;
   <script type="text/javascript" language="Javascript">
   
       function pclose() {
           parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                    "height=350,width=350,scrollbars=no,menubar=no");
           parmwin.close();
       }
   
       $pjump_def
       $dc_setcourse_code
   
       function dateset() {
           eval("document.cu."+document.cu.pres_marker.value+
               ".value=document.cu.pres_value.value");
           pclose();
       }
   
       $nondc_setsection_code
   
   </script>
   END
 }  }
   
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_modification_page {  sub print_user_selection_page {
     my $r=shift;      my ($r,$response,$srch,$srch_results) = @_;
     my $ccuname=$ENV{'form.ccuname'};      my @fields = ('username','domain','lastname','firstname','permanentemail');
     my $ccdomain=$ENV{'form.ccdomain'};      my $sortby = $env{'form.sortby'};
   
       if (!grep(/^\Q$sortby\E$/,@fields)) {
           $sortby = 'lastname';
       }
   
       my ($jsback,$elements) = &crumb_utilities();
   
       my $jscript = (<<ENDSCRIPT);
   <script type="text/javascript">
   function pickuser(uname,udom) {
       document.usersrchform.seluname.value=uname;
       document.usersrchform.seludom.value=udom;
       document.usersrchform.phase.value="userpicked";
       document.usersrchform.submit();
   }
   
   $jsback
   </script>
   ENDSCRIPT
   
       my %lt=&Apache::lonlocal::texthash(
                                          'srch'           => "User Search",
                                          'username'       => "username",
                                          'domain'         => "domain",
                                          'lastname'       => "last name",
                                          'firstname'      => "first name",
                                          'permanentemail' => "permanent e-mail",
                                         );
       $r->print(&Apache::loncommon::start_page('Create Users, Change User Privileges',$jscript));
       &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"javascript:backPage(document.usersrchform,'','')",
             text=>"User/custom role search",
             faq=>282,bug=>'Instructor Interface',},
            {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",
             text=>"Select User",
             faq=>282,bug=>'Instructor Interface',});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
       $r->print("<b>$lt{'srch'}</b><br />");
       $r->print(&entry_form($srch->{'srchdomain'},$srch));
       $r->print('<h3>'.&mt('Select a user').'</h3>');
       $r->print('<form name="usersrchform" method="post">'.
                 &Apache::loncommon::start_data_table()."\n".
                 &Apache::loncommon::start_data_table_header_row()."\n".
                 ' <th> </th>'."\n");
       foreach my $field (@fields) {
           $r->print(' <th><a href="javascript:document.usersrchform.sortby.value='.
                     "'".$field."'".';document.usersrchform.submit();">'.
                     $lt{$field}.'</a></th>'."\n");
       }
       $r->print(&Apache::loncommon::end_data_table_header_row());
   
       my @sorted_users = sort {
           lc($srch_results->{$a}->{$sortby})  cmp lc($srch_results->{$b}->{$sortby})
               ||
           lc($srch_results->{$a}->{lastname}) cmp lc($srch_results->{$b}->{lastname})
               ||
           lc($srch_results->{$a}->{firstname}) cmp lc($srch_results->{$b}->{firstname})
           } (keys(%$srch_results));
   
       foreach my $user (@sorted_users) {
           my ($uname,$udom) = split(/:/,$user);
           $r->print(&Apache::loncommon::start_data_table_row().
                     '<td><input type="button" name="seluser" value="'.&mt('Select').'" onclick="javascript:pickuser('."'".$uname."'".','."'".$udom."'".')" /></td>'.
                     '<td><tt>'.$uname.'</tt></td>'.
                     '<td><tt>'.$udom.'</tt></td>');
           foreach my $field ('lastname','firstname','permanentemail') {
               $r->print('<td>'.$srch_results->{$user}->{$field}.'</td>');
           }
           $r->print(&Apache::loncommon::end_data_table_row());
       }
       $r->print(&Apache::loncommon::end_data_table().'<br /><br />');
       $r->print(&Apache::lonhtmlcommon::echo_form_input(['sortby','seluname','seludom','state','phase']));
       $r->print(' <input type="hidden" name="sortby" value="'.$sortby.'" />'."\n".
                 ' <input type="hidden" name="seluname" value="" />'."\n".
                 ' <input type="hidden" name="seludom" value="" />'."\n".
                 ' <input type="hidden" name="state" value="select" />'."\n".
                 ' <input type="hidden" name="phase" value="get_user_info" />'."\n".
                 '</form>');
       $r->print($response);
       $r->print(&Apache::loncommon::end_page());
   }
   
     $ccuname=~s/\W//gs;  sub print_user_query_page {
     $ccdomain=~s/\W//gs;      my ($r) = @_;
   # FIXME - this is for a network-wide name search (similar to catalog search)
   # To use frames with similar behavior to catalog/portfolio search.
   # To be implemented. 
       return;
   }
   
   sub print_user_modification_page {
       my ($r,$ccuname,$ccdomain,$srch,$response) = @_;
     unless (($ccuname) && ($ccdomain)) {      unless (($ccuname) && ($ccdomain)) {
  &print_username_entry_form($r);   &print_username_entry_form($r);
         return;          return;
     }      }
       if ($response) {
     my $defdom=$ENV{'request.role.domain'};          $response = '<br />'.$response
       }
       my $defdom=$env{'request.role.domain'};
   
     my ($krbdef,$krbdefdom) =      my ($krbdef,$krbdefdom) =
        &Apache::loncommon::get_kerberos_defaults($defdom);         &Apache::loncommon::get_kerberos_defaults($defdom);
Line 180  sub print_user_modification_page { Line 512  sub print_user_modification_page {
     my %param = ( formname => 'document.cu',      my %param = ( formname => 'document.cu',
                   kerb_def_dom => $krbdefdom,                    kerb_def_dom => $krbdefdom,
                   kerb_def_auth => $krbdef                    kerb_def_auth => $krbdef
                   );                  );
     $loginscript  = &Apache::loncommon::authform_header(%param);      $loginscript  = &Apache::loncommon::authform_header(%param);
     $authformkrb  = &Apache::loncommon::authform_kerberos(%param);      $authformkrb  = &Apache::loncommon::authform_kerberos(%param);
   
     $ccuname=~s/\W//g;      $ccuname =&LONCAPA::clean_username($ccuname);
     $ccdomain=~s/\W//g;      $ccdomain=&LONCAPA::clean_domain($ccdomain);
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     my $dochead =<<"ENDDOCHEAD";      my $dc_setcourse_code = '';
 <html>      my $nondc_setsection_code = '';                                        
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 <script type="text/javascript" language="Javascript">  
   
     function pclose() {      my %loaditem;
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
         parmwin.close();  
     }  
   
     $pjump_def      my $groupslist;
       my %curr_groups = &Apache::longroup::coursegroups();
       if (%curr_groups) {
           $groupslist = join('","',sort(keys(%curr_groups)));
           $groupslist = '"'.$groupslist.'"';   
       }
   
       if ($env{'request.role'} =~ m-^dc\./($match_domain)/$-) {
           my $dcdom = $1;
           $loaditem{'onload'} = "document.cu.coursedesc.value='';";
           my @rolevals = ('st','ta','ep','in','cc');
           my (@crsroles,@grproles);
           for (my $i=0; $i<@rolevals; $i++) {
               $crsroles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Course');
               $grproles[$i]=&Apache::lonnet::plaintext($rolevals[$i],'Group');
           }
           my $rolevalslist = join('","',@rolevals);
           my $crsrolenameslist = join('","',@crsroles);
           my $grprolenameslist = join('","',@grproles);
           my $pickcrsfirst = '<--'.&mt('Pick course first');
           my $pickgrpfirst = '<--'.&mt('Pick group first'); 
           $dc_setcourse_code = <<"ENDSCRIPT";
       function setCourse() {
           var course = document.cu.dccourse.value;
           if (course != "") {
               if (document.cu.dcdomain.value != document.cu.origdom.value) {
                   alert("You must select a course in the current domain");
                   return;
               } 
               var userrole = document.cu.role.options[document.cu.role.selectedIndex].value
               var section="";
               var numsections = 0;
               var newsecs = new Array();
               for (var i=0; i<document.cu.currsec.length; i++) {
                   if (document.cu.currsec.options[i].selected == true ) {
                       if (document.cu.currsec.options[i].value != "" && document.cu.currsec.options[i].value != null) { 
                           if (numsections == 0) {
                               section = document.cu.currsec.options[i].value
                               numsections = 1;
                           }
                           else {
                               section = section + "," +  document.cu.currsec.options[i].value
                               numsections ++;
                           }
                       }
                   }
               }
               if (document.cu.newsec.value != "" && document.cu.newsec.value != null) {
                   if (numsections == 0) {
                       section = document.cu.newsec.value
                   }
                   else {
                       section = section + "," +  document.cu.newsec.value
                   }
                   newsecs = document.cu.newsec.value.split(/,/g);
                   numsections = numsections + newsecs.length;
               }
               if ((userrole == 'st') && (numsections > 1)) {
                   alert("In each course, each user may only have one student role at a time. You had selected "+numsections+" sections.\\nPlease modify your selections so they include no more than one section.")
                   return;
               }
               for (var j=0; j<newsecs.length; j++) {
                   if ((newsecs[j] == 'all') || (newsecs[j] == 'none')) {
                       alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");
                       return;
                   }
                   if (document.cu.groups.value != '') {
                       var groups = document.cu.groups.value.split(/,/g);
                       for (var k=0; k<groups.length; k++) {
                           if (newsecs[j] == groups[k]) {
                               alert("'"+newsecs[j]+"' may not be used as the name for a section, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");
                               return; 
                           }
                       }
                   }
               }
               if ((userrole == 'cc') && (numsections > 0)) {
                   alert("Section designations do not apply to Course Coordinator roles.\\nA course coordinator role will be added with access to all sections.");
                   section = "";
               }
               var coursename = "_$dcdom"+"_"+course+"_"+userrole
               var numcourse = getIndex(document.cu.dccourse);
               if (numcourse == "-1") {
                   alert("There was a problem with your course selection");
                   return
               }
               else {
                   document.cu.elements[numcourse].name = "act"+coursename;
                   var numnewsec = getIndex(document.cu.newsec);
                   if (numnewsec != "-1") {
                       document.cu.elements[numnewsec].name = "sec"+coursename;
                       document.cu.elements[numnewsec].value = section;
                   }
                   var numstart = getIndex(document.cu.start);
                   if (numstart != "-1") {
                       document.cu.elements[numstart].name = "start"+coursename;
                   }
                   var numend = getIndex(document.cu.end);
                   if (numend != "-1") {
                       document.cu.elements[numend].name = "end"+coursename
                   }
               }
           }
           document.cu.submit();
       }
   
     function dateset() {      function getIndex(caller) {
         eval("document.cu."+document.cu.pres_marker.value+          for (var i=0;i<document.cu.elements.length;i++) {
             ".value=document.cu.pres_value.value");              if (document.cu.elements[i] == caller) {
         pclose();                  return i;
               }
           }
           return -1;
       }
   ENDSCRIPT
       } else {
           $nondc_setsection_code = <<"ENDSECCODE";
       function setSections() {
           var re1 = /^currsec_/;
           var groups = new Array($groupslist);
           for (var i=0;i<document.cu.elements.length;i++) {
               var str = document.cu.elements[i].name;
               var checkcurr = str.match(re1);
               if (checkcurr != null) {
                   if (document.cu.elements[i-1].checked == true) {
       var match = str.split('_');
                       var role = match[3];
                       if (role == 'cc') {
                           alert("Section designations do not apply to Course Coordinator roles.\\nA course coordinator role will be added with access to all sections.");
                       }
                       else {
                           var sections = '';
                           var numsec = 0;
                           var sections;
                           for (var j=0; j<document.cu.elements[i].length; j++) {
                               if (document.cu.elements[i].options[j].selected == true ) {
                                   if (document.cu.elements[i].options[j].value != "") {
                                       if (numsec == 0) {
                                           if (document.cu.elements[i].options[j].value != "") {
                                               sections = document.cu.elements[i].options[j].value;
                                               numsec ++;
                                           }
                                       }
                                       else {
                                           sections = sections + "," +  document.cu.elements[i].options[j].value
                                           numsec ++;
                                       }
                                   }
                               }
                           }
                           if (numsec > 0) {
                               if (document.cu.elements[i+1].value != "" && document.cu.elements[i+1].value != null) {
                                   sections = sections + "," +  document.cu.elements[i+1].value;
                               }
                           }
                           else {
                               sections = document.cu.elements[i+1].value;
                           }
                           var newsecs = document.cu.elements[i+1].value;
    var numsplit;
                           if (newsecs != null && newsecs != "") {
                               numsplit = newsecs.split(/,/g);
                               numsec = numsec + numsplit.length;
                           }
   
                           if ((role == 'st') && (numsec > 1)) {
                               alert("In each course, each user may only have one student role at a time. You had selected "+numsec+" sections.\\nPlease modify your selections so they include no more than one section.")
                               return;
                           }
                           else if (numsplit != null) {
                               for (var j=0; j<numsplit.length; j++) {
                                   if ((numsplit[j] == 'all') ||
                                       (numsplit[j] == 'none')) {
                                       alert("'"+numsplit[j]+"' may not be used as the name for a section, as it is a reserved word.\\nPlease choose a different section name.");
                                       return;
                                   }
                                   for (var k=0; k<groups.length; k++) {
                                       if (numsplit[j] == groups[k]) {
                                           alert("'"+numsplit[j]+"' may not be used as a section name, as it is the name of a course group.\\nSection names and group names must be distinct. Please choose a different section name.");
                                           return;
                                       }
                                   }
                               }
                           }
                           document.cu.elements[i+2].value = sections;
                       }
                   }
               }
           }
           document.cu.submit();
       }
   ENDSECCODE
     }      }
       my $js = &user_modification_js($pjump_def,$dc_setcourse_code,
                                      $nondc_setsection_code,$groupslist);
   
       my ($jsback,$elements) = &crumb_utilities();
   
       $js .= "\n".
              '<script type="text/javascript">'."\n".$jsback."\n".'</script>';
   
       my $start_page = 
    &Apache::loncommon::start_page('Create Users, Change User Privileges',
          $js,{'add_entries' => \%loaditem,});
       &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.cu)",
          text=>"User/custom role search",
          faq=>282,bug=>'Instructor Interface',});
   
       if ($env{'form.phase'} eq 'userpicked') {
           &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.cu,'get_user_info','select')",
          text=>"Select a user",
          faq=>282,bug=>'Instructor Interface',});
       }
       &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"javascript:backPage(document.cu,'$env{'form.phase'}','modify')",
           text=>"Set user role",
           faq=>282,bug=>'Instructor Interface',});
       my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');
   
 </script>  
 </head>  
 ENDDOCHEAD  
     $r->print(&Apache::loncommon::bodytag(  
                                      'Create Users, Change User Privileges'));  
     my $forminfo =<<"ENDFORMINFO";      my $forminfo =<<"ENDFORMINFO";
 <form action="/adm/createuser" method="post" name="cu">  <form action="/adm/createuser" method="post" name="cu">
 <input type="hidden" name="phase"       value="update_user_data">  <input type="hidden" name="phase"       value="update_user_data" />
 <input type="hidden" name="ccuname"     value="$ccuname">  <input type="hidden" name="ccuname"     value="$ccuname" />
 <input type="hidden" name="ccdomain"    value="$ccdomain">  <input type="hidden" name="ccdomain"    value="$ccdomain" />
 <input type="hidden" name="pres_value"  value="" >  <input type="hidden" name="pres_value"  value="" />
 <input type="hidden" name="pres_type"   value="" >  <input type="hidden" name="pres_type"   value="" />
 <input type="hidden" name="pres_marker" value="" >  <input type="hidden" name="pres_marker" value="" />
 ENDFORMINFO  ENDFORMINFO
     my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);      my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
     my %incdomains;   
     my %inccourses;      my %inccourses;
     foreach (values(%Apache::lonnet::hostdom)) {      foreach my $key (keys(%env)) {
        $incdomains{$_}=1;   if ($key=~/^user\.priv\.cm\.\/($match_domain)\/($match_username)/) {
     }  
     foreach (keys(%ENV)) {  
  if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) {  
     $inccourses{$1.'_'.$2}=1;      $inccourses{$1.'_'.$2}=1;
         }          }
     }      }
     if ($uhome eq 'no_host') {      if ($uhome eq 'no_host') {
           my $instsrch = { 
                            srchin => 'instd',
                            srchterm => $env{'form.seluname'},
                            srchdomain => $env{'form.seludom'},
                            srchby => 'uname',
                            srchtype => 'exact',
                          };
           my %inst_results;
           if (directorysrch_check($instsrch) eq 'ok') {
               %inst_results = &Apache::lonnet::inst_directory_query($instsrch);
           }
         my $home_server_list=          my $home_server_list=
             '<option value="default" selected>default</option>'."\n".              '<option value="default" selected>default</option>'."\n".
                 &Apache::loncommon::home_server_option_list($ccdomain);                  &Apache::loncommon::home_server_option_list($ccdomain);
                   
    my %lt=&Apache::lonlocal::texthash(
                       'cnu'  => "Create New User",
                       'nu'   => "New User",
                       'id'   => "in domain",
                       'pd'   => "Personal Data",
                       'fn'   => "First Name",
                       'mn'   => "Middle Name",
                       'ln'   => "Last Name",
                       'gen'  => "Generation",
                       'mail' => "Permanent e-mail address",
                       'idsn' => "ID/Student Number",
                       'hs'   => "Home Server",
                       'lg'   => "Login Data"
          );
           my $portfolioform;
           if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
               # Current user has quota modification privileges
               $portfolioform = &portfolio_quota($ccuname,$ccdomain);
           }
    my $genhelp=&Apache::loncommon::help_open_topic('Generation');
           &initialize_authen_forms();
  $r->print(<<ENDNEWUSER);   $r->print(<<ENDNEWUSER);
 $dochead  $start_page
 <h1>Create New User</h1>  $crumbs
   <h1>$lt{'cnu'}</h1>
   $response
 $forminfo  $forminfo
 <h2>New user "$ccuname" in domain $ccdomain</h2>  <h2>$lt{'nu'} "$ccuname" $lt{'id'} $ccdomain</h2>
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
 $loginscript  $loginscript
 </script>  </script>
 <input type='hidden' name='makeuser' value='1' />  <input type='hidden' name='makeuser' value='1' />
 <h3>Personal Data</h3>  <h3>$lt{'pd'}</h3>
 <p>  <p>
 <table>  <table>
 <tr><td>First Name  </td>  <tr><td>$lt{'fn'}  </td>
     <td><input type='text' name='cfirst'  size='15' /></td></tr>      <td><input type="text" name="cfirst" size="15" value="$inst_results{'firstname'}" /></td></tr>
 <tr><td>Middle Name </td>   <tr><td>$lt{'mn'} </td> 
     <td><input type='text' name='cmiddle' size='15' /></td></tr>      <td><input type="text" name="cmiddle" size="15" value="$inst_results{'middlename'}" /></td></tr>
 <tr><td>Last Name   </td>  <tr><td>$lt{'ln'}   </td>
     <td><input type='text' name='clast'   size='15' /></td></tr>      <td><input type="text" name="clast" size="15" value="$inst_results{'lastname'}" /></td></tr>
 <tr><td>Generation  </td>  <tr><td>$lt{'gen'}$genhelp</td>
     <td><input type='text' name='cgen'    size='5'  /></td></tr>      <td><input type="text" name="cgen" size="5" value="$inst_results{'generation'}" /></td></tr>
   <tr><td>$lt{'mail'}</td>
       <td><input type="text" name="cemail" size="20" value="$inst_results{'permanentemail'}" /></td></tr>
 </table>  </table>
 ID/Student Number <input type='text' name='cstid'   size='15' /></p>  $lt{'idsn'} <input type="text" name="cstid" size="15" value="$inst_results{'id'}" /></p>
 Home Server: <select name="hserver" size="1"> $home_server_list </select>  $lt{'hs'}: <select name="hserver" size="1"> $home_server_list </select>
 <hr />  <hr />
 <h3>Login Data</h3>  <h3>$lt{'lg'}</h3>
 <p>$generalrule </p>  <p>$generalrule </p>
 <p>$authformkrb </p>  <p>$authformkrb </p>
 <p>$authformint </p>  <p>$authformint </p>
 <p>$authformfsys</p>  <p>$authformfsys</p>
 <p>$authformloc </p>  <p>$authformloc </p>
   <hr />
   $portfolioform
 ENDNEWUSER  ENDNEWUSER
     } else { # user already exists      } else { # user already exists
    my %lt=&Apache::lonlocal::texthash(
                       'cup'  => "Change User Privileges",
                       'usr'  => "User",                    
                       'id'   => "in domain",
                       'fn'   => "first name",
                       'mn'   => "middle name",
                       'ln'   => "last name",
                       'gen'  => "generation",
                       'email' => "permanent e-mail",
          );
  $r->print(<<ENDCHANGEUSER);   $r->print(<<ENDCHANGEUSER);
 $dochead  $start_page
 <h1>Change User Privileges</h1>  $crumbs
   <h1>$lt{'cup'}</h1>
 $forminfo  $forminfo
 <h2>User "$ccuname" in domain "$ccdomain"</h2>  <h2>$lt{'usr'} "$ccuname" $lt{'id'} "$ccdomain"</h2>
 ENDCHANGEUSER  ENDCHANGEUSER
         # Get the users information          # Get the users information
         my %userenv = &Apache::lonnet::get('environment',          my %userenv = 
                           ['firstname','middlename','lastname','generation'],              &Apache::lonnet::get('environment',
                           $ccdomain,$ccuname);                  ['firstname','middlename','lastname','generation',
                    'permanentemail','portfolioquota'],$ccdomain,$ccuname);
         my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);          my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
         $r->print(<<END);          $r->print('
 <hr />  <hr />'.
 <table border="2">                    &Apache::loncommon::start_data_table().
 <tr>                    &Apache::loncommon::start_data_table_header_row().
 <th>first name</th><th>middle name</th><th>last name</th><th>generation</th>  '<th>'.$lt{'fn'}.'</th><th>'.$lt{'mn'}.'</th><th>'.$lt{'ln'}.'</th><th>'.$lt{'gen'}.'</th><th>'.$lt{'email'}.'</th>'.
 </tr>                    &Apache::loncommon::end_data_table_header_row().
 <tr>                    &Apache::loncommon::start_data_table_row());
 END          foreach my $item ('firstname','middlename','lastname','generation','permenanentemail') {
         foreach ('firstname','middlename','lastname','generation') {  
            if (&Apache::lonnet::allowed('mau',$ccdomain)) {             if (&Apache::lonnet::allowed('mau',$ccdomain)) {
               $r->print(<<"END");                            $r->print(<<"END");
 <td><input type="text" name="c$_" value="$userenv{$_}" size="15" /></td>  <td><input type="text" name="c$item" value="$userenv{$item}" size="15" /></td>
 END  END
            } else {             } else {
                $r->print('<td>'.$userenv{$_}.'</td>');                 $r->print('<td>'.$userenv{$item}.'</td>');
            }             }
         }          }
         $r->print(<<END);          $r->print(&Apache::loncommon::end_data_table_row().
 </tr>                    &Apache::loncommon::end_data_table());
 </table>  
 END  
         # Build up table of user roles to allow revocation of a role.          # Build up table of user roles to allow revocation of a role.
         my ($tmp) = keys(%rolesdump);          my ($tmp) = keys(%rolesdump);
         unless ($tmp =~ /^(con_lost|error)/i) {          unless ($tmp =~ /^(con_lost|error)/i) {
            my $now=time;             my $now=time;
            $r->print(<<END);     my %lt=&Apache::lonlocal::texthash(
 <hr />      'rer'  => "Revoke Existing Roles",
 <h3>Revoke Existing Roles</h3>                      'rev'  => "Revoke",                    
 <table border=2>                      'del'  => "Delete",
 <tr><th>Revoke</th><th>Delete</th><th>Role</th><th>Extent</th><th>Start</th><th>End</th>      'ren'  => "Re-Enable",
 END                      'rol'  => "Role",
                       'ext'  => "Extent",
                       'sta'  => "Start",
                       'end'  => "End"
          );
              my (%roletext,%sortrole,%roleclass,%rolepriv);
    foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);     foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
     my $b1=join('_',(split('_',$b))[1,0]);      my $b1=join('_',(split('_',$b))[1,0]);
     return $a1 cmp $b1;      return $a1 cmp $b1;
  } keys(%rolesdump)) {   } keys(%rolesdump)) {
                next if ($area =~ /^rolesdef/);                 next if ($area =~ /^rolesdef/);
          my $envkey=$area;
                my $role = $rolesdump{$area};                 my $role = $rolesdump{$area};
                my $thisrole=$area;                 my $thisrole=$area;
                $area =~ s/\_\w\w$//;                 $area =~ s/\_\w\w$//;
Line 323  END Line 905  END
                    split(/_/,$role);                     split(/_/,$role);
 # Is this a custom role? Get role owner and title.  # Is this a custom role? Get role owner and title.
        my ($croleudom,$croleuname,$croletitle)=         my ($croleudom,$croleuname,$croletitle)=
            ($role_code=~/^cr\/(\w+)\/(\w+)\/(\w+)$/);             ($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});
                my $bgcol='ffffff';  
                my $allowed=0;                 my $allowed=0;
                my $delallowed=0;                 my $delallowed=0;
                if ($area =~ /^\/(\w+)\/(\d\w+)/ ) {         my $sortkey=$role_code;
          my $class='Unknown';
                  if ($area =~ m{^/($match_domain)/($match_courseid)} ) {
      $class='Course';
                    my ($coursedom,$coursedir) = ($1,$2);                     my ($coursedom,$coursedir) = ($1,$2);
      $sortkey.="\0$coursedom";
                    # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).                     # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
                    my %coursedata=                     my %coursedata=
                        &Apache::lonnet::coursedescription($1.'_'.$2);                         &Apache::lonnet::coursedescription($1.'_'.$2);
    my $carea;     my $carea;
    if (defined($coursedata{'description'})) {     if (defined($coursedata{'description'})) {
        $carea='Course: '.$coursedata{'description'}.         $carea=$coursedata{'description'}.
                            '<br />Domain: '.$coursedom.('&nbsp;'x8).                             '<br />'.&mt('Domain').': '.$coursedom.('&nbsp;'x8).
      &Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom);       &Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom);
          $sortkey.="\0".$coursedata{'description'};
                          $class=$coursedata{'type'};
    } else {     } else {
        $carea='Unavailable course: '.$area;         $carea=&mt('Unavailable course').': '.$area;
          $sortkey.="\0".&mt('Unavailable course').': '.$area;
    }     }
      $sortkey.="\0$coursedir";
                    $inccourses{$1.'_'.$2}=1;                     $inccourses{$1.'_'.$2}=1;
                    if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||                     if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||
                        (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {                         (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
Line 357  END Line 946  END
        }         }
    }     }
                    # Compute the background color based on $area                     # Compute the background color based on $area
                    $bgcol=$1.'_'.$2;                     if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {
                    $bgcol=~s/[^7-9a-e]//g;                         $carea.='<br />Section: '.$3;
                    $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);         $sortkey.="\0$3";
                    if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {  
                        $carea.='<br>Section/Group: '.$3;  
                    }                     }
                    $area=$carea;                     $area=$carea;
                } else {                 } else {
      $sortkey.="\0".$area;
                    # Determine if current user is able to revoke privileges                     # Determine if current user is able to revoke privileges
                    if ($area=~ /^\/(\w+)\//) {                     if ($area=~m{^/($match_domain)/}) {
                        if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||                         if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||
                        (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {                         (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                            $allowed=1;                             $allowed=1;
Line 381  END Line 969  END
                            $allowed=1;                             $allowed=1;
                        }                         }
                    }                     }
      if ($role_code eq 'ca' || $role_code eq 'au') {
          $class='Construction Space';
      } elsif ($role_code eq 'su') {
          $class='System';
      } else {
          $class='Domain';
      }
                }                 }
                if ($role_code eq 'ca') {                 if (($role_code eq 'ca') || ($role_code eq 'aa')) {
                    $area=~/\/(\w+)\/(\w+)/;                     $area=~m{/($match_domain)/($match_username)};
    if (&authorpriv($2,$1)) {     if (&authorpriv($2,$1)) {
        $allowed=1;         $allowed=1;
                    } else {                     } else {
Line 391  END Line 986  END
                    }                     }
                }                 }
                my $row = '';                 my $row = '';
                $row.='<tr bgcolor="#'.$bgcol.'"><td>';                 $row.= '<td>';
                my $active=1;                 my $active=1;
                $active=0 if (($role_end_time) && ($now>$role_end_time));                 $active=0 if (($role_end_time) && ($now>$role_end_time));
                if (($active) && ($allowed)) {                 if (($active) && ($allowed)) {
                    $row.= '<input type="checkbox" name="rev:'.$thisrole.'">';                     $row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';
                } else {                 } else {
                    if ($active) {                     if ($active) {
                       $row.='&nbsp;';                        $row.='&nbsp;';
    } else {     } else {
                       $row.='expired or revoked';                        $row.=&mt('expired or revoked');
    }     }
                }                 }
        $row.='</td><td>';         $row.='</td><td>';
                  if ($allowed && !$active) {
                      $row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';
                  } else {
                      $row.='&nbsp;';
                  }
          $row.='</td><td>';
                if ($delallowed) {                 if ($delallowed) {
                    $row.= '<input type="checkbox" name="del:'.$thisrole.'">';                     $row.= '<input type="checkbox" name="del:'.$thisrole.'" />';
                } else {                 } else {
                    $row.='&nbsp;';                     $row.='&nbsp;';
                }                 }
        my $plaintext='';         my $plaintext='';
        unless ($croletitle) {         if (!$croletitle) {
    $plaintext=&Apache::lonnet::plaintext($role_code);                     $plaintext=&Apache::lonnet::plaintext($role_code,$class)
        } else {         } else {
            $plaintext=             $plaintext=
  "Customrole '$croletitle' defined by $croleuname\@$croleudom";   "Customrole '$croletitle' defined by $croleuname\@$croleudom";
Line 422  END Line 1023  END
                                                    : '&nbsp;' ).                                                     : '&nbsp;' ).
                       '</td><td>'.($role_end_time  ?localtime($role_end_time)                        '</td><td>'.($role_end_time  ?localtime($role_end_time)
                                                    : '&nbsp;' )                                                     : '&nbsp;' )
                       ."</td></tr>\n";                        ."</td>";
                $r->print($row);         $sortrole{$sortkey}=$envkey;
          $roletext{$envkey}=$row;
          $roleclass{$envkey}=$class;
                  $rolepriv{$envkey}=$allowed;
                  #$r->print($row);
            } # end of foreach        (table building loop)             } # end of foreach        (table building loop)
    $r->print('</table>');             my $rolesdisplay = 0;
              my %output = ();
      foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {
          $output{$type} = '';
          foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
      if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) { 
          $output{$type}.=
                                &Apache::loncommon::start_data_table_row().
                                $roletext{$sortrole{$which}}.
                                &Apache::loncommon::end_data_table_row();
      }
          }
          unless($output{$type} eq '') {
      $output{$type} = '<tr class="LC_info_row">'.
        "<td align='center' colspan='7'>".&mt($type)."</td></tr>".
                                 $output{$type};
                      $rolesdisplay = 1;
          }
      }
              if ($rolesdisplay == 1) {
                  $r->print('
   <hr />
   <h3>'.$lt{'rer'}.'</h3>'.
   &Apache::loncommon::start_data_table("LC_createuser").
   &Apache::loncommon::start_data_table_header_row().
   '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.
   '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.
   '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
   &Apache::loncommon::end_data_table_header_row());
                  foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {
                      if ($output{$type}) {
                          $r->print($output{$type}."\n");
                      }
                  }
          $r->print(&Apache::loncommon::end_data_table());
              }
         }  # End of unless          }  # End of unless
  my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);   my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
  if ($currentauth=~/^krb(4|5):/) {   if ($currentauth=~/^krb(4|5):/) {
     $currentauth=~/^krb(4|5):(.*)/;      $currentauth=~/^krb(4|5):(.*)/;
     my $krbdefdom=$1;      my $krbdefdom=$2;
             my %param = ( formname => 'document.cu',              my %param = ( formname => 'document.cu',
                           kerb_def_dom => $krbdefdom                             kerb_def_dom => $krbdefdom 
                           );                            );
Line 442  END Line 1082  END
  $currentauth=~/^internal:/ or   $currentauth=~/^internal:/ or
  $currentauth=~/^localauth:/   $currentauth=~/^localauth:/
  ) { # bad authentication scheme   ) { # bad authentication scheme
     if (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'})) {      if (&Apache::lonnet::allowed('mau',$ccdomain)) {
                   &initialize_authen_forms();
    my %lt=&Apache::lonlocal::texthash(
                                  'err'   => "ERROR",
          'uuas'  => "This user has an unrecognized authentication scheme",
                                  'sldb'  => "Please specify login data below",
                                  'ld'    => "Login Data"
      );
  $r->print(<<ENDBADAUTH);   $r->print(<<ENDBADAUTH);
 <hr />  <hr />
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
 $loginscript  $loginscript
 </script>  </script>
 <font color='#ff0000'>ERROR:</font>  <font color='#ff0000'>$lt{'err'}:</font>
 This user has an unrecognized authentication scheme ($currentauth).  $lt{'uuas'} ($currentauth). $lt{'sldb'}.
 Please specify login data below.  <h3>$lt{'ld'}</h3>
 <h3>Login Data</h3>  
 <p>$generalrule</p>  <p>$generalrule</p>
 <p>$authformkrb</p>  <p>$authformkrb</p>
 <p>$authformint</p>  <p>$authformint</p>
Line 459  Please specify login data below. Line 1105  Please specify login data below.
 <p>$authformloc</p>  <p>$authformloc</p>
 ENDBADAUTH  ENDBADAUTH
             } else {               } else { 
                 # This user is not allowed to modify the users                   # This user is not allowed to modify the user's 
                 # authentication scheme, so just notify them of the problem                  # authentication scheme, so just notify them of the problem
    my %lt=&Apache::lonlocal::texthash(
                                  'err'   => "ERROR",
          'uuas'  => "This user has an unrecognized authentication scheme",
                                  'adcs'  => "Please alert a domain coordinator of this situation"
      );
  $r->print(<<ENDBADAUTH);   $r->print(<<ENDBADAUTH);
 <hr />  <hr />
 <script type="text/javascript" language="Javascript">  <font color="#ff0000"> $lt{'err'}: </font>
 $loginscript  $lt{'uuas'} ($currentauth). $lt{'adcs'}.
 </script>  
 <font color="#ff0000"> ERROR: </font>  
 This user has an unrecognized authentication scheme ($currentauth).  
 Please alert a domain coordinator of this situation.  
 <hr />  <hr />
 ENDBADAUTH  ENDBADAUTH
             }              }
         } else { # Authentication type is valid          } else { # Authentication type is valid
     my $authformcurrent='';      my $authformcurrent='';
     my $authform_other='';      my $authform_other='';
               &initialize_authen_forms();
     if ($currentauth=~/^krb(4|5):/) {      if ($currentauth=~/^krb(4|5):/) {
  $authformcurrent=$authformkrb;   $authformcurrent=$authformkrb;
  $authform_other="<p>$authformint</p>\n".   $authform_other="<p>$authformint</p>\n".
Line 496  ENDBADAUTH Line 1144  ENDBADAUTH
                     "<p>$authformint</p><p>$authformfsys</p>";                      "<p>$authformint</p><p>$authformfsys</p>";
     }      }
             $authformcurrent.=' <i>(will override current values)</i><br />';              $authformcurrent.=' <i>(will override current values)</i><br />';
             if (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'})) {              if (&Apache::lonnet::allowed('mau',$ccdomain)) {
  # Current user has login modification privileges   # Current user has login modification privileges
    my %lt=&Apache::lonlocal::texthash(
                                  'ccld'  => "Change Current Login Data",
          'enld'  => "Enter New Login Data"
      );
  $r->print(<<ENDOTHERAUTHS);   $r->print(<<ENDOTHERAUTHS);
 <hr />  <hr />
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
 $loginscript  $loginscript
 </script>  </script>
 <h3>Change Current Login Data</h3>  <h3>$lt{'ccld'}</h3>
 <p>$generalrule</p>  <p>$generalrule</p>
 <p>$authformnop</p>  <p>$authformnop</p>
 <p>$authformcurrent</p>  <p>$authformcurrent</p>
 <h3>Enter New Login Data</h3>  <h3>$lt{'enld'}</h3>
 $authform_other  $authform_other
 ENDOTHERAUTHS  ENDOTHERAUTHS
               } else {
                   if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) {
                       my %lt=&Apache::lonlocal::texthash(
                                  'ccld'  => "Change Current Login Data",
                                  'yodo'  => "You do not have privileges to modify the authentication configuration for this user.",
                                  'ifch'  => "If a change is required, contact a domain coordinator for the domain",
                       );
                       $r->print(<<ENDNOPRIV);
   <hr />
   <h3>$lt{'ccld'}</h3>
   $lt{'yodo'} $lt{'ifch'}: $ccdomain 
   ENDNOPRIV
                   } 
               }
               if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
                   # Current user has quota modification privileges
                   $r->print(&portfolio_quota($ccuname,$ccdomain));
             }              }
         }  ## End of "check for bad authentication type" logic          }  ## End of "check for bad authentication type" logic
     } ## End of new user/old user logic      } ## End of new user/old user logic
     $r->print('<hr /><h3>Add Roles</h3>');      $r->print('<hr /><h3>'.&mt('Add Roles').'</h3>');
 #  #
 # Co-Author  # Co-Author
 #   # 
     if (&authorpriv($ENV{'user.name'},$ENV{'request.role.domain'}) &&      if (&authorpriv($env{'user.name'},$env{'request.role.domain'}) &&
         ($ENV{'user.name'} ne $ccuname || $ENV{'user.domain'} ne $ccdomain)) {          ($env{'user.name'} ne $ccuname || $env{'user.domain'} ne $ccdomain)) {
         # No sense in assigning co-author role to yourself          # No sense in assigning co-author role to yourself
  my $cuname=$ENV{'user.name'};   my $cuname=$env{'user.name'};
         my $cudom=$ENV{'request.role.domain'};          my $cudom=$env{'request.role.domain'};
        $r->print(<<ENDCOAUTH);     my %lt=&Apache::lonlocal::texthash(
 <h4>Construction Space</h4>      'cs'   => "Construction Space",
 <table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>                      'act'  => "Activate",                    
 <th>Start</th><th>End</th></tr>                      'rol'  => "Role",
 <tr>                      'ext'  => "Extent",
 <td><input type=checkbox name="act_$cudom\_$cuname\_ca"></td>                      'sta'  => "Start",
 <td>Co-Author</td>                      'end'  => "End",
 <td>$cudom\_$cuname</td>                      'cau'  => "Co-Author",
 <td><input type=hidden name="start_$cudom\_$cuname\_ca" value=''>                      'caa'  => "Assistant Co-Author",
                       'ssd'  => "Set Start Date",
                       'sed'  => "Set End Date"
          );
          $r->print('<h4>'.$lt{'cs'}.'</h4>'."\n". 
              &Apache::loncommon::start_data_table()."\n".
              &Apache::loncommon::start_data_table_header_row()."\n".
              '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th>'.
              '<th>'.$lt{'ext'}.'</th><th>'.$lt{'sta'}.'</th>'.
              '<th>'.$lt{'end'}.'</th>'."\n".
              &Apache::loncommon::end_data_table_header_row()."\n".
              &Apache::loncommon::start_data_table_row()."\n".
              '<td>
               <input type=checkbox name="act_'.$cudom.'_'.$cuname.'_ca" />
              </td>
              <td>'.$lt{'cau'}.'</td>
              <td>'.$cudom.'_'.$cuname.'</td>
              <td><input type="hidden" name="start_'.$cudom.'_'.$cuname.'_ca" value="" />
                <a href=
   "javascript:pjump('."'date_start','Start Date Co-Author',document.cu.start_$cudom\_$cuname\_ca.value,'start_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
   <td><input type=hidden name="end_'.$cudom.'_'.$cuname.'_ca" value="" />
 <a href=  <a href=
 "javascript:pjump('date_start','Start Date Co-Author',document.cu.start_$cudom\_$cuname\_ca.value,'start_$cudom\_$cuname\_ca','cu.pres','dateset')">Set Start Date</a></td>  "javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
 <td><input type=hidden name="end_$cudom\_$cuname\_ca" value=''>            &Apache::loncommon::end_data_table_row()."\n".
             &Apache::loncommon::start_data_table_row()."\n".
   '<td><input type=checkbox name="act_'.$cudom.'_'.$cuname.'_aa" /></td>
   <td>'.$lt{'caa'}.'</td>
   <td>'.$cudom.'_'.$cuname.'</td>
   <td><input type=hidden name="start_'.$cudom.'_'.$cuname.'_aa" value="" />
 <a href=  <a href=
 "javascript:pjump('date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset')">Set End Date</a></td>  "javascript:pjump('."'date_start','Start Date Assistant Co-Author',document.cu.start_$cudom\_$cuname\_aa.value,'start_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
 </tr>  <td><input type=hidden name="end_'.$cudom.'_'.$cuname.'_aa" value="" />
 </table>  <a href=
 ENDCOAUTH  "javascript:pjump('."'date_end','End Date Assistant Co-Author',document.cu.end_$cudom\_$cuname\_aa.value,'end_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
            &Apache::loncommon::end_data_table_row()."\n".
            &Apache::loncommon::end_data_table());
     }      }
 #  #
 # Domain level  # Domain level
 #  #
     $r->print('<h4>Domain Level</h4>'.      my $num_domain_level = 0;
     '<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'.      my $domaintext = 
     '<th>Start</th><th>End</th></tr>');      '<h4>'.&mt('Domain Level').'</h4>'.
     foreach ( sort( keys(%incdomains))) {      &Apache::loncommon::start_data_table().
  my $thisdomain=$_;      &Apache::loncommon::start_data_table_header_row().
         foreach ('dc','li','dg','au','sc') {      '<th>'.&mt('Activate').'</th><th>'.&mt('Role').'</th><th>'.
             if (&Apache::lonnet::allowed('c'.$_,$thisdomain)) {      &mt('Extent').'</th>'.
                my $plrole=&Apache::lonnet::plaintext($_);      '<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.
                $r->print(<<ENDDROW);      &Apache::loncommon::end_data_table_header_row();
 <tr>      foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
 <td><input type=checkbox name="act_$thisdomain\_$_"></td>          foreach my $role ('dc','li','dg','au','sc') {
 <td>$plrole</td>              if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
 <td>$thisdomain</td>                 my $plrole=&Apache::lonnet::plaintext($role);
 <td><input type=hidden name="start_$thisdomain\_$_" value=''>         my %lt=&Apache::lonlocal::texthash(
                       'ssd'  => "Set Start Date",
                       'sed'  => "Set End Date"
          );
                  $num_domain_level ++;
                  $domaintext .= 
   &Apache::loncommon::start_data_table_row().
   '<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'" /></td>
   <td>'.$plrole.'</td>
   <td>'.$thisdomain.'</td>
   <td><input type=hidden name="start_'.$thisdomain.'_'.$role.'" value="" />
 <a href=  <a href=
 "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$thisdomain\_$_.value,'start_$thisdomain\_$_','cu.pres','dateset')">Set Start Date</a></td>  "javascript:pjump('."'date_start','Start Date $plrole',document.cu.start_$thisdomain\_$role.value,'start_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'ssd'}.'</a></td>
 <td><input type=hidden name="end_$thisdomain\_$_" value=''>  <td><input type=hidden name="end_'.$thisdomain.'_'.$role.'" value="" />
 <a href=  <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$thisdomain\_$_.value,'end_$thisdomain\_$_','cu.pres','dateset')">Set End Date</a></td>  "javascript:pjump('."'date_end','End Date $plrole',document.cu.end_$thisdomain\_$role.value,'end_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'.
 </tr>  &Apache::loncommon::end_data_table_row();
 ENDDROW  
             }              }
         }           } 
     }      }
     $r->print('</table>');      $domaintext.= &Apache::loncommon::end_data_table();
       if ($num_domain_level > 0) {
           $r->print($domaintext);
       }
 #  #
 # Course level  # Course and group levels
 #  #
     $r->print(&course_level_table(%inccourses));  
     $r->print("<hr /><input type=submit value=\"Modify User\">\n");      if ($env{'request.role'} =~ m{^dc\./($match_domain)/$}) {
     $r->print("</form></body></html>");          $r->print(&course_level_dc($1,'Course'));
           $r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()" />'."\n");
       } else {
           $r->print(&course_level_table(%inccourses));
           $r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setSections()" />'."\n");
       }
       $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','state']));
       $r->print('<input type="hidden" name="state" value="" />');
       $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />');
       $r->print("</form>".&Apache::loncommon::end_page());
 }  }
   
 # ================================================================= Phase Three  # ================================================================= Phase Three
 sub update_user_data {  sub update_user_data {
     my $r=shift;      my ($r) = @_; 
     my $uhome=&Apache::lonnet::homeserver($ENV{'form.ccuname'},      my $uhome=&Apache::lonnet::homeserver($env{'form.ccuname'},
                                           $ENV{'form.ccdomain'});                                            $env{'form.ccdomain'});
     # Error messages      # Error messages
     my $error     = '<font color="#ff0000">Error:</font>';      my $error     = '<font color="#ff0000">'.&mt('Error').':</font>';
     my $end       = '</body></html>';      my $end       = &Apache::loncommon::end_page();
     # Print header  
     $r->print(<<ENDTHREEHEAD);  
 <html>  
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 ENDTHREEHEAD  
     my $title;      my $title;
     if (exists($ENV{'form.makeuser'})) {      if (exists($env{'form.makeuser'})) {
  $title='Set Privileges for New User';   $title='Set Privileges for New User';
     } else {      } else {
         $title='Modify User Privileges';          $title='Modify User Privileges';
     }      }
     $r->print(&Apache::loncommon::bodytag($title));  
       my ($jsback,$elements) = &crumb_utilities();
       my $jscript = '<script type="text/javascript">'."\n".
                     $jsback."\n".'</script>'."\n";
   
       $r->print(&Apache::loncommon::start_page($title,$jscript));
       &Apache::lonhtmlcommon::add_breadcrumb
          ({href=>"javascript:backPage(document.userupdate)",
            text=>"User/custom role search",
            faq=>282,bug=>'Instructor Interface',});
       if ($env{'form.prevphase'} eq 'userpicked') {
           &Apache::lonhtmlcommon::add_breadcrumb
              ({href=>"javascript:backPage(document.userupdate,'get_user_info','select')",
                text=>"Select a user",
                faq=>282,bug=>'Instructor Interface',});
       }
       &Apache::lonhtmlcommon::add_breadcrumb
          ({href=>"javascript:backPage(document.userupdate,'$env{'form.prevphase'}','modify')",
            text=>"Set user role",
            faq=>282,bug=>'Instructor Interface',},
           {href=>"/adm/createuser",
            text=>"Result",
            faq=>282,bug=>'Instructor Interface',});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
   
       my %disallowed;
     # Check Inputs      # Check Inputs
     if (! $ENV{'form.ccuname'} ) {      if (! $env{'form.ccuname'} ) {
  $r->print($error.'No login name specified.'.$end);   $r->print($error.&mt('No login name specified').'.'.$end);
  return;   return;
     }      }
     if (  $ENV{'form.ccuname'}  =~/\W/) {      if (  $env{'form.ccuname'} ne 
  $r->print($error.'Invalid login name.  '.    &LONCAPA::clean_username($env{'form.ccuname'}) ) {
   'Only letters, numbers, and underscores are valid.'.   $r->print($error.&mt('Invalid login name').'.  '.
     &mt('Only letters, numbers, periods, dashes, @, and underscores are valid').'.'.
   $end);    $end);
  return;   return;
     }      }
     if (! $ENV{'form.ccdomain'}       ) {      if (! $env{'form.ccdomain'}       ) {
  $r->print($error.'No domain specified.'.$end);   $r->print($error.&mt('No domain specified').'.'.$end);
  return;   return;
     }      }
     if (  $ENV{'form.ccdomain'} =~/\W/) {      if (  $env{'form.ccdomain'} ne
  $r->print($error.'Invalid domain name.  '.    &LONCAPA::clean_domain($env{'form.ccdomain'}) ) {
   'Only letters, numbers, and underscores are valid.'.   $r->print($error.&mt ('Invalid domain name').'.  '.
     &mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'.
   $end);    $end);
  return;   return;
     }      }
     if (! exists($ENV{'form.makeuser'})) {      if (! exists($env{'form.makeuser'})) {
         # Modifying an existing user, so check the validity of the name          # Modifying an existing user, so check the validity of the name
         if ($uhome eq 'no_host') {          if ($uhome eq 'no_host') {
             $r->print($error.'Unable to determine home server for '.              $r->print($error.&mt('Unable to determine home server for ').
                       $ENV{'form.ccuname'}.' in domain '.                        $env{'form.ccuname'}.&mt(' in domain ').
                       $ENV{'form.ccdomain'}.'.');                        $env{'form.ccdomain'}.'.');
             return;              return;
         }          }
     }      }
     # Determine authentication method and password for the user being modified      # Determine authentication method and password for the user being modified
     my $amode='';      my $amode='';
     my $genpwd='';      my $genpwd='';
     if ($ENV{'form.login'} eq 'krb') {      if ($env{'form.login'} eq 'krb') {
  $amode='krb';   $amode='krb';
  $amode.=$ENV{'form.krbver'};   $amode.=$env{'form.krbver'};
  $genpwd=$ENV{'form.krbarg'};   $genpwd=$env{'form.krbarg'};
     } elsif ($ENV{'form.login'} eq 'int') {      } elsif ($env{'form.login'} eq 'int') {
  $amode='internal';   $amode='internal';
  $genpwd=$ENV{'form.intarg'};   $genpwd=$env{'form.intarg'};
     } elsif ($ENV{'form.login'} eq 'fsys') {      } elsif ($env{'form.login'} eq 'fsys') {
  $amode='unix';   $amode='unix';
  $genpwd=$ENV{'form.fsysarg'};   $genpwd=$env{'form.fsysarg'};
     } elsif ($ENV{'form.login'} eq 'loc') {      } elsif ($env{'form.login'} eq 'loc') {
  $amode='localauth';   $amode='localauth';
  $genpwd=$ENV{'form.locarg'};   $genpwd=$env{'form.locarg'};
  $genpwd=" " if (!$genpwd);   $genpwd=" " if (!$genpwd);
     } elsif (($ENV{'form.login'} eq 'nochange') ||      } elsif (($env{'form.login'} eq 'nochange') ||
              ($ENV{'form.login'} eq ''        )) {                ($env{'form.login'} eq ''        )) { 
         # There is no need to tell the user we did not change what they          # There is no need to tell the user we did not change what they
         # did not ask us to change.          # did not ask us to change.
         # If they are creating a new user but have not specified login          # If they are creating a new user but have not specified login
         # information this will be caught below.          # information this will be caught below.
     } else {      } else {
     $r->print($error.'Invalid login mode or password'.$end);          $r->print($error.&mt('Invalid login mode or password').$end);    
     return;      return;
     }      }
     if ($ENV{'form.makeuser'}) {      if ($env{'form.makeuser'}) {
         # Create a new user          # Create a new user
    my %lt=&Apache::lonlocal::texthash(
                       'cru'  => "Creating user",                    
                       'id'   => "in domain"
      );
  $r->print(<<ENDNEWUSERHEAD);   $r->print(<<ENDNEWUSERHEAD);
 <h3>Creating user "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>  <h3>$lt{'cru'} "$env{'form.ccuname'}" $lt{'id'} "$env{'form.ccdomain'}"</h3>
 ENDNEWUSERHEAD  ENDNEWUSERHEAD
         # Check for the authentication mode and password          # Check for the authentication mode and password
         if (! $amode || ! $genpwd) {          if (! $amode || ! $genpwd) {
     $r->print($error.'Invalid login mode or password'.$end);          $r->print($error.&mt('Invalid login mode or password').$end);    
     return;      return;
  }   }
         # Determine desired host          # Determine desired host
         my $desiredhost = $ENV{'form.hserver'};          my $desiredhost = $env{'form.hserver'};
         if (lc($desiredhost) eq 'default') {          if (lc($desiredhost) eq 'default') {
             $desiredhost = undef;              $desiredhost = undef;
         } else {          } else {
             my %home_servers = &Apache::loncommon::get_library_servers              my %home_servers = 
                 ($ENV{'form.ccdomain'});     &Apache::lonnet::get_servers($env{'form.ccdomain'},'library');
             if (! exists($home_servers{$desiredhost})) {              if (! exists($home_servers{$desiredhost})) {
                 $r->print($error.'Invalid home server specified');                  $r->print($error.&mt('Invalid home server specified'));
                 return;                  return;
             }              }
         }          }
  # Call modifyuser   # Call modifyuser
  my $result = &Apache::lonnet::modifyuser   my $result = &Apache::lonnet::modifyuser
     ($ENV{'form.ccdomain'},$ENV{'form.ccuname'},$ENV{'form.cstid'},      ($env{'form.ccdomain'},$env{'form.ccuname'},$env{'form.cstid'},
              $amode,$genpwd,$ENV{'form.cfirst'},               $amode,$genpwd,$env{'form.cfirst'},
              $ENV{'form.cmiddle'},$ENV{'form.clast'},$ENV{'form.cgen'},               $env{'form.cmiddle'},$env{'form.clast'},$env{'form.cgen'},
              undef,$desiredhost               undef,$desiredhost
      );       );
  $r->print('Generating user: '.$result);   $r->print(&mt('Generating user').': '.$result);
         my $home = &Apache::lonnet::homeserver($ENV{'form.ccuname'},          my $home = &Apache::lonnet::homeserver($env{'form.ccuname'},
                                                $ENV{'form.ccdomain'});                                                 $env{'form.ccdomain'});
         $r->print('<br>Home server: '.$home.' '.          $r->print('<br />'.&mt('Home server').': '.$home.' '.
                   $Apache::lonnet::libserv{$home});                    &Apache::lonnet::hostname($home));
     } elsif (($ENV{'form.login'} ne 'nochange') &&      } elsif (($env{'form.login'} ne 'nochange') &&
              ($ENV{'form.login'} ne ''        )) {               ($env{'form.login'} ne ''        )) {
  # Modify user privileges   # Modify user privileges
       my %lt=&Apache::lonlocal::texthash(
                       'usr'  => "User",                    
                       'id'   => "in domain"
          );
  $r->print(<<ENDMODIFYUSERHEAD);   $r->print(<<ENDMODIFYUSERHEAD);
 <h2>User "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>  <h2>$lt{'usr'} "$env{'form.ccuname'}" $lt{'id'} "$env{'form.ccdomain'}"</h2>
 ENDMODIFYUSERHEAD  ENDMODIFYUSERHEAD
         if (! $amode || ! $genpwd) {          if (! $amode || ! $genpwd) {
     $r->print($error.'Invalid login mode or password'.$end);          $r->print($error.'Invalid login mode or password'.$end);    
     return;      return;
  }   }
  # Only allow authentification modification if the person has authority   # Only allow authentification modification if the person has authority
  if (&Apache::lonnet::allowed('mau',$ENV{'form.ccdomain'})) {   if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'})) {
     $r->print('Modifying authentication: '.      $r->print('Modifying authentication: '.
                       &Apache::lonnet::modifyuserauth(                        &Apache::lonnet::modifyuserauth(
        $ENV{'form.ccdomain'},$ENV{'form.ccuname'},         $env{'form.ccdomain'},$env{'form.ccuname'},
                        $amode,$genpwd));                         $amode,$genpwd));
             $r->print('<br>Home server: '.&Apache::lonnet::homeserver              $r->print('<br />'.&mt('Home server').': '.&Apache::lonnet::homeserver
   ($ENV{'form.ccuname'},$ENV{'form.ccdomain'}));    ($env{'form.ccuname'},$env{'form.ccdomain'}));
  } else {   } else {
     # Okay, this is a non-fatal error.      # Okay, this is a non-fatal error.
     $r->print($error.'You do not have the authority to modify '.      $r->print($error.&mt('You do not have the authority to modify this users authentification information').'.');    
       'this users authentification information.');      
  }   }
     }      }
     ##      ##
     if (! $ENV{'form.makeuser'} ) {      if (! $env{'form.makeuser'} ) {
         # Check for need to change          # Check for need to change
         my %userenv = &Apache::lonnet::get          my %userenv = &Apache::lonnet::get
             ('environment',['firstname','middlename','lastname','generation'],              ('environment',['firstname','middlename','lastname','generation',
              $ENV{'form.ccdomain'},$ENV{'form.ccuname'});               'permanentemail','portfolioquota','inststatus'],
                 $env{'form.ccdomain'},$env{'form.ccuname'});
         my ($tmp) = keys(%userenv);          my ($tmp) = keys(%userenv);
         if ($tmp =~ /^(con_lost|error)/i) {           if ($tmp =~ /^(con_lost|error)/i) { 
             %userenv = ();              %userenv = ();
         }          }
         # Check to see if we need to change user information          # Check to see if we need to change user information
         foreach ('firstname','middlename','lastname','generation') {          foreach my $item ('firstname','middlename','lastname','generation','permanentemail') {
             # Strip leading and trailing whitespace              # Strip leading and trailing whitespace
             $ENV{'form.c'.$_} =~ s/(\s+$|^\s+)//g;               $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g; 
         }          }
         if (&Apache::lonnet::allowed('mau',$ENV{'form.ccdomain'}) &&           my ($quotachanged,$namechanged,$oldportfolioquota,$newportfolioquota,
             ($ENV{'form.cfirstname'}  ne $userenv{'firstname'}  ||              $inststatus,$isdefault,$defquotatext);
              $ENV{'form.cmiddlename'} ne $userenv{'middlename'} ||          my ($defquota,$settingstatus) = 
              $ENV{'form.clastname'}   ne $userenv{'lastname'}   ||              &Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);
              $ENV{'form.cgeneration'} ne $userenv{'generation'} )) {          my %changeHash;
           if ($userenv{'portfolioquota'} ne '') {
               $oldportfolioquota = $userenv{'portfolioquota'};
               if ($env{'form.customquota'} == 1) {
                   if ($env{'form.portfolioquota'} eq '') {
                       $newportfolioquota = 0;
                   } else {
                       $newportfolioquota = $env{'form.portfolioquota'};
                       $newportfolioquota =~ s/[^\d\.]//g;
                   }
                   if ($newportfolioquota != $userenv{'portfolioquota'}) {
                       $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
                   }
               } else {
                   $quotachanged = &quota_admin('',\%changeHash);
                   $newportfolioquota = $defquota;
                   $isdefault = 1; 
               }
           } else {
               $oldportfolioquota = $defquota;
               if ($env{'form.customquota'} == 1) {
                   if ($env{'form.portfolioquota'} eq '') {
                       $newportfolioquota = 0;
                   } else {
                       $newportfolioquota = $env{'form.portfolioquota'};
                       $newportfolioquota =~ s/[^\d\.]//g;
                   }
                   $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
               } else {
                   $newportfolioquota = $defquota;
                   $isdefault = 1;
               }
           }
           if ($isdefault) {
               if ($settingstatus eq '') {
                   $defquotatext = &mt('(default)');
               } else {
                   my ($usertypes,$order) = 
                       &Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});
                   if ($usertypes->{$settingstatus} eq '') {
                       $defquotatext = &mt('(default)');
                   } else { 
                       $defquotatext = &mt('(default for [_1])',$usertypes->{$settingstatus});
                   }
               }
           }
           if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) && 
               ($env{'form.cfirstname'}  ne $userenv{'firstname'}  ||
                $env{'form.cmiddlename'} ne $userenv{'middlename'} ||
                $env{'form.clastname'}   ne $userenv{'lastname'}   ||
                $env{'form.cgeneration'} ne $userenv{'generation'} ||
                $env{'form.cpermanentemail'} ne $userenv{'permanentemail'} )) {
               $namechanged = 1;
           }
           if ($namechanged) {
             # Make the change              # Make the change
             my %changeHash;              $changeHash{'firstname'}  = $env{'form.cfirstname'};
             $changeHash{'firstname'}  = $ENV{'form.cfirstname'};              $changeHash{'middlename'} = $env{'form.cmiddlename'};
             $changeHash{'middlename'} = $ENV{'form.cmiddlename'};              $changeHash{'lastname'}   = $env{'form.clastname'};
             $changeHash{'lastname'}   = $ENV{'form.clastname'};              $changeHash{'generation'} = $env{'form.cgeneration'};
             $changeHash{'generation'} = $ENV{'form.cgeneration'};              $changeHash{'permanentemail'} = $env{'form.permanentemail'};
             my $putresult = &Apache::lonnet::put              my $putresult = &Apache::lonnet::put
                 ('environment',\%changeHash,                  ('environment',\%changeHash,
                  $ENV{'form.ccdomain'},$ENV{'form.ccuname'});                   $env{'form.ccdomain'},$env{'form.ccuname'});
             if ($putresult eq 'ok') {              if ($putresult eq 'ok') {
             # Tell the user we changed the name              # Tell the user we changed the name
    my %lt=&Apache::lonlocal::texthash(
                                'uic'  => "User Information Changed",             
                                'frst' => "first",
                                'mddl' => "middle",
                                'lst'  => "last",
        'gen'  => "generation",
                                'mail' => "permanent e-mail",
                                'disk' => "disk space allocated to portfolio files",
                                'prvs' => "Previous",
                                'chto' => "Changed To"
      );
                 $r->print(<<"END");                  $r->print(<<"END");
 <table border="2">  <table border="2">
 <caption>User Information Changed</caption>  <caption>$lt{'uic'}</caption>
 <tr><th>&nbsp;</th>  <tr><th>&nbsp;</th>
     <th>first</th>      <th>$lt{'frst'}</th>
     <th>middle</th>      <th>$lt{'mddl'}</th>
     <th>last</th>      <th>$lt{'lst'}</th>
     <th>generation</th></tr>      <th>$lt{'gen'}</th>
 <tr><td>Previous</td>      <th>$lt{'disk'}<th></tr>
   <tr><td>$lt{'prvs'}</td>
     <td>$userenv{'firstname'}  </td>      <td>$userenv{'firstname'}  </td>
     <td>$userenv{'middlename'} </td>      <td>$userenv{'middlename'} </td>
     <td>$userenv{'lastname'}   </td>      <td>$userenv{'lastname'}   </td>
     <td>$userenv{'generation'} </td></tr>      <td>$userenv{'generation'} </td>
 <tr><td>Changed To</td>      <td>$userenv{'permanentemail'} </td>
     <td>$ENV{'form.cfirstname'}  </td>      <td>$oldportfolioquota Mb</td>
     <td>$ENV{'form.cmiddlename'} </td>  </tr>
     <td>$ENV{'form.clastname'}   </td>  <tr><td>$lt{'chto'}</td>
     <td>$ENV{'form.cgeneration'} </td></tr>      <td>$env{'form.cfirstname'}  </td>
       <td>$env{'form.cmiddlename'} </td>
       <td>$env{'form.clastname'}   </td>
       <td>$env{'form.cgeneration'} </td>
       <td>$env{'form.cpermanentemail'} </td>
       <td>$newportfolioquota Mb $defquotatext </td></tr>
 </table>  </table>
 END  END
                   if (($env{'form.ccdomain'} eq $env{'user.domain'}) && 
                       ($env{'form.ccuname'} eq $env{'user.name'})) {
                       my %newenvhash;
                       foreach my $key (keys(%changeHash)) {
                           $newenvhash{'environment.'.$key} = $changeHash{$key};
                       }
                       &Apache::lonnet::appenv(%newenvhash);
                   }
             } else { # error occurred              } else { # error occurred
                 $r->print("<h2>Unable to successfully change environment for ".                  $r->print("<h2>".&mt('Unable to successfully change environment for')." ".
                       $ENV{'form.ccuname'}." in domain ".                        $env{'form.ccuname'}." ".&mt('in domain')." ".
                       $ENV{'form.ccdomain'}."</h2>");                        $env{'form.ccdomain'}."</h2>");
               }
           }  else { # End of if ($env ... ) logic
               my $putresult;
               if ($quotachanged) {
                   $putresult = &Apache::lonnet::put
                                    ('environment',\%changeHash,
                                     $env{'form.ccdomain'},$env{'form.ccuname'});
             }              }
         }  else { # End of if ($ENV ... ) logic  
             # They did not want to change the users name but we can              # They did not want to change the users name but we can
             # still tell them what the name is              # still tell them what the name is
                 $r->print(<<"END");      my %lt=&Apache::lonlocal::texthash(
 <h2>User "$ENV{'form.ccuname'}" in domain "$ENV{'form.ccdomain'}"</h2>                             'usr'  => "User",                    
                              'id'   => "in domain",
                              'gen'  => "Generation",
                              'mail' => "Permanent e-mail",
                              'disk' => "Disk space allocated to user's portfolio files",
          );
               $r->print(<<"END");
   <h2>$lt{'usr'} "$env{'form.ccuname'}" $lt{'id'} "$env{'form.ccdomain'}"</h2>
 <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} </h4>  <h4>$userenv{'firstname'} $userenv{'middlename'} $userenv{'lastname'} </h4>
 <h4>Generation: $userenv{'generation'}</h4>  <h4>$lt{'gen'}: $userenv{'generation'}</h4>
   <h4>$lt{'mail'}: $userenv{'permanentemail'}</h4>
 END  END
               if ($putresult eq 'ok') {
                   if ($oldportfolioquota != $newportfolioquota) {
                       $r->print('<h4>'.$lt{'disk'}.': '.$newportfolioquota.' Mb '. 
                                 $defquotatext.'</h4>');
                       &Apache::lonnet::appenv('environment.portfolioquota' => $changeHash{'portfolioquota'});
                   }
               }
         }          }
     }      }
     ##      ##
     my $now=time;      my $now=time;
     $r->print('<h3>Modifying Roles</h3>');      $r->print('<h3>'.&mt('Modifying Roles').'</h3>');
     foreach (keys (%ENV)) {      foreach my $key (keys (%env)) {
  next if (! $ENV{$_});   next if (! $env{$key});
  # Revoke roles   # Revoke roles
  if ($_=~/^form\.rev/) {   if ($key=~/^form\.rev/) {
     if ($_=~/^form\.rev\:([^\_]+)\_([^\_\.]+)$/) {      if ($key=~/^form\.rev\:([^\_]+)\_([^\_\.]+)$/) {
 # Revoke standard role  # Revoke standard role
         $r->print('Revoking '.$2.' in '.$1.': <b>'.          $r->print(&mt('Revoking').' '.$2.' in '.$1.': <b>'.
                      &Apache::lonnet::revokerole($ENV{'form.ccdomain'},                       &Apache::lonnet::revokerole($env{'form.ccdomain'},
                      $ENV{'form.ccuname'},$1,$2).'</b><br>');                       $env{'form.ccuname'},$1,$2).'</b><br />');
  if ($2 eq 'st') {   if ($2 eq 'st') {
     $1=~/^\/(\w+)\/(\w+)/;      $1=~m{^/($match_domain)/($match_courseid)};
     my $cid=$1.'_'.$2;      my $cid=$1.'_'.$2;
     $r->print('Drop from classlist: <b>'.      my $user = $env{'form.ccuname'}.':'.$env{'form.ccdomain'};
  &Apache::lonnet::critical('put:'.      my $result = 
                              $ENV{'course.'.$cid.'.domain'}.':'.   &Apache::lonnet::cput('classlist',
                      $ENV{'course.'.$cid.'.num'}.':classlist:'.        { $user => $now },
                          &Apache::lonnet::escape($ENV{'form.ccuname'}.':'.        $env{'course.'.$cid.'.domain'},
                              $ENV{'form.ccdomain'}).'='.        $env{'course.'.$cid.'.num'});
                          &Apache::lonnet::escape($now.':'),      $r->print(&mt('Drop from classlist: [_1]',
                      $ENV{'course.'.$cid.'.home'}).'</b><br>');    '<b>'.$result.'</b>').'<br />');
  }   }
     }       } 
     if ($_=~/^form\.rev\:([^\_]+)\_cr\.cr\/(\w+)\/(\w+)\/(\w+)$/) {      if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
 # Revoke custom role  # Revoke custom role
  $r->print(   $r->print(&mt('Revoking custom role:').
                 'Revoking custom role '.$4.' by '.$3.'@'.$2.' in '.$1.': <b>'.                        ' '.$4.' by '.$3.':'.$2.' in '.$1.': <b>'.
 &Apache::lonnet::revokecustomrole($ENV{'form.ccdomain'},                        &Apache::lonnet::revokecustomrole($env{'form.ccdomain'},
   $ENV{'form.ccuname'},$1,$2,$3,$4).    $env{'form.ccuname'},$1,$2,$3,$4).
  '</b><br>');   '</b><br />');
     }      }
  } elsif ($_=~/^form\.del/) {   } elsif ($key=~/^form\.del/) {
     if ($_=~/^form\.del\:([^\_]+)\_([^\_]+)$/) {      if ($key=~/^form\.del\:([^\_]+)\_([^\_\.]+)$/) {
         $r->print('Deleting '.$2.' in '.$1.': '.  # Delete standard role
                      &Apache::lonnet::assignrole($ENV{'form.ccdomain'},          $r->print(&mt('Deleting').' '.$2.' in '.$1.': '.
                      $ENV{'form.ccuname'},$1,$2,$now,0,1).'<br>');                       &Apache::lonnet::assignrole($env{'form.ccdomain'},
                        $env{'form.ccuname'},$1,$2,$now,0,1).'<br />');
  if ($2 eq 'st') {   if ($2 eq 'st') {
     $1=~/^\/(\w+)\/(\w+)/;      $1=~m{^/($match_domain)/($match_courseid)};
     my $cid=$1.'_'.$2;      my $cid=$1.'_'.$2;
     $r->print('Drop from classlist: <b>'.      my $user = $env{'form.ccuname'}.':'.$env{'form.ccdomain'};
  &Apache::lonnet::critical('put:'.      my $result = 
                              $ENV{'course.'.$cid.'.domain'}.':'.   &Apache::lonnet::cput('classlist',
                      $ENV{'course.'.$cid.'.num'}.':classlist:'.        { $user => $now },
                          &Apache::lonnet::escape($ENV{'form.ccuname'}.':'.        $env{'course.'.$cid.'.domain'},
                              $ENV{'form.ccdomain'}).'='.        $env{'course.'.$cid.'.num'});
                          &Apache::lonnet::escape($now.':'),      $r->print(&mt('Drop from classlist: [_1]',
                      $ENV{'course.'.$cid.'.home'}).'</b><br>');    '<b>'.$result.'</b>').'<br />');
  }   }
     }               }
  } elsif ($_=~/^form\.act/) {      if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
     if                   my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
 ($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_cr_cr_([^\_]+)_(\w+)_([^\_]+)$/) {  # Delete custom role
                 # Activate a custom role                  $r->print(&mt('Deleting custom role [_1] by [_2]@[_3] in [_4]',
  my $url='/'.$1.'/'.$2;                        $rolename,$rnam,$rdom,$url).': <b>'.
  my $full=$1.'_'.$2.'_cr_cr_'.$3.'_'.$4.'_'.$5;                        &Apache::lonnet::assigncustomrole($env{'form.ccdomain'},
  if ($ENV{'form.sec_'.$full}) {                           $env{'form.ccuname'},$url,$rdom,$rnam,$rolename,$now,
     $url.='/'.$ENV{'form.sec_'.$full};                           0,1).'</b><br />');
               }
    } elsif ($key=~/^form\.ren/) {
               my $udom = $env{'form.ccdomain'};
               my $uname = $env{'form.ccuname'};
   # Re-enable standard role
       if ($key=~/^form\.ren\:([^\_]+)\_([^\_\.]+)$/) {
                   my $url = $1;
                   my $role = $2;
                   my $logmsg;
                   my $output;
                   if ($role eq 'st') {
                       if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {
                           my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3);
                           if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course')) {
                               $output = "Error: $result\n";
                           } else {
                               $output = &mt('Assigning').' '.$role.' in '.$url.
                                         &mt('starting').' '.localtime($now).
                                         ': <br />'.$logmsg.'<br />'.
                                         &mt('Add to classlist').': <b>ok</b><br />';
                           }
                       }
                   } else {
       my $result=&Apache::lonnet::assignrole($env{'form.ccdomain'},
                                  $env{'form.ccuname'},$url,$role,0,$now);
       $output = &mt('Re-enabling [_1] in [_2]: <b>[_3]</b>',
         $role,$url,$result).'<br />';
  }   }
                   $r->print($output);
  my $start = ( $ENV{'form.start_'.$full} ?       }
       $ENV{'form.start_'.$full} :   # Re-enable custom role
       $now );      if ($key=~m{^form\.ren\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
  my $end   = ( $ENV{'form.end_'.$full} ?                   my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
       $ENV{'form.end_'.$full} :                  my $result = &Apache::lonnet::assigncustomrole(
       0 );                                 $env{'form.ccdomain'}, $env{'form.ccuname'},
                                  $url,$rdom,$rnam,$rolename,0,$now);
     $r->print('Assigning custom role "'.$5.'" by '.$4.'@'.$3.' in '.$url.                  $r->print(&mt('Re-enabling custom role [_1] by [_2]@[_3] in [_4] : <b>[_5]</b>',
                          ($start?', starting '.localtime($start):'').                            $rolename,$rnam,$rdom,$url,$result).'<br />');
                          ($end?', ending '.localtime($end):'').': <b>'.              }
       &Apache::lonnet::assigncustomrole(   } elsif ($key=~/^form\.act/) {
  $ENV{'form.ccdomain'},$ENV{'form.ccuname'},$url,$3,$4,$5,$end,$start).              my $udom = $env{'form.ccdomain'};
       '</b><br>');              my $uname = $env{'form.ccuname'};
     } elsif ($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) {      if ($key=~/^form\.act\_($match_domain)\_($match_courseid)\_cr_cr_($match_domain)_($match_username)_([^\_]+)$/) {
                   # Activate a custom role
    my ($one,$two,$three,$four,$five)=($1,$2,$3,$4,$5);
    my $url='/'.$one.'/'.$two;
    my $full=$one.'_'.$two.'_cr_cr_'.$three.'_'.$four.'_'.$five;
   
                   my $start = ( $env{'form.start_'.$full} ?
                                 $env{'form.start_'.$full} :
                                 $now );
                   my $end   = ( $env{'form.end_'.$full} ?
                                 $env{'form.end_'.$full} :
                                 0 );
                                                                                        
                   # split multiple sections
                   my %sections = ();
                   my $num_sections = &build_roles($env{'form.sec_'.$full},\%sections,$5);
                   if ($num_sections == 0) {
                       $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$url,$three,$four,$five,$start,$end));
                   } else {
       my %curr_groups =
    &Apache::longroup::coursegroups($one,$two);
                       foreach my $sec (sort {$a cmp $b} keys %sections) {
                           if (($sec eq 'none') || ($sec eq 'all') || 
                               exists($curr_groups{$sec})) {
                               $disallowed{$sec} = $url;
                               next;
                           }
                           my $securl = $url.'/'.$sec;
           $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end));
                       }
                   }
       } elsif ($key=~/^form\.act\_($match_domain)\_($match_name)\_([^\_]+)$/) {
  # Activate roles for sections with 3 id numbers   # Activate roles for sections with 3 id numbers
  # set start, end times, and the url for the class   # set start, end times, and the url for the class
    my ($one,$two,$three)=($1,$2,$3);
  my $start = ( $ENV{'form.start_'.$1.'_'.$2.'_'.$3} ?    my $start = ( $env{'form.start_'.$one.'_'.$two.'_'.$three} ? 
       $ENV{'form.start_'.$1.'_'.$2.'_'.$3} :         $env{'form.start_'.$one.'_'.$two.'_'.$three} : 
       $now );        $now );
  my $end   = ( $ENV{'form.end_'.$1.'_'.$2.'_'.$3} ?    my $end   = ( $env{'form.end_'.$one.'_'.$two.'_'.$three} ? 
       $ENV{'form.end_'.$1.'_'.$2.'_'.$3} :        $env{'form.end_'.$one.'_'.$two.'_'.$three} :
       0 );        0 );
  my $url='/'.$1.'/'.$2;   my $url='/'.$one.'/'.$two;
  if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) {                  my $type = 'three';
     $url.='/'.$ENV{'form.sec_'.$1.'_'.$2.'_'.$3};                  # split multiple sections
  }                  my %sections = ();
  # Assign the role and report it                  my $num_sections = &build_roles($env{'form.sec_'.$one.'_'.$two.'_'.$three},\%sections,$three);
  $r->print('Assigning '.$3.' in '.$url.                  if ($num_sections == 0) {
                          ($start?', starting '.localtime($start):'').                      $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));
                          ($end?', ending '.localtime($end):'').': <b>'.                  } else {
                           &Apache::lonnet::assignrole(                      my %curr_groups = 
                               $ENV{'form.ccdomain'},$ENV{'form.ccuname'},   &Apache::longroup::coursegroups($one,$two);
                               $url,$3,$end,$start).                      my $emptysec = 0;
   '</b><br>');                      foreach my $sec (sort {$a cmp $b} keys %sections) {
  # Handle students differently                          $sec =~ s/\W//g;
  if ($3 eq 'st') {                          if ($sec ne '') {
     $url=~/^\/(\w+)\/(\w+)/;                              if (($sec eq 'none') || ($sec eq 'all') || 
     my $cid=$1.'_'.$2;                                  exists($curr_groups{$sec})) {
     $r->print('Add to classlist: <b>'.                                  $disallowed{$sec} = $url;
       &Apache::lonnet::critical(                                  next;
   'put:'.$ENV{'course.'.$cid.'.domain'}.':'.                              }
                            $ENV{'course.'.$cid.'.num'}.':classlist:'.                              my $securl = $url.'/'.$sec;
                                    &Apache::lonnet::escape(                              $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$three,$start,$end,$one,$two,$sec));
                                        $ENV{'form.ccuname'}.':'.                          } else {
                                        $ENV{'form.ccdomain'} ).'='.                              $emptysec = 1;
                                    &Apache::lonnet::escape($end.':'.$start),                          }
        $ENV{'course.'.$cid.'.home'})                      }
       .'</b><br>');                      if ($emptysec) {
  }                          $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$three,$start,$end,$one,$two,''));
     } elsif ($_=~/^form\.act\_([^\_]+)\_([^\_]+)$/) {                      }
                   } 
       } elsif ($key=~/^form\.act\_([^\_]+)\_([^\_]+)$/) {
  # Activate roles for sections with two id numbers   # Activate roles for sections with two id numbers
  # set start, end times, and the url for the class   # set start, end times, and the url for the class
  my $start = ( $ENV{'form.start_'.$1.'_'.$2} ?    my $start = ( $env{'form.start_'.$1.'_'.$2} ? 
       $ENV{'form.start_'.$1.'_'.$2} :         $env{'form.start_'.$1.'_'.$2} : 
       $now );        $now );
  my $end   = ( $ENV{'form.end_'.$1.'_'.$2} ?    my $end   = ( $env{'form.end_'.$1.'_'.$2} ? 
       $ENV{'form.end_'.$1.'_'.$2} :        $env{'form.end_'.$1.'_'.$2} :
       0 );        0 );
  my $url='/'.$1.'/';   my $url='/'.$1.'/';
  # Assign the role and report it.                  # split multiple sections
  $r->print('Assigning '.$2.' in '.$url.': '.                  my %sections = ();
                          ($start?', starting '.localtime($start):'').                  my $num_sections = &build_roles($env{'form.sec_'.$1.'_'.$2},\%sections,$2);
                          ($end?', ending '.localtime($end):'').': <b>'.                  if ($num_sections == 0) {
                           &Apache::lonnet::assignrole(                      $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$2,$start,$end,$1,undef,''));
                               $ENV{'form.ccdomain'},$ENV{'form.ccuname'},                  } else {
                               $url,$2,$end,$start)                      my $emptysec = 0;
   .'</b><br>');                      foreach my $sec (sort {$a cmp $b} keys %sections) {
                           if ($sec ne '') {
                               my $securl = $url.'/'.$sec;
                               $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$securl,$2,$start,$end,$1,undef,$sec));
                           } else {
                               $emptysec = 1;
                           }
                       }
                       if ($emptysec) {
                           $r->print(&Apache::loncommon::commit_standardrole($udom,$uname,$url,$2,$start,$end,$1,undef,''));
                       }
                   }
     } else {      } else {
  $r->print('<p>ERROR: Unknown command <tt>'.$_.'</tt></p><br>');   $r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$key.'</tt></p><br />');
             }              }
  }               foreach my $key (sort(keys(%disallowed))) {
     } # End of foreach (keys(%ENV))                  if (($key eq 'none') || ($key eq 'all')) {  
     $r->print('</body></html>');                      $r->print('<p>'.&mt('[_1] may not be used as the name for a section, as it is a reserved word.',$key));
                   } else {
                       $r->print('<p>'.&mt('[_1] may not be used as the name for a section, as it is the name of a course group.',$key));
                   }
                   $r->print(' '.&mt('Please <a href="javascript:history.go(-1)">go back</a> and choose a different section name.').'</p><br />');
               }
    }
       } # End of foreach (keys(%env))
   # Flush the course logs so reverse user roles immediately updated
       &Apache::lonnet::flushcourselogs();
       $r->print('<p><a href="/adm/createuser">Create/Modify Another User</a></p>');
       $r->print('<form name="userupdate" method="post" />'."\n");
       foreach my $item ('srchby','srchin','srchtype','srchterm','srchdomain','ccuname','ccdomain') {
           $r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n");
       }
       foreach my $item ('sortby','seluname','seludom') {
           if (exists($env{'form.'.$item})) {
               $r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n");
           }
       }
       $r->print('<input type="hidden" name="phase" value="" />'."\n".
                 '<input type ="hidden" name="state" value="" />'."\n".
                 '</form>');
       $r->print(&Apache::loncommon::end_page());
   }
   
   sub quota_admin {
       my ($setquota,$changeHash) = @_;
       my $quotachanged;
       if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
           # Current user has quota modification privileges
           $quotachanged = 1;
           $changeHash->{'portfolioquota'} = $setquota;
       }
       return $quotachanged;
   }
   
   sub build_roles {
       my ($sectionstr,$sections,$role) = @_;
       my $num_sections = 0;
       if ($sectionstr=~ /,/) {
           my @secnums = split/,/,$sectionstr;
           if ($role eq 'st') {
               $secnums[0] =~ s/\W//g;
               $$sections{$secnums[0]} = 1;
               $num_sections = 1;
           } else {
               foreach my $sec (@secnums) {
                   $sec =~ ~s/\W//g;
                   if (!($sec eq "")) {
                       if (exists($$sections{$sec})) {
                           $$sections{$sec} ++;
                       } else {
                           $$sections{$sec} = 1;
                           $num_sections ++;
                       }
                   }
               }
           }
       } else {
           $sectionstr=~s/\W//g;
           unless ($sectionstr eq '') {
               $$sections{$sectionstr} = 1;
               $num_sections ++;
           }
       }
   
       return $num_sections;
 }  }
   
 # ========================================================== Custom Role Editor  # ========================================================== Custom Role Editor
   
 sub custom_role_editor {  sub custom_role_editor {
     my $r=shift;      my ($r) = @_;
     my $rolename=$ENV{'form.rolename'};      my $rolename=$env{'form.rolename'};
   
     if ($rolename eq 'make new role') {      if ($rolename eq 'make new role') {
  $rolename=$ENV{'form.newrolename'};   $rolename=$env{'form.newrolename'};
     }      }
   
     $rolename=~s/[^A-Za-z0-9]//gs;      $rolename=~s/[^A-Za-z0-9]//gs;
   
     unless ($rolename) {      if (!$rolename) {
  &print_username_entry_form($r);   &print_username_entry_form($r);
         return;          return;
     }      }
   # ------------------------------------------------------- What can be assigned?
     $r->print(&Apache::loncommon::bodytag(      my %full=();
                      'Create Users, Change User Privileges').'<h2>');      my %courselevel=();
       my %courselevelcurrent=();
     my $syspriv='';      my $syspriv='';
     my $dompriv='';      my $dompriv='';
     my $coursepriv='';      my $coursepriv='';
       my $body_top;
       my ($disp_dummy,$disp_roles) = &Apache::lonnet::get('roles',["st"]);
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
 # ------------------------------------------------------- Does this role exist?  # ------------------------------------------------------- Does this role exist?
       $body_top .= '<h2>';
     if (($rdummy ne 'con_lost') && ($roledef ne '')) {      if (($rdummy ne 'con_lost') && ($roledef ne '')) {
  $r->print('Existing Role "');   $body_top .= &mt('Existing Role').' "';
 # ------------------------------------------------- Get current role privileges  # ------------------------------------------------- Get current role privileges
  ($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);   ($syspriv,$dompriv,$coursepriv)=split(/\_/,$roledef);
     } else {      } else {
  $r->print('New Role "');   $body_top .= &mt('New Role').' "';
  $roledef='';   $roledef='';
     }      }
     $r->print($rolename.'"</h2>');      $body_top .= $rolename.'"</h2>';
 # ------------------------------------------------------- What can be assigned?      foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
     my %full=();   my ($priv,$restrict)=split(/\&/,$item);
     my %courselevel=();          if (!$restrict) { $restrict='F'; }
     my %courselevelcurrent=();  
     foreach (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {  
  my ($priv,$restrict)=split(/\&/,$_);  
         unless ($restrict) { $restrict='F'; }  
         $courselevel{$priv}=$restrict;          $courselevel{$priv}=$restrict;
         if ($coursepriv=~/\:$priv/) {          if ($coursepriv=~/\:$priv/) {
     $courselevelcurrent{$priv}=1;      $courselevelcurrent{$priv}=1;
Line 965  sub custom_role_editor { Line 1950  sub custom_role_editor {
     }      }
     my %domainlevel=();      my %domainlevel=();
     my %domainlevelcurrent=();      my %domainlevelcurrent=();
     foreach (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {      foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
  my ($priv,$restrict)=split(/\&/,$_);   my ($priv,$restrict)=split(/\&/,$item);
         unless ($restrict) { $restrict='F'; }          if (!$restrict) { $restrict='F'; }
         $domainlevel{$priv}=$restrict;          $domainlevel{$priv}=$restrict;
         if ($dompriv=~/\:$priv/) {          if ($dompriv=~/\:$priv/) {
     $domainlevelcurrent{$priv}=1;      $domainlevelcurrent{$priv}=1;
Line 976  sub custom_role_editor { Line 1961  sub custom_role_editor {
     }      }
     my %systemlevel=();      my %systemlevel=();
     my %systemlevelcurrent=();      my %systemlevelcurrent=();
     foreach (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {      foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
  my ($priv,$restrict)=split(/\&/,$_);   my ($priv,$restrict)=split(/\&/,$item);
         unless ($restrict) { $restrict='F'; }          if (!$restrict) { $restrict='F'; }
         $systemlevel{$priv}=$restrict;          $systemlevel{$priv}=$restrict;
         if ($syspriv=~/\:$priv/) {          if ($syspriv=~/\:$priv/) {
     $systemlevelcurrent{$priv}=1;      $systemlevelcurrent{$priv}=1;
  }   }
  $full{$priv}=1;   $full{$priv}=1;
     }      }
       my ($jsback,$elements) = &crumb_utilities();
       my $button_code = "\n";
       my $head_script = "\n";
       $head_script .= '<script type="text/javascript">'."\n";
       my @template_roles = ("cc","in","ta","ep","st");
       foreach my $role (@template_roles) {
           $head_script .= &make_script_template($role);
           $button_code .= &make_button_code($role);
       }
       $head_script .= "\n".$jsback."\n".'</script>'."\n";
       $r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));
      &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"javascript:backPage(document.form1,'','')",
          text=>"User/custom role search",
          faq=>282,bug=>'Instructor Interface',},
         {href=>"javascript:backPage(document.form1,'','')",
            text=>"Edit custom role",
            faq=>282,bug=>'Instructor Interface',});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
   
       $r->print($body_top);
       my %lt=&Apache::lonlocal::texthash(
       'prv'  => "Privilege",
       'crl'  => "Course Level",
                       'dml'  => "Domain Level",
                       'ssl'  => "System Level");
       $r->print('Select a Template<br />');
       $r->print('<form action="">');
       $r->print($button_code);
       $r->print('</form>');
     $r->print(<<ENDCCF);      $r->print(<<ENDCCF);
 <form method="post">  <form name="form1" method="post">
 <input type="hidden" name="phase" value="set_custom_roles" />  <input type="hidden" name="phase" value="set_custom_roles" />
 <input type="hidden" name="rolename" value="$rolename" />  <input type="hidden" name="rolename" value="$rolename" />
 <table border="2">  
 <tr><th>Privilege</th><th>Course Level</th><th>Domain Level</th>  
 <th>System Level</th></tr>  
 ENDCCF  ENDCCF
     foreach (sort keys %full) {      $r->print(&Apache::loncommon::start_data_table().
  $r->print('<tr><td>'.&Apache::lonnet::plaintext($_).'</td><td>'.                &Apache::loncommon::start_data_table_header_row(). 
     ($courselevel{$_}?'<input type="checkbox" name="'.$_.':c" '.  '<th>'.$lt{'prv'}.'</th><th>'.$lt{'crl'}.'</th><th>'.$lt{'dml'}.
     ($courselevelcurrent{$_}?'checked="1"':'').' />':'&nbsp;').  '</th><th>'.$lt{'ssl'}.'</th>'.
                 &Apache::loncommon::end_data_table_header_row());
       foreach my $priv (sort keys %full) {
           my $privtext = &Apache::lonnet::plaintext($priv);
           $r->print(&Apache::loncommon::start_data_table_row().
             '<td>'.$privtext.'</td><td>'.
       ($courselevel{$priv}?'<input type="checkbox" name="'.$priv.'_c" '.
       ($courselevelcurrent{$priv}?'checked="1"':'').' />':'&nbsp;').
     '</td><td>'.      '</td><td>'.
     ($domainlevel{$_}?'<input type="checkbox" name="'.$_.':d" '.      ($domainlevel{$priv}?'<input type="checkbox" name="'.$priv.'_d" '.
     ($domainlevelcurrent{$_}?'checked="1"':'').' />':'&nbsp;').      ($domainlevelcurrent{$priv}?'checked="1"':'').' />':'&nbsp;').
     '</td><td>'.      '</td><td>'.
     ($systemlevel{$_}?'<input type="checkbox" name="'.$_.':s" '.      ($systemlevel{$priv}?'<input type="checkbox" name="'.$priv.'_s" '.
     ($systemlevelcurrent{$_}?'checked="1"':'').' />':'&nbsp;').      ($systemlevelcurrent{$priv}?'checked="1"':'').' />':'&nbsp;').
     '</td></tr>');      '</td>'.
                &Apache::loncommon::end_data_table_row());
       }
       $r->print(&Apache::loncommon::end_data_table().
      '<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.
      '" />'."\n".'<input type="hidden" name="state" value="" />'."\n".   
      '<input type="reset" value="'.&mt("Reset").'" />'."\n".
      '<input type="submit" value="'.&mt('Define Role').'" /></form>'.
         &Apache::loncommon::end_page());
   }
   # --------------------------------------------------------
   sub make_script_template {
       my ($role) = @_;
       my %full_c=();
       my %full_d=();
       my %full_s=();
       my $return_script;
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
           my ($priv,$restrict)=split(/\&/,$item);
           $full_c{$priv}=1;
       }
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
           my ($priv,$restrict)=split(/\&/,$item);
           $full_d{$priv}=1;
       }
       foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
           my ($priv,$restrict)=split(/\&/,$item);
           $full_s{$priv}=1;
       }
       $return_script .= 'function set_'.$role.'() {'."\n";
       my @temp = split(/:/,$Apache::lonnet::pr{$role.':c'});
       my %role_c;
       foreach my $priv (@temp) {
           my ($priv_item, $dummy) = split(/\&/,$priv);
           $role_c{$priv_item} = 1;
       }
       foreach my $priv_item (keys(%full_c)) {
           my ($priv, $dummy) = split(/\&/,$priv_item);
           if (exists($role_c{$priv})) {
               $return_script .= "document.form1.$priv"."_c.checked = true;\n";
           } else {
               $return_script .= "document.form1.$priv"."_c.checked = false;\n";
           }
     }      }
     $r->print(      my %role_d;
    '<table><input type="submit" value="Define Role" /></form></body></html>');      @temp = split(/:/,$Apache::lonnet::pr{$role.':d'});
       foreach my $priv(@temp) {
           my ($priv_item, $dummy) = split(/\&/,$priv);
           $role_d{$priv_item} = 1;
       }
       foreach my $priv_item (keys(%full_d)) {
           my ($priv, $dummy) = split(/\&/,$priv_item);
           if (exists($role_d{$priv})) {
               $return_script .= "document.form1.$priv"."_d.checked = true;\n";
           } else {
               $return_script .= "document.form1.$priv"."_d.checked = false;\n";
           }
       }
       my %role_s;
       @temp = split(/:/,$Apache::lonnet::pr{$role.':s'});
       foreach my $priv(@temp) {
           my ($priv_item, $dummy) = split(/\&/,$priv);
           $role_s{$priv_item} = 1;
       }
       foreach my $priv_item (keys(%full_s)) {
           my ($priv, $dummy) = split(/\&/,$priv_item);
           if (exists($role_s{$priv})) {
               $return_script .= "document.form1.$priv"."_s.checked = true;\n";
           } else {
               $return_script .= "document.form1.$priv"."_s.checked = false;\n";
           }
       }
       $return_script .= '}'."\n";
       return ($return_script);
   }
   # ----------------------------------------------------------
   sub make_button_code {
       my ($role) = @_;
       my $label = &Apache::lonnet::plaintext($role);
       my $button_code = '<input type="button" onClick="set_'.$role.'()" value="'.$label.'" />';    
       return ($button_code);
 }  }
   
 # ---------------------------------------------------------- Call to definerole  # ---------------------------------------------------------- Call to definerole
 sub set_custom_role {  sub set_custom_role {
     my $r=shift;      my ($r) = @_;
   
     my $rolename=$ENV{'form.rolename'};      my $rolename=$env{'form.rolename'};
   
     $rolename=~s/[^A-Za-z0-9]//gs;      $rolename=~s/[^A-Za-z0-9]//gs;
   
     unless ($rolename) {      if (!$rolename) {
  &print_username_entry_form($r);   &print_username_entry_form($r);
         return;          return;
     }      }
   
     $r->print(&Apache::loncommon::bodytag(      my ($jsback,$elements) = &crumb_utilities();
                      'Create Users, Change User Privileges').'<h2>');      my $jscript = '<script type="text/javascript">'.$jsback."\n".'</script>';
   
       $r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);
       &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"javascript:backPage(document.customresult,'','')",
             text=>"User/custom role search",
             faq=>282,bug=>'Instructor Interface',},
            {href=>"javascript:backPage(document.customresult,'selected_custom_edit','')",
             text=>"Edit custom role",
             faq=>282,bug=>'Instructor Interface',},
            {href=>"javascript:backPage(document.customresult,'set_custom_roles','')",
             text=>"Result",
             faq=>282,bug=>'Instructor Interface',});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));
   
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
   
 # ------------------------------------------------------- Does this role exist?  # ------------------------------------------------------- Does this role exist?
       $r->print('<h2>');
     if (($rdummy ne 'con_lost') && ($roledef ne '')) {      if (($rdummy ne 'con_lost') && ($roledef ne '')) {
  $r->print('Existing Role "');   $r->print(&mt('Existing Role').' "');
     } else {      } else {
  $r->print('New Role "');   $r->print(&mt('New Role').' "');
  $roledef='';   $roledef='';
     }      }
     $r->print($rolename.'"</h2>');      $r->print($rolename.'"</h2>');
Line 1039  sub set_custom_role { Line 2150  sub set_custom_role {
     my $domrole='';      my $domrole='';
     my $courole='';      my $courole='';
   
     foreach (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {      foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:c'})) {
  my ($priv,$restrict)=split(/\&/,$_);   my ($priv,$restrict)=split(/\&/,$item);
         unless ($restrict) { $restrict=''; }          if (!$restrict) { $restrict=''; }
         if ($ENV{'form.'.$priv.':c'}) {          if ($env{'form.'.$priv.'_c'}) {
     $courole.=':'.$_;      $courole.=':'.$item;
  }   }
     }      }
   
     foreach (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {      foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:d'})) {
  my ($priv,$restrict)=split(/\&/,$_);   my ($priv,$restrict)=split(/\&/,$item);
         unless ($restrict) { $restrict=''; }          if (!$restrict) { $restrict=''; }
         if ($ENV{'form.'.$priv.':d'}) {          if ($env{'form.'.$priv.'_d'}) {
     $domrole.=':'.$_;      $domrole.=':'.$item;
  }   }
     }      }
   
     foreach (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {      foreach my $item (split(/\:/,$Apache::lonnet::pr{'cr:s'})) {
  my ($priv,$restrict)=split(/\&/,$_);   my ($priv,$restrict)=split(/\&/,$item);
         unless ($restrict) { $restrict=''; }          if (!$restrict) { $restrict=''; }
         if ($ENV{'form.'.$priv.':s'}) {          if ($env{'form.'.$priv.'_s'}) {
     $sysrole.=':'.$_;      $sysrole.=':'.$item;
  }   }
     }      }
     $r->print('<br />Defining Role: '.      $r->print('<br />Defining Role: '.
    &Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));     &Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));
     if ($ENV{'request.course.id'}) {      if ($env{'request.course.id'}) {
         my $url='/'.$ENV{'request.course.id'};          my $url='/'.$env{'request.course.id'};
         $url=~s/\_/\//g;          $url=~s/\_/\//g;
  $r->print('<br />Assigning Role to Self: '.   $r->print('<br />'.&mt('Assigning Role to Self').': '.
       &Apache::lonnet::assigncustomrole($ENV{'user.domain'},        &Apache::lonnet::assigncustomrole($env{'user.domain'},
  $ENV{'user.name'},   $env{'user.name'},
  $url,   $url,
  $ENV{'user.domain'},   $env{'user.domain'},
  $ENV{'user.name'},   $env{'user.name'},
  $rolename));   $rolename));
     }      }
     $r->print('</body></html>');      $r->print('<p><a href="/adm/createuser">Create another role, or Create/Modify a user.</a></p><form name="customresult" method="post">');
       $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');
       $r->print(&Apache::loncommon::end_page());
 }  }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
Line 1088  sub handler { Line 2201  sub handler {
        return OK;         return OK;
     }      }
   
     if ((&Apache::lonnet::allowed('cta',$ENV{'request.course.id'})) ||      if ((&Apache::lonnet::allowed('cta',$env{'request.course.id'})) ||
         (&Apache::lonnet::allowed('cin',$ENV{'request.course.id'})) ||           (&Apache::lonnet::allowed('cin',$env{'request.course.id'})) || 
         (&Apache::lonnet::allowed('ccr',$ENV{'request.course.id'})) ||           (&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) || 
         (&Apache::lonnet::allowed('cep',$ENV{'request.course.id'})) ||          (&Apache::lonnet::allowed('cep',$env{'request.course.id'})) ||
         (&Apache::lonnet::allowed('cca',$ENV{'request.role.domain'})) ||   (&authorpriv($env{'user.name'},$env{'request.role.domain'})) ||
         (&Apache::lonnet::allowed('mau',$ENV{'request.role.domain'}))) {          (&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) {
        &Apache::loncommon::content_type($r,'text/html');         &Apache::loncommon::content_type($r,'text/html');
        $r->send_http_header;         $r->send_http_header;
        unless ($ENV{'form.phase'}) {         &Apache::lonhtmlcommon::clear_breadcrumbs();
    &print_username_entry_form($r);        
        }         my $phase = $env{'form.phase'};
        if ($ENV{'form.phase'} eq 'get_user_info') {         my @search = ('srchterm','srchby','srchin','srchtype','srchdomain');
            &print_user_modification_page($r);  
        } elsif ($ENV{'form.phase'} eq 'update_user_data') {         if (($phase eq 'get_user_info') || ($phase eq 'userpicked')) {
              my $srch;
              foreach my $item (@search) {
                  $srch->{$item} = $env{'form.'.$item};
              }
              if ($env{'form.phase'} eq 'get_user_info') {
                  my ($state,$response,$forcenewuser,$results) = 
                      &user_search_result($srch);
                  if ($state eq 'select') {
                      &print_user_selection_page($r,$response,$srch,$results);
                  } elsif ($state eq 'modify') {
                      my ($ccuname,$ccdomain);
                      if ($srch->{'srchby'} eq 'uname') {
                          $ccuname = $srch->{'srchterm'};
                          $ccdomain= $srch->{'srchdomain'};
                      } else {
                          my @matchedunames = keys(%{$results});
                          ($ccuname,$ccdomain) = split(/:/,$matchedunames[0]);
                      }
                      $ccuname =&LONCAPA::clean_username($ccuname);
                      $ccdomain=&LONCAPA::clean_domain($ccdomain);
                      &print_user_modification_page($r,$ccuname,$ccdomain,$srch,
                                                    $response);
                  } elsif ($state eq 'query') {
                      &print_user_query_page($r);
                  } else {
                      &print_username_entry_form($r,$response,$srch,$forcenewuser);
                  }
              } elsif ($env{'form.phase'} eq 'userpicked') {
                  my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});
                  my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});
                  &print_user_modification_page($r,$ccuname,$ccdomain,$srch);
              }
          } elsif ($env{'form.phase'} eq 'update_user_data') {
            &update_user_data($r);             &update_user_data($r);
        } elsif ($ENV{'form.phase'} eq 'selected_custom_edit') {         } elsif ($env{'form.phase'} eq 'selected_custom_edit') {
            &custom_role_editor($r);             &custom_role_editor($r);
        } elsif ($ENV{'form.phase'} eq 'set_custom_roles') {         } elsif ($env{'form.phase'} eq 'set_custom_roles') {
    &set_custom_role($r);     &set_custom_role($r);
          } else {
              &print_username_entry_form($r);
        }         }
    } else {     } else {
       $ENV{'user.error.msg'}=        $env{'user.error.msg'}=
         "/adm/createuser:mau:0:0:Cannot modify user data";          "/adm/createuser:mau:0:0:Cannot modify user data";
       return HTTP_NOT_ACCEPTABLE;         return HTTP_NOT_ACCEPTABLE; 
    }     }
    return OK;     return OK;
 }   }
   
 #-------------------------------------------------- functions for &phase_two  #-------------------------------------------------- functions for &phase_two
   sub user_search_result {
       my ($srch) = @_;
       my @alldomains = sort(&Apache::lonnet::all_domains());
       my %allhomes;
       my %inst_matches;
       my %srch_results;
       my ($response,$state,$forcenewuser);
   
       if ($srch->{'srchby'} !~ /^(uname|lastname|lastfirst)$/) { 
           $response = &mt('Invalid search.');
       }
       if ($srch->{'srchin'} !~ /^(crs|dom|alc|instd)$/) {
           $response = &mt('Invalid search.');
       }
       if ($srch->{'srchtype'} !~ /^(exact|contains)$/) {
           $response = &mt('Invalid search.');
       }
       if ($srch->{'srchterm'} eq '') {
           $response = &mt('You must enter a search term.');
       }
       if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'instd')) {
           if (($srch->{'srchdomain'} eq '') || 
               (!(grep/^\Q$srch->{'srchdomain'}\E$/,@alldomains))) {
               $response = &mt('You must specify a valid domain when searching in a domain or institutional directory.')
           }
       }
       if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') ||
           ($srch->{'srchin'} eq 'alc')) {
           if ($srch->{'srchterm'} !~ /^$match_username$/) {
               $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');
           }
       }
       if ($srch->{'srchin'} eq 'instd') {
           my $instd_chk = &directorysrch_check($srch);
           if ($instd_chk ne 'ok') {
               $response = $instd_chk;
           }
       }
       if ($response ne '') {
           return ($state,$response);
       }
       if ($srch->{'srchby'} eq 'uname') {
           if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs')) {
               if ($env{'form.forcenew'}) {
                   if ($srch->{'srchdomain'} ne $env{'request.role.domain'}) {
                       my $uhome=&Apache::lonnet::homeserver($srch->{'srchterm'},$srch->{'srchdomain'});
                       if ($uhome eq 'no_host') {
                           my $domdesc = &Apache::lonnet::domain($env{'request.role.domain'},'description');
                           $response = &mt('New users can only be created in the domain to which you current role belongs - [_1].',$env{'request.role.domain'}.' ('.$domdesc.')');
                       } else {
                           $state = 'modify';
                       }
                   } else {
                       $state = 'modify';
                   }
               } else {
                   if ($srch->{'srchin'} eq 'dom') {
                       my $uhome=&Apache::lonnet::homeserver($srch->{'srchterm'},$srch->{'srchdomain'});
                       if ($uhome eq 'no_host') {
                           ($state,$response,$forcenewuser) =
                               &build_search_response($srch,%srch_results);
                       } else {
                           $state = 'modify';
                       }
                   } else {
                       my %courseusers = &get_courseusers();
                       if (exists($courseusers{$srch->{'srchterm'}.':'.$srch->{'srchdomain'}})) {
                           $state = 'modify';
                       } else {
                           ($state,$response,$forcenewuser) =
                               &build_search_response($srch,%srch_results);
                       }
                   }
               }
           } elsif ($srch->{'srchin'} eq 'alc') {
               $state = 'query';
           } elsif ($srch->{'srchin'} eq 'instd') {
               %srch_results = &Apache::lonnet::inst_directory_query($srch);
               ($state,$response,$forcenewuser) = 
                   &build_search_response($srch,%srch_results); 
           }
       } else {
           if ($srch->{'srchin'} eq 'dom') {
               %srch_results = &Apache::lonnet::usersearch($srch);
               ($state,$response,$forcenewuser) = 
                   &build_search_response($srch,%srch_results); 
           } elsif ($srch->{'srchin'} eq 'crs') {
               my %courseusers = &get_courseusers(); 
               foreach my $user (keys(%courseusers)) {
                   my ($uname,$udom) = split(/:/,$user);
                   my %names = &Apache::loncommon::getnames($uname,$udom);
                   my %emails = &Apache::loncommon::getemails($uname,$udom);
                   if ($srch->{'srchby'} eq 'lastname') {
                       if ((($srch->{'srchtype'} eq 'exact') && 
                            ($names{'lastname'} eq $srch->{'srchterm'})) || 
                           (($srch->{'srchtype'} eq 'contains') &&
                            ($names{'lastname'} =~ /\Q$srch->{'srchterm'}\E/i))) {
                           $srch_results{$user} = {firstname => $names{'firstname'},
                                               lastname => $names{'lastname'},
                                               permanentemail => $emails{'permanentemail'},
                                              };
                       }
                   } elsif ($srch->{'srchby'} eq 'lastfirst') {
                       my ($srchlast,$srchfirst) = split(/,/,$srch->{'srchterm'});
                       if ($srch->{'srchtype'} eq 'exact') {
                           if (($names{'lastname'} eq $srchlast) &&
                               ($names{'firstname'} eq $srchfirst)) {
                               $srch_results{$user} = {firstname => $names{'firstname'},
                                                   lastname => $names{'lastname'},
                                                   permanentemail => $emails{'permanentemail'},
   
                                              };
                           }
                       } elsif ($srch->{'srchtype'} eq 'contains') {
                           if (($names{'lastname'} =~ /\Q$srchlast\E/i) && 
                               ($names{'firstname'} =~ /\Q$srchfirst\E/i)) {
                               $srch_results{$user} = {firstname => $names{'firstname'},
                                                   lastname => $names{'lastname'},
                                                   permanentemail => $emails{'permanentemail'},
                                                  };
                           }
                       }
                   }
               }
               ($state,$response,$forcenewuser) = 
                   &build_search_response($srch,%srch_results); 
           } elsif ($srch->{'srchin'} eq 'alc') {
               $state = 'query';
           } elsif ($srch->{'srchin'} eq 'instd') {
               %srch_results = &Apache::lonnet::inst_directory_query($srch); 
               ($state,$response,$forcenewuser) = 
                   &build_search_response($srch,%srch_results);
           }
       }
       return ($state,$response,$forcenewuser,\%srch_results);
   }
   
   sub directorysrch_check {
       my ($srch) = @_;
       my $can_search = 0;
       my $response;
       my %dom_inst_srch = &Apache::lonnet::get_dom('configuration',
                                                ['directorysrch'],$srch->{'srchdomain'});
       if (ref($dom_inst_srch{'directorysrch'}) eq 'HASH') {
           if (!$dom_inst_srch{'directorysrch'}{'available'}) {
               return &mt('Directory search unavailable in domain: [_1]',$srch->{'srchdomain'}); 
           }
           if ($dom_inst_srch{'directorysrch'}{'localonly'}) {
               if ($env{'request.role.domain'} ne $srch->{'srchdomain'}) {
                   return &mt('Directory search in domain: [_1] is only allowed for users with a current role in the domain.',$srch->{'srchdomain'}); 
               }
               my @usertypes = split(/:/,$env{'environment.inststatus'});
               if (!@usertypes) {
                   push(@usertypes,'default');
               }
               if (ref($dom_inst_srch{'directorysrch'}{'cansearch'}) eq 'ARRAY') {
                   foreach my $type (@usertypes) {
                       if (grep(/^\Q$type\E$/,@{$dom_inst_srch{'directorysrch'}{'cansearch'}})) {
                           $can_search = 1;
                           last;
                       }
                   }
               }
               if (!$can_search) {
                   my ($insttypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($srch->{'srchdomain'});
                   my @longtypes; 
                   foreach my $item (@usertypes) {
                       push (@longtypes,$insttypes->{$item});
                   }
                   my $insttype_str = join(', ',@longtypes); 
                   return &mt('Directory search in domain: [_1] is unavailable to your user type: ',$srch->{'srchdomain'}).$insttype_str;
               } 
           } else {
               $can_search = 1;
           }
       } else {
           return &mt('Directory search has not been configured for domain: [_1]',$srch->{'srchdomain'});
       }
       my %longtext = &Apache::lonlocal::texthash (
                          uname => 'username',
                          lastfirst => 'last name, first name',
                          lastname => 'last name',
                          contains => 'is contained in',
                          exact => 'as exact match to'
                      );
       if ($can_search) {
           if (ref($dom_inst_srch{'directorysrch'}{'searchby'}) eq 'ARRAY') {
               if (!grep(/^\Q$srch->{'srchby'}\E$/,@{$dom_inst_srch{'directorysrch'}{'searchby'}})) {
                   return &mt('Directory search in domain: [_1] is not available for searching by [_2]',$srch->{'srchdomain'},$longtext{$srch->{'srchby'}});
               }
           } else {
               return &mt('Directory search in domain: [_1] is not available.', $srch->{'srchdomain'});
           }
       }
       if ($can_search) {
           if (($dom_inst_srch{'directorysrch'}{'searchtypes'} eq 'specify') ||
               ($dom_inst_srch{'directorysrch'}{'searchtypes'} eq $srch->{'srchtype'})) {
               return 'ok';
           } else {    
               return &mt('Directory search in domain [_1] is not available for the requested search type: [_2]',$srch->{'srchdomain'},$longtext{$srch->{'srchtype'}});
           }
       }
   }
   
   
   sub get_courseusers {
       my %advhash;
       my %coursepersonnel=&Apache::lonnet::get_course_adv_roles();
       foreach my $role (sort(keys(%coursepersonnel))) {
           foreach my $user (split(/\,/,$coursepersonnel{$role})) {
               $advhash{$user} = '';
           }
       }
       my $classlist = &Apache::loncoursedata::get_classlist();
       my %combined = (%advhash, %{$classlist});
       return %combined;
   }
   
   sub build_search_response {
       my ($srch,%srch_results) = @_;
       my ($state,$response,$forcenewuser);
       my %names = (
             'uname' => 'username',
             'lastname' => 'last name',
             'lastfirst' => 'last name, first name',
             'crs' => 'this course',
             'dom' => 'this domain',
             'instd' => "your institution's directory",
       );
   
       my %single = (
                      contains => 'A match',
                      exact => 'An exact match',
                    );
       my %nomatch = (
                      contains => 'No match',
                      exact => 'No exact match',
                     );
       if (keys(%srch_results) > 1) {
           $state = 'select';
       } else {
           if (keys(%srch_results) == 1) {
               $state = 'modify';
               $response = &mt("$single{$srch->{'srchtype'}} was found for this $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}.",$srch->{'srchterm'});
           } else {
               $response = &mt("$nomatch{$srch->{'srchtype'}} found for this $names{$srch->{'srchby'}} ([_1]) in $names{$srch->{'srchin'}}.",$srch->{'srchterm'});
               if ($srch->{'srchin'} ne 'alc') {
                   $forcenewuser = 1;
                   my $cansrchinst = 0; 
                   if ($srch->{'srchdomain'}) {
                       my %domconfig = &Apache::lonnet::get_dom('configuration',['directorysrch'],$srch->{'srchdomain'});
                       if (ref($domconfig{'directorysrch'}) eq 'HASH') {
                           if ($domconfig{'directorysrch'}{'available'}) {
                               $cansrchinst = 1;
                           } 
                       }
                   }
                   if (($srch->{'srchby'} eq 'lastfirst') || 
                       ($srch->{'srchby'} eq 'lastname')) {
                       if ($srch->{'srchin'} eq 'crs') {
                           $response .= '<br />'.&mt('You may want to broaden your search to the whole domain.'); 
                       } elsif ($srch->{'srchin'} eq 'dom') {
                           if ($cansrchinst) {
                               $response .= '<br />'.&mt('You may want to broaden your search to a search of the institutional directory for this domain.');
                           }
                       }
                   }
                   $response .= '<br />'.&mt("To add as a new user:").'<ul><li>'.&mt("Enter the proposed username in the <i>'Search for'</i> box").'</li><li>'.&mt("Set <i>'Make new user if no match found</i>' to <b>Yes</b>").'</li><li>'.&mt("Click <i>'Search'</i>").'</li></ul>'.&mt("Note: you can only create new users in the domain of your current role -".$env{'request.role.domain'}).'<br /><br />';
               }
           }
       }
       return ($state,$response,$forcenewuser);
   }
   
   sub crumb_utilities {
       my %elements = (
          crtuser => {
              srchterm => 'text',
              srchin => 'selectbox',
              srchby => 'selectbox',
              srchtype => 'selectbox',
              srchdomain => 'selectbox',
          },
          docustom => {
              rolename => 'selectbox',
              newrolename => 'textbox',
          },
       );
   
       my $jsback .= qq|
   function backPage(formname,prevphase,prevstate) {
       formname.phase.value = prevphase;
       formname.state.value = prevstate;
       formname.submit();
   }
   |;
       return ($jsback,\%elements);
   }
   
 sub course_level_table {  sub course_level_table {
     my %inccourses = @_;      my (%inccourses) = @_;
     my $table = '';      my $table = '';
 # Custom Roles?  # Custom Roles?
   
     my %customroles=&my_custom_roles();      my %customroles=&my_custom_roles();
       my %lt=&Apache::lonlocal::texthash(
               'exs'  => "Existing sections",
               'new'  => "Define new section",
               'ssd'  => "Set Start Date",
               'sed'  => "Set End Date",
               'crl'  => "Course Level",
               'act'  => "Activate",
               'rol'  => "Role",
               'ext'  => "Extent",
               'grs'  => "Section",
               'sta'  => "Start",
               'end'  => "End"
       );
   
     foreach (sort( keys(%inccourses))) {      foreach my $protectedcourse (sort( keys(%inccourses))) {
  my $thiscourse=$_;   my $thiscourse=$protectedcourse;
  my $protectedcourse=$_;  
  $thiscourse=~s:_:/:g;   $thiscourse=~s:_:/:g;
  my %coursedata=&Apache::lonnet::coursedescription($thiscourse);   my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
  my $area=$coursedata{'description'};   my $area=$coursedata{'description'};
  if (!defined($area)) { $area='Unavailable course: '.$_; }          my $type=$coursedata{'type'};
  my $bgcol=$thiscourse;   if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }
  $bgcol=~s/[^7-9a-e]//g;   my ($domain,$cnum)=split(/\//,$thiscourse);
  $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);          my %sections_count;
  foreach  ('st','ta','ep','ad','in','cc') {          if (defined($env{'request.course.id'})) {
     if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {              if ($env{'request.course.id'} eq $domain.'_'.$cnum) {
  my $plrole=&Apache::lonnet::plaintext($_);                  %sections_count = 
  $table .= <<ENDEXTENT;      &Apache::loncommon::get_sections($domain,$cnum);
 <tr bgcolor="#$bgcol">              }
 <td><input type="checkbox" name="act_$protectedcourse\_$_"></td>          }
 <td>$plrole</td>   foreach my $role ('st','ta','ep','in','cc') {
 <td>$area</td>      if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
 ENDEXTENT   my $plrole=&Apache::lonnet::plaintext($role);
         if ($_ ne 'cc') {   $table .= &Apache::loncommon::start_data_table_row().
     $table .= <<ENDSECTION;  '<td><input type="checkbox" name="act_'.$protectedcourse.'_'.$role.'" /></td>
 <td><input type="text" size="5" name="sec_$protectedcourse\_$_"></td>  <td>'.$plrole.'</td>
 ENDSECTION  <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
           if ($role ne 'cc') {
                       if (%sections_count) {
                           my $currsec = &course_sections(\%sections_count,$protectedcourse.'_'.$role);
                           $table .= 
                       '<td><table class="LC_createuser">'.
                        '<tr class="LC_section_row">
                           <td valign="top">'.$lt{'exs'}.'<br />'.
                           $currsec.'</td>'.
                        '<td>&nbsp;&nbsp;</td>'.
                        '<td valign="top">&nbsp;'.$lt{'new'}.'<br />'.
                        '<input type="text" name="newsec_'.$protectedcourse.'_'.$role.'" value="" />'.
                        '<input type="hidden" '.
                        'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'.
                        '</tr></table></td>';
                       } else {
                           $table .= '<td><input type="text" size="10" '.
                        'name="sec_'.$protectedcourse.'_'.$role.'" /></td>';
                       }
                 } else {                   } else { 
     $table .= <<ENDSECTION;      $table .= '<td>&nbsp</td>';
 <td>&nbsp</td>   
 ENDSECTION  
                 }                  }
  $table .= <<ENDTIMEENTRY;   $table .= <<ENDTIMEENTRY;
 <td><input type=hidden name="start_$protectedcourse\_$_" value=''>  <td><input type=hidden name="start_$protectedcourse\_$role" value='' />
 <a href=  <a href=
 "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$_.value,'start_$protectedcourse\_$_','cu.pres','dateset')">Set Start Date</a></td>  "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$protectedcourse\_$role.value,'start_$protectedcourse\_$role','cu.pres','dateset')">$lt{'ssd'}</a></td>
 <td><input type=hidden name="end_$protectedcourse\_$_" value=''>  <td><input type=hidden name="end_$protectedcourse\_$role" value='' />
 <a href=  <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$_.value,'end_$protectedcourse\_$_','cu.pres','dateset')">Set End Date</a></td>  "javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDTIMEENTRY  ENDTIMEENTRY
                 $table.= "</tr>\n";                  $table.= &Apache::loncommon::end_data_table_row();
             }              }
         }          }
         foreach (sort keys %customroles) {          foreach my $cust (sort keys %customroles) {
     if (&Apache::lonnet::allowed('ccr',$thiscourse)) {      if (&Apache::lonnet::allowed('ccr',$thiscourse)) {
  my $plrole=$_;   my $plrole=$cust;
                 my $customrole=$protectedcourse.'_cr_cr_'.$ENV{'user.domain'}.                  my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.
     '_'.$ENV{'user.name'}.'_'.$plrole;      '_'.$env{'user.name'}.'_'.$plrole;
  $table .= <<ENDENTRY;   $table .= &Apache::loncommon::start_data_table_row().
 <tr bgcolor="#$bgcol">  '<td><input type="checkbox" name="act_'.$customrole.'" /></td>
 <td><input type="checkbox" name="act_$customrole"></td>  <td>'.$plrole.'</td>
 <td>$plrole</td>  <td>'.$area.'</td>'."\n";
 <td>$area</td>                  if (%sections_count) {
 <td><input type="text" size="5" name="sec_$customrole"></td>                      my $currsec = &course_sections(\%sections_count,$customrole);
 <td><input type=hidden name="start_$customrole" value=''>                      $table.=
                      '<td><table border="0" cellspacing="0" cellpadding="0">'.
                      '<tr><td valign="top">'.$lt{'exs'}.'<br />'.
                        $currsec.'</td>'.
                      '<td>&nbsp;&nbsp;</td>'.
                      '<td valign="top">&nbsp;'.$lt{'new'}.'<br />'.
                      '<input type="text" name="newsec_'.$customrole.'" value="" /></td>'.
                      '<input type="hidden" '.
                      'name="sec_'.$customrole.'" /></td>'.
                      '</tr></table></td>';
                   } else {
                       $table .= '<td><input type="text" size="10" '.
                        'name="sec_'.$customrole.'" /></td>';
                   }
                   $table .= <<ENDENTRY;
   <td><input type=hidden name="start_$customrole" value='' />
 <a href=  <a href=
 "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">Set Start Date</a></td>  "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>
 <td><input type=hidden name="end_$customrole" value=''>  <td><input type=hidden name="end_$customrole" value='' />
 <a href=  <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">Set End Date</a></td></tr>  "javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDENTRY  ENDENTRY
                  $table .= &Apache::loncommon::end_data_table_row();
            }             }
  }   }
     }      }
     return '' if ($table eq ''); # return nothing if there is nothing       return '' if ($table eq ''); # return nothing if there is nothing 
                                  # in the table                                   # in the table
     my $result = <<ENDTABLE;      my $result = '
 <h4>Course Level</h4>  <h4>'.$lt{'crl'}.'</h4>'.
 <table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>  &Apache::loncommon::start_data_table().
 <th>Group/Section</th><th>Start</th><th>End</th></tr>  &Apache::loncommon::start_data_table_header_row().
 $table  '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>
 </table>  <th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
 ENDTABLE  &Apache::loncommon::end_data_table_header_row().
   $table.
   &Apache::loncommon::end_data_table();
     return $result;      return $result;
 }  }
   
   sub course_sections {
       my ($sections_count,$role) = @_;
       my $output = '';
       my @sections = (sort {$a <=> $b} keys %{$sections_count});
       if (scalar(@sections) == 1) {
           $output = '<select name="currsec_'.$role.'" >'."\n".
                     '  <option value="">Select</option>'."\n".
                     '  <option value="">No section</option>'."\n".
                     '  <option value="'.$sections[0].'" >'.$sections[0].'</option>'."\n";
       } else {
           $output = '<select name="currsec_'.$role.'" ';
           my $multiple = 4;
           if (scalar(@sections) < 4) { $multiple = scalar(@sections); }
           $output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
           foreach my $sec (@sections) {
               $output .= '<option value="'.$sec.'">'.$sec."</option>\n";
           }
       }
       $output .= '</select>'; 
       return $output;
   }
   
   sub course_level_dc {
       my ($dcdom) = @_;
       my %customroles=&my_custom_roles();
       my $hiddenitems = '<input type="hidden" name="dcdomain" value="'.$dcdom.'" />'.
                         '<input type="hidden" name="origdom" value="'.$dcdom.'" />'.
                         '<input type="hidden" name="dccourse" value="" />';
       my $courseform='<b>'.&Apache::loncommon::selectcourse_link
               ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';
       my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu');
       my %lt=&Apache::lonlocal::texthash(
                       'rol'  => "Role",
                       'grs'  => "Section",
                       'exs'  => "Existing sections",
                       'new'  => "Define new section", 
                       'sta'  => "Start",
                       'end'  => "End",
                       'ssd'  => "Set Start Date",
                       'sed'  => "Set End Date"
                     );
       my $header = '<h4>'.&mt('Course Level').'</h4>'.
                    &Apache::loncommon::start_data_table().
                    &Apache::loncommon::start_data_table_header_row().
                    '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
                    &Apache::loncommon::end_data_table_header_row();
       my $otheritems = &Apache::loncommon::start_data_table_row()."\n".
                        '<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".
                        '<td><select name="role">'."\n";
       foreach  my $role ('st','ta','ep','in','cc') {
           my $plrole=&Apache::lonnet::plaintext($role);
           $otheritems .= '  <option value="'.$role.'">'.$plrole;
       }
       if ( keys %customroles > 0) {
           foreach my $cust (sort keys %customroles) {
               my $custrole='cr_cr_'.$env{'user.domain'}.
                       '_'.$env{'user.name'}.'_'.$cust;
               $otheritems .= '  <option value="'.$custrole.'">'.$cust;
           }
       }
       $otheritems .= '</select></td><td>'.
                        '<table border="0" cellspacing="0" cellpadding="0">'.
                        '<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'.
                        ' <option value=""><--'.&mt('Pick course first').'</select></td>'.
                        '<td>&nbsp;&nbsp;</td>'.
                        '<td valign="top">&nbsp;<b>'.$lt{'new'}.'</b><br />'.
                        '<input type="text" name="newsec" value="" />'.
                        '<input type="hidden" name="groups" value="" /></td>'.
                        '</tr></table></td>';
       $otheritems .= <<ENDTIMEENTRY;
   <td><input type=hidden name="start" value='' />
   <a href=
   "javascript:pjump('date_start','Start Date',document.cu.start.value,'start','cu.pres','dateset')">$lt{'ssd'}</a></td>
   <td><input type=hidden name="end" value='' />
   <a href=
   "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>
   ENDTIMEENTRY
       $otheritems .= &Apache::loncommon::end_data_table_row().
                      &Apache::loncommon::end_data_table()."\n";
       return $cb_jscript.$header.$hiddenitems.$otheritems;
   }
   
 #---------------------------------------------- end functions for &phase_two  #---------------------------------------------- end functions for &phase_two
   
 #--------------------------------- functions for &phase_two and &phase_three  #--------------------------------- functions for &phase_two and &phase_three
Removed from v.1.69  
changed lines
  Added in v.1.160

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