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

Diff for /loncom/interface/loncreateuser.pm between versions 1.349 and 1.353

version 1.349, 2010/09/20 00:51:14 version 1.353, 2011/01/05 18:42:53
Line 479  sub courserequest_display { Line 479  sub courserequest_display {
 # =================================================================== Phase one  # =================================================================== Phase one
   
 sub print_username_entry_form {  sub print_username_entry_form {
     my ($r,$context,$response,$srch,$forcenewuser,$crstype) = @_;      my ($r,$context,$response,$srch,$forcenewuser,$crstype,$brcrum) = @_;
     my $defdom=$env{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
     my $formtoset = 'crtuser';      my $formtoset = 'crtuser';
     if (exists($env{'form.startrolename'})) {      if (exists($env{'form.startrolename'})) {
Line 503  sub print_username_entry_form { Line 503  sub print_username_entry_form {
         && (&Apache::lonnet::allowed('mcr','/'))) {          && (&Apache::lonnet::allowed('mcr','/'))) {
         $jscript .= &customrole_javascript();          $jscript .= &customrole_javascript();
     }      }
     my %loaditems = (  
                 'onload' => "javascript:setFormElements(document.$formtoset)",  
                     );  
     my %breadcrumb_text = &singleuser_breadcrumb($crstype);  
     my $start_page =  
  &Apache::loncommon::start_page('User Management',  
        $jscript,{'add_entries' => \%loaditems,});  
     if ($env{'form.action'} eq 'custom') {  
         &Apache::lonhtmlcommon::add_breadcrumb  
           ({href=>"javascript:backPage(document.crtuser)",  
             text=>"Pick custom role",});  
     } else {  
         &Apache::lonhtmlcommon::add_breadcrumb  
           ({href=>"javascript:backPage(document.crtuser)",  
             text=>$breadcrumb_text{'search'},  
             faq=>282,bug=>'Instructor Interface',});  
     }  
     my $helpitem = 'Course_Change_Privileges';      my $helpitem = 'Course_Change_Privileges';
     if ($env{'form.action'} eq 'custom') {      if ($env{'form.action'} eq 'custom') {
         $helpitem = 'Course_Editing_Custom_Roles';          $helpitem = 'Course_Editing_Custom_Roles';
     } elsif ($env{'form.action'} eq 'singlestudent') {      } elsif ($env{'form.action'} eq 'singlestudent') {
         $helpitem = 'Course_Add_Student';          $helpitem = 'Course_Add_Student';
     }      }
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',      my %breadcrumb_text = &singleuser_breadcrumb($crstype);
                                                      $helpitem);      if ($env{'form.action'} eq 'custom') {
           push(@{$brcrum},
                    {href=>"javascript:backPage(document.crtuser)",       
                     text=>"Pick custom role",
                     help => $helpitem,}
                    );
       } else {
           push (@{$brcrum},
                     {href => "javascript:backPage(document.crtuser)",
                      text => $breadcrumb_text{'search'},
                      help => $helpitem,
                      faq  => 282,
                      bug  => 'Instructor Interface',}
                     );
       }
       my %loaditems = (
                   'onload' => "javascript:setFormElements(document.$formtoset)",
                       );
       my $args = {bread_crumbs           => $brcrum,
                   bread_crumbs_component => 'User Management',
                   add_entries            => \%loaditems,};
       $r->print(&Apache::loncommon::start_page('User Management',$jscript,$args));
   
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                     'srst' => 'Search for a user and enroll as a student',                      'srst' => 'Search for a user and enroll as a student',
                     'srme' => 'Search for a user and enroll as a member',                      'srme' => 'Search for a user and enroll as a member',
Line 538  sub print_username_entry_form { Line 543  sub print_username_entry_form {
                     'nr'   => "role name",                      'nr'   => "role name",
                     'cre'  => "Next",                      'cre'  => "Next",
        );         );
     $r->print($start_page."\n".$crumbs);  
     if ($env{'form.action'} eq 'custom') {      if ($env{'form.action'} eq 'custom') {
         if (&Apache::lonnet::allowed('mcr','/')) {          if (&Apache::lonnet::allowed('mcr','/')) {
             my $newroletext = &mt('Define new custom role:');              my $newroletext = &mt('Define new custom role:');
Line 591  sub print_username_entry_form { Line 596  sub print_username_entry_form {
         }          }
         $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype));          $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype));
     }      }
     $r->print(&Apache::loncommon::end_page());  
 }  }
   
 sub customrole_javascript {  sub customrole_javascript {
Line 634  END Line 638  END
   
 sub entry_form {  sub entry_form {
     my ($dom,$srch,$forcenewuser,$context,$responsemsg,$crstype) = @_;      my ($dom,$srch,$forcenewuser,$context,$responsemsg,$crstype) = @_;
     my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom);  
     my ($usertype,$inexact);      my ($usertype,$inexact);
     if (ref($srch) eq 'HASH') {      if (ref($srch) eq 'HASH') {
         if (($srch->{'srchin'} eq 'dom') &&          if (($srch->{'srchin'} eq 'dom') &&
Line 642  sub entry_form { Line 645  sub entry_form {
             ($srch->{'srchtype'} eq 'exact') &&              ($srch->{'srchtype'} eq 'exact') &&
             ($srch->{'srchdomain'} ne '') &&              ($srch->{'srchdomain'} ne '') &&
             ($srch->{'srchterm'} ne '')) {              ($srch->{'srchterm'} ne '')) {
               my (%curr_rules,%got_rules);
             my ($rules,$ruleorder) =              my ($rules,$ruleorder) =
                 &Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username');                  &Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username');
             $usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules);              $usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules,\%curr_rules,\%got_rules);
         } else {          } else {
             $inexact = 1;              $inexact = 1;
         }          }
Line 761  END Line 765  END
   
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_selection_page {  sub print_user_selection_page {
     my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements,$crstype) = @_;      my ($r,$response,$srch,$srch_results,$srcharray,$context,$opener_elements,$crstype,$brcrum) = @_;
     my @fields = ('username','domain','lastname','firstname','permanentemail');      my @fields = ('username','domain','lastname','firstname','permanentemail');
     my $sortby = $env{'form.sortby'};      my $sortby = $env{'form.sortby'};
   
Line 802  ENDSCRIPT Line 806  ENDSCRIPT
     if ($context eq 'requestcrs') {      if ($context eq 'requestcrs') {
         $r->print('<div>');          $r->print('<div>');
     } else {      } else {
         $r->print(&Apache::loncommon::start_page('User Management',$jscript));  
   
         my %breadcrumb_text = &singleuser_breadcrumb($crstype);          my %breadcrumb_text = &singleuser_breadcrumb($crstype);
         &Apache::lonhtmlcommon::add_breadcrumb          my $helpitem;
             ({href=>"javascript:backPage(document.usersrchform,'','')",          if ($env{'form.action'} eq 'singleuser') {
               text=>$breadcrumb_text{'search'},              $helpitem = 'Course_Change_Privileges';
               faq=>282,bug=>'Instructor Interface',},          } elsif ($env{'form.action'} eq 'singlestudent') {
              {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",              $helpitem = 'Course_Add_Student';
               text=>$breadcrumb_text{'userpicked'},          }
               faq=>282,bug=>'Instructor Interface',});          push (@{$brcrum},
                     {href => "javascript:backPage(document.usersrchform,'','')",
                      text => $breadcrumb_text{'search'},
                      faq  => 282,
                      bug  => 'Instructor Interface',},
                     {href => "javascript:backPage(document.usersrchform,'get_user_info','select')",
                      text => $breadcrumb_text{'userpicked'},
                      faq  => 282,
                      bug  => 'Instructor Interface',
                      help => $helpitem}
                     );
           $r->print(&Apache::loncommon::start_page('User Management',$jscript,{bread_crumbs => $brcrum}));
         if ($env{'form.action'} eq 'singleuser') {          if ($env{'form.action'} eq 'singleuser') {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',  
                                                           'Course_Change_Privileges'));  
             $r->print("<b>$lt{'usrch'}</b><br />");              $r->print("<b>$lt{'usrch'}</b><br />");
             $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype));              $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context,undef,$crstype));
             $r->print('<h3>'.$lt{'usel'}.'</h3>');              $r->print('<h3>'.$lt{'usel'}.'</h3>');
         } elsif ($env{'form.action'} eq 'singlestudent') {          } elsif ($env{'form.action'} eq 'singlestudent') {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',  
                                                           'Course_Add_Student'));  
             $r->print($jscript."<b>");              $r->print($jscript."<b>");
             if ($crstype eq 'Community') {              if ($crstype eq 'Community') {
                 $r->print($lt{'memsrch'});                  $r->print($lt{'memsrch'});
Line 897  ENDSCRIPT Line 906  ENDSCRIPT
     if ($context eq 'requestcrs') {      if ($context eq 'requestcrs') {
         $r->print($opener_elements.'</form></div>');          $r->print($opener_elements.'</form></div>');
     } else {      } else {
         $r->print($response.'</form>'.&Apache::loncommon::end_page());          $r->print($response.'</form>');
     }      }
 }  }
   
 sub print_user_query_page {  sub print_user_query_page {
     my ($r,$caller) = @_;      my ($r,$caller,$brcrum) = @_;
 # FIXME - this is for a network-wide name search (similar to catalog search)  # FIXME - this is for a network-wide name search (similar to catalog search)
 # To use frames with similar behavior to catalog/portfolio search.  # To use frames with similar behavior to catalog/portfolio search.
 # To be implemented.   # To be implemented. 
Line 910  sub print_user_query_page { Line 919  sub print_user_query_page {
 }  }
   
 sub print_user_modification_page {  sub print_user_modification_page {
     my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission,$crstype) = @_;      my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission,$crstype,$brcrum) = @_;
     if (($ccuname eq '') || ($ccdomain eq '')) {      if (($ccuname eq '') || ($ccdomain eq '')) {
         my $usermsg = &mt('No username and/or domain provided.');          my $usermsg = &mt('No username and/or domain provided.');
         $env{'form.phase'} = '';          $env{'form.phase'} = '';
  &print_username_entry_form($r,$context,$usermsg,'','',$crstype);   &print_username_entry_form($r,$context,$usermsg,'','',$crstype,$brcrum);
         return;          return;
     }      }
     my ($form,$formname);      my ($form,$formname);
Line 933  sub print_user_modification_page { Line 942  sub print_user_modification_page {
         my ($rules,$ruleorder) =          my ($rules,$ruleorder) =
             &Apache::lonnet::inst_userrules($ccdomain,'username');              &Apache::lonnet::inst_userrules($ccdomain,'username');
             $usertype =              $usertype =
                 &Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules);                  &Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules,
                                                          \%curr_rules,\%got_rules);
         my $cancreate =          my $cancreate =
             &Apache::lonuserutils::can_create_user($ccdomain,$context,              &Apache::lonuserutils::can_create_user($ccdomain,$context,
                                                    $usertype);                                                     $usertype);
Line 955  sub print_user_modification_page { Line 965  sub print_user_modification_page {
                             ,'<a href="'.$helplink.'">','</a>')                              ,'<a href="'.$helplink.'">','</a>')
                         .'</p><br />';                          .'</p><br />';
             $env{'form.phase'} = '';              $env{'form.phase'} = '';
             &print_username_entry_form($r,$context,$response,undef,undef,$crstype);              &print_username_entry_form($r,$context,$response,undef,undef,$crstype,$brcrum);
             return;              return;
         }          }
         $newuser = 1;          $newuser = 1;
Line 979  sub print_user_modification_page { Line 989  sub print_user_modification_page {
                             'username');                              'username');
                     }                      }
                     $env{'form.phase'} = '';                      $env{'form.phase'} = '';
                     &print_username_entry_form($r,$context,$userchkmsg,undef,undef,$crstype);                      &print_username_entry_form($r,$context,$userchkmsg,undef,undef,$crstype,$brcrum);
                     return;                      return;
                 }                  }
             }              }
Line 1000  sub print_user_modification_page { Line 1010  sub print_user_modification_page {
   
     my $js = &validation_javascript($context,$ccdomain,$pjump_def,      my $js = &validation_javascript($context,$ccdomain,$pjump_def,
                                $groupslist,$newuser,$formname,\%loaditem);                                 $groupslist,$newuser,$formname,\%loaditem);
     my $args = {'add_entries' => \%loaditem};    
     if ($env{'form.popup'}) {  
        $args->{'no_nav_bar'} = 1;   
     }  
     my $start_page =   
  &Apache::loncommon::start_page('User Management',$js,$args);  
     my %breadcrumb_text = &singleuser_breadcrumb($crstype);      my %breadcrumb_text = &singleuser_breadcrumb($crstype);
     &Apache::lonhtmlcommon::add_breadcrumb  
      ({href=>"javascript:backPage($form)",  
        text=>$breadcrumb_text{'search'},  
        faq=>282,bug=>'Instructor Interface',});  
   
     if ($env{'form.phase'} eq 'userpicked') {  
         &Apache::lonhtmlcommon::add_breadcrumb  
      ({href=>"javascript:backPage($form,'get_user_info','select')",  
        text=>$breadcrumb_text{'userpicked'},  
        faq=>282,bug=>'Instructor Interface',});  
     }  
     &Apache::lonhtmlcommon::add_breadcrumb  
       ({href=>"javascript:backPage($form,'$env{'form.phase'}','modify')",  
         text=>$breadcrumb_text{'modify'},  
         faq=>282,bug=>'Instructor Interface',});  
     my $helpitem = 'Course_Change_Privileges';      my $helpitem = 'Course_Change_Privileges';
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         $helpitem = 'Course_Add_Student';          $helpitem = 'Course_Add_Student';
     }      }
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',      push (@{$brcrum},
                                                      $helpitem);          {href => "javascript:backPage($form)",
            text => $breadcrumb_text{'search'},
            faq  => 282,
            bug  => 'Instructor Interface',});
       if ($env{'form.phase'} eq 'userpicked') {
          push(@{$brcrum},
                 {href => "javascript:backPage($form,'get_user_info','select')",
                  text => $breadcrumb_text{'userpicked'},
                  faq  => 282,
                  bug  => 'Instructor Interface',});
       }
       push(@{$brcrum},
               {href => "javascript:backPage($form,'$env{'form.phase'}','modify')",
                text => $breadcrumb_text{'modify'},
                faq  => 282,
                bug  => 'Instructor Interface',
                help => $helpitem});
       my $args = {'add_entries'           => \%loaditem,
                   'bread_crumbs'          => $brcrum,
                   'bread_crumbs_component' => 'User Management'};
       if ($env{'form.popup'}) {
           $args->{'no_nav_bar'} = 1;
       }
       my $start_page =
           &Apache::loncommon::start_page('User Management',$js,$args);
   
     my $forminfo =<<"ENDFORMINFO";      my $forminfo =<<"ENDFORMINFO";
 <form action="/adm/createuser" method="post" name="$formname">  <form action="/adm/createuser" method="post" name="$formname">
Line 1076  ENDFORMINFO Line 1089  ENDFORMINFO
         );          );
  $r->print(<<ENDTITLE);   $r->print(<<ENDTITLE);
 $start_page  $start_page
 $crumbs  
 $response  $response
 $forminfo  $forminfo
 <script type="text/javascript" language="Javascript">  <script type="text/javascript" language="Javascript">
Line 1190  ENDAUTH Line 1202  ENDAUTH
        );         );
  $r->print(<<ENDCHANGEUSER);   $r->print(<<ENDCHANGEUSER);
 $start_page  $start_page
 $crumbs  
 $forminfo  $forminfo
 <h2>  <h2>
 ENDCHANGEUSER  ENDCHANGEUSER
Line 1336  ENDNOTOOLSPRIV Line 1347  ENDNOTOOLSPRIV
     }      }
     $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));      $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));
     $r->print('<input type="hidden" name="currstate" value="" />');      $r->print('<input type="hidden" name="currstate" value="" />');
     $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />');      $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" /></form>');
     $r->print("</form>".&Apache::loncommon::end_page());  
     return;      return;
 }  }
   
Line 1461  sub display_existing_roles { Line 1471  sub display_existing_roles {
             $rolesdump{$newkey} = $newvalue;              $rolesdump{$newkey} = $newvalue;
         }          }
     } else {      } else {
         %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);          my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1});
           %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname,'.',undef,$extra);
     }      }
     # Build up table of user roles to allow revocation and re-enabling of roles.      # Build up table of user roles to allow revocation and re-enabling of roles.
     my ($tmp) = keys(%rolesdump);      my ($tmp) = keys(%rolesdump);
Line 2179  sub get_inststatuses { Line 2190  sub get_inststatuses {
   
 # ================================================================= Phase Three  # ================================================================= Phase Three
 sub update_user_data {  sub update_user_data {
     my ($r,$context,$crstype) = @_;       my ($r,$context,$crstype,$brcrum) = @_; 
     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
Line 2204  sub update_user_data { Line 2215  sub update_user_data {
                   '// ]]>'."\n".                    '// ]]>'."\n".
                   '</script>'."\n";                    '</script>'."\n";
     my %breadcrumb_text = &singleuser_breadcrumb($crstype);      my %breadcrumb_text = &singleuser_breadcrumb($crstype);
     my $args;      push (@{$brcrum},
     if ($env{'form.popup'}) {               {href => "javascript:backPage(document.userupdate)",
         $args->{'no_nav_bar'} = 1;                text => $breadcrumb_text{'search'},
     } else {                faq  => 282,
         $args = undef;                bug  => 'Instructor Interface',}
     }               );
     $r->print(&Apache::loncommon::start_page($title,$jscript,$args));  
     &Apache::lonhtmlcommon::add_breadcrumb  
        ({href=>"javascript:backPage(document.userupdate)",  
          text=>$breadcrumb_text{'search'},  
          faq=>282,bug=>'Instructor Interface',});  
     if ($env{'form.prevphase'} eq 'userpicked') {      if ($env{'form.prevphase'} eq 'userpicked') {
         &Apache::lonhtmlcommon::add_breadcrumb          push(@{$brcrum},
            ({href=>"javascript:backPage(document.userupdate,'get_user_info','select')",                 {href => "javascript:backPage(document.userupdate,'get_user_info','select')",
              text=>$breadcrumb_text{'userpicked'},                  text => $breadcrumb_text{'userpicked'},
              faq=>282,bug=>'Instructor Interface',});                  faq  => 282,
     }                  bug  => 'Instructor Interface',});
     &Apache::lonhtmlcommon::add_breadcrumb      }
        ({href=>"javascript:backPage(document.userupdate,'$env{'form.prevphase'}','modify')",  
          text=>$breadcrumb_text{'modify'},  
          faq=>282,bug=>'Instructor Interface',},  
         {href=>"/adm/createuser",  
          text=>"Result",  
          faq=>282,bug=>'Instructor Interface',});  
     my $helpitem = 'Course_Change_Privileges';      my $helpitem = 'Course_Change_Privileges';
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         $helpitem = 'Course_Add_Student';          $helpitem = 'Course_Add_Student';
     }      }
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',      push(@{$brcrum}, 
                                                  $helpitem));              {href => "javascript:backPage(document.userupdate,'$env{'form.prevphase'}','modify')",
                text => $breadcrumb_text{'modify'},
                faq  => 282,
                bug  => 'Instructor Interface',},
               {href => "/adm/createuser",
                text => "Result",
                faq  => 282,
                bug  => 'Instructor Interface',
                help => $helpitem});
       my $args = {bread_crumbs          => $brcrum,
                   bread_crumbs_component => 'User Management'};
       if ($env{'form.popup'}) {
           $args->{'no_nav_bar'} = 1;
       }
       $r->print(&Apache::loncommon::start_page($title,$jscript,$args));
     $r->print(&update_result_form($uhome));      $r->print(&update_result_form($uhome));
     # Check Inputs      # Check Inputs
     if (! $env{'form.ccuname'} ) {      if (! $env{'form.ccuname'} ) {
Line 2883  sub update_user_data { Line 2897  sub update_user_data {
                      .&mt('Create/Modify Another User').'</a></p>');                       .&mt('Create/Modify Another User').'</a></p>');
         }          }
     }      }
     $r->print(&Apache::loncommon::end_page());  
 }  }
   
 sub display_userinfo {  sub display_userinfo {
Line 3623  sub build_roles { Line 3636  sub build_roles {
 # ========================================================== Custom Role Editor  # ========================================================== Custom Role Editor
   
 sub custom_role_editor {  sub custom_role_editor {
     my ($r) = @_;      my ($r,$brcrum) = @_;
     my $action = $env{'form.customroleaction'};      my $action = $env{'form.customroleaction'};
     my $rolename;       my $rolename; 
     if ($action eq 'new') {      if ($action eq 'new') {
Line 3632  sub custom_role_editor { Line 3645  sub custom_role_editor {
         $rolename=$env{'form.rolename'};          $rolename=$env{'form.rolename'};
     }      }
   
     $rolename=~s/[^A-Za-z0-9]//gs;  
     if (!$rolename || $env{'form.phase'} eq 'pickrole') {  
  &print_username_entry_form($r);  
         return;  
     }  
     my ($crstype,$context);      my ($crstype,$context);
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $crstype = &Apache::loncommon::course_type();          $crstype = &Apache::loncommon::course_type();
Line 3645  sub custom_role_editor { Line 3653  sub custom_role_editor {
         $context = 'domain';          $context = 'domain';
         $crstype = $env{'form.templatecrstype'};          $crstype = $env{'form.templatecrstype'};
     }      }
   
       $rolename=~s/[^A-Za-z0-9]//gs;
       if (!$rolename || $env{'form.phase'} eq 'pickrole') {
    &print_username_entry_form($r,undef,undef,undef,undef,$crstype,$brcrum);
           return;
       }
   
 # ------------------------------------------------------- What can be assigned?  # ------------------------------------------------------- What can be assigned?
     my %full=();      my %full=();
     my %courselevel=();      my %courselevel=();
Line 3752  sub custom_role_editor { Line 3767  sub custom_role_editor {
     $head_script .= "\n".$jsback."\n"      $head_script .= "\n".$jsback."\n"
                    .'// ]]>'."\n"                     .'// ]]>'."\n"
                    .'</script>'."\n";                     .'</script>'."\n";
     $r->print(&Apache::loncommon::start_page('Custom Role Editor',$head_script));      push (@{$brcrum},
    &Apache::lonhtmlcommon::add_breadcrumb                {href => "javascript:backPage(document.form1,'pickrole','')",
      ({href=>"javascript:backPage(document.form1,'pickrole','')",                 text => "Pick custom role",
        text=>"Pick custom role",                 faq  => 282,bug=>'Instructor Interface',},
        faq=>282,bug=>'Instructor Interface',},                {href => "javascript:backPage(document.form1,'','')",
       {href=>"javascript:backPage(document.form1,'','')",                 text => "Edit custom role",
          text=>"Edit custom role",                 faq  => 282,
          faq=>282,bug=>'Instructor Interface',});                 bug  => 'Instructor Interface',
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',                 help => 'Course_Editing_Custom_Roles'}
                                                   'Course_Editing_Custom_Roles'));                );
       my $args = { bread_crumbs          => $brcrum,
     $r->print($body_top);                   bread_crumbs_component => 'User Management'};
    
       $r->print(&Apache::loncommon::start_page('Custom Role Editor',
                                                $head_script,$args).
                 $body_top);
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
     'prv'  => "Privilege",      'prv'  => "Privilege",
     'crl'  => "Course Level",      'crl'  => "Course Level",
                     'dml'  => "Domain Level",                      'dml'  => "Domain Level",
                     'ssl'  => "System Level");                      'ssl'  => "System Level");
   
   
     $r->print('<div class="LC_left_float">'      $r->print('<div class="LC_left_float">'
              .'<form action=""><fieldset>'               .'<form action=""><fieldset>'
              .'<legend>'.&mt('Select a Template').'</legend>'               .'<legend>'.&mt('Select a Template').'</legend>'
Line 3821  ENDCCF Line 3839  ENDCCF
    '<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.     '<input type="hidden" name="startrolename" value="'.$env{'form.rolename'}.
    '" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".        '" />'."\n".'<input type="hidden" name="currstate" value="" />'."\n".   
    '<input type="reset" value="'.&mt("Reset").'" />'."\n".     '<input type="reset" value="'.&mt("Reset").'" />'."\n".
    '<input type="submit" value="'.&mt('Save').'" /></form>'.     '<input type="submit" value="'.&mt('Save').'" /></form>');
       &Apache::loncommon::end_page());  
 }  }
 # --------------------------------------------------------  # --------------------------------------------------------
 sub make_script_template {  sub make_script_template {
Line 3900  sub make_button_code { Line 3917  sub make_button_code {
 }  }
 # ---------------------------------------------------------- Call to definerole  # ---------------------------------------------------------- Call to definerole
 sub set_custom_role {  sub set_custom_role {
     my ($r,$context) = @_;      my ($r,$context,$brcrum) = @_;
     my $rolename=$env{'form.rolename'};      my $rolename=$env{'form.rolename'};
     $rolename=~s/[^A-Za-z0-9]//gs;      $rolename=~s/[^A-Za-z0-9]//gs;
     if (!$rolename) {      if (!$rolename) {
  &custom_role_editor($r);   &custom_role_editor($r,$brcrum);
         return;          return;
     }      }
     my ($jsback,$elements) = &crumb_utilities();      my ($jsback,$elements) = &crumb_utilities();
Line 3913  sub set_custom_role { Line 3930  sub set_custom_role {
                  .$jsback."\n"                   .$jsback."\n"
                  .'// ]]>'."\n"                   .'// ]]>'."\n"
                  .'</script>'."\n";                   .'</script>'."\n";
       push(@{$brcrum},
     $r->print(&Apache::loncommon::start_page('Save Custom Role'),$jscript);          {href => "javascript:backPage(document.customresult,'pickrole','')",
     &Apache::lonhtmlcommon::add_breadcrumb           text => "Pick custom role",
         ({href=>"javascript:backPage(document.customresult,'pickrole','')",           faq  => 282,
           text=>"Pick custom role",           bug  => 'Instructor Interface',},
           faq=>282,bug=>'Instructor Interface',},          {href => "javascript:backPage(document.customresult,'selected_custom_edit','')",
          {href=>"javascript:backPage(document.customresult,'selected_custom_edit','')",           text => "Edit custom role",
           text=>"Edit custom role",           faq  => 282,
           faq=>282,bug=>'Instructor Interface',},           bug  => 'Instructor Interface',},
          {href=>"javascript:backPage(document.customresult,'set_custom_roles','')",          {href => "javascript:backPage(document.customresult,'set_custom_roles','')",
           text=>"Result",           text => "Result",
           faq=>282,bug=>'Instructor Interface',});           faq  => 282,
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',           bug  => 'Instructor Interface',
                                                   'Course_Editing_Custom_Roles'));           help => 'Course_Editing_Custom_Roles'},
           );
       my $args = { bread_crumbs           => $brcrum,
                    bread_crumbs_component => 'User Management'}; 
       $r->print(&Apache::loncommon::start_page('Save Custom Role',$jscript,$args));
   
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
Line 3983  sub set_custom_role { Line 4004  sub set_custom_role {
     }      }
     $r->print('<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'.&mt('Create or edit another custom role').'</a></p><form name="customresult" method="post">');      $r->print('<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'.&mt('Create or edit another custom role').'</a></p><form name="customresult" method="post">');
     $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');      $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');
     $r->print(&Apache::loncommon::end_page());  
 }  }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
Line 4007  sub handler { Line 4027  sub handler {
         ['action','state','callingform','roletype','showrole','bulkaction','popup','phase',          ['action','state','callingform','roletype','showrole','bulkaction','popup','phase',
          'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);           'username','domain','srchterm','srchdomain','srchin','srchby','srchtype']);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
       my $args;
       my $brcrum = [];
       my $bread_crumbs_component = 'User Management';
     if ($env{'form.action'} ne 'dateselect') {      if ($env{'form.action'} ne 'dateselect') {
         &Apache::lonhtmlcommon::add_breadcrumb          $brcrum = [{href=>"/adm/createuser",
             ({href=>"/adm/createuser",                      text=>"User Management",
               text=>"User Management",                      help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'}
               help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'});                    ];
     }      }
     #SD Following files not added to help, because the corresponding .tex-files seem to      #SD Following files not added to help, because the corresponding .tex-files seem to
     #be missing: Course_Approve_Selfenroll,Course_User_Logs,      #be missing: Course_Approve_Selfenroll,Course_User_Logs,
Line 4029  sub handler { Line 4052  sub handler {
   
     # Main switch on form.action and form.state, as appropriate      # Main switch on form.action and form.state, as appropriate
     if (! exists($env{'form.action'})) {      if (! exists($env{'form.action'})) {
         $r->print(&header());          $args = {bread_crumbs => $brcrum,
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));                   bread_crumbs_component => $bread_crumbs_component}; 
           $r->print(&header(undef,$args));
         $r->print(&print_main_menu($permission,$context,$crstype));          $r->print(&print_main_menu($permission,$context,$crstype));
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {      } elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) {
         $r->print(&header());          push(@{$brcrum},
         &Apache::lonhtmlcommon::add_breadcrumb                { href => '/adm/createuser?action=upload&state=',
             ({href=>'/adm/createuser?action=upload&state=',                  text => 'Upload Users List',
               text=>"Upload Users List"});                  help => 'Course_Create_Class_List',
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',                });
                                                    'Course_Create_Class_List'));          $bread_crumbs_component = 'Upload Users List';
           $args = {bread_crumbs           => $brcrum,
                    bread_crumbs_component => $bread_crumbs_component};
           $r->print(&header(undef,$args));
         $r->print('<form name="studentform" method="post" '.          $r->print('<form name="studentform" method="post" '.
                   'enctype="multipart/form-data" '.                    'enctype="multipart/form-data" '.
                   ' action="/adm/createuser">'."\n");                    ' action="/adm/createuser">'."\n");
Line 4055  sub handler { Line 4081  sub handler {
         } else {          } else {
             &Apache::lonuserutils::print_first_users_upload_form($r,$context);              &Apache::lonuserutils::print_first_users_upload_form($r,$context);
         }          }
         $r->print('</form>'.&Apache::loncommon::end_page());  
     } elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'}      } elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'}
              eq 'singlestudent')) && ($permission->{'cusr'})) {               eq 'singlestudent')) && ($permission->{'cusr'})) {
         my $phase = $env{'form.phase'};          my $phase = $env{'form.phase'};
Line 4072  sub handler { Line 4097  sub handler {
                 if ($env{'form.srchterm'} !~ /^$match_username$/) {                  if ($env{'form.srchterm'} !~ /^$match_username$/) {
                     my $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');                      my $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');
                     $env{'form.phase'} = '';                      $env{'form.phase'} = '';
                     &print_username_entry_form($r,$context,$response,$srch,undef,$crstype);                      &print_username_entry_form($r,$context,$response,$srch,undef,$crstype,$brcrum);
                 } else {                  } else {
                     my $ccuname =&LONCAPA::clean_username($srch->{'srchterm'});                      my $ccuname =&LONCAPA::clean_username($srch->{'srchterm'});
                     my $ccdomain=&LONCAPA::clean_domain($srch->{'srchdomain'});                      my $ccdomain=&LONCAPA::clean_domain($srch->{'srchdomain'});
                     &print_user_modification_page($r,$ccuname,$ccdomain,                      &print_user_modification_page($r,$ccuname,$ccdomain,
                                                   $srch,$response,$context,                                                    $srch,$response,$context,
                                                   $permission,$crstype);                                                    $permission,$crstype,$brcrum);
                 }                  }
             } elsif ($env{'form.phase'} eq 'get_user_info') {              } elsif ($env{'form.phase'} eq 'get_user_info') {
                 my ($currstate,$response,$forcenewuser,$results) =                   my ($currstate,$response,$forcenewuser,$results) = 
Line 4088  sub handler { Line 4113  sub handler {
                 }                  }
                 if ($currstate eq 'select') {                  if ($currstate eq 'select') {
                     &print_user_selection_page($r,$response,$srch,$results,                      &print_user_selection_page($r,$response,$srch,$results,
                                                \@search,$context,undef,$crstype);                                                 \@search,$context,undef,$crstype,
                                                  $brcrum);
                 } elsif ($currstate eq 'modify') {                  } elsif ($currstate eq 'modify') {
                     my ($ccuname,$ccdomain);                      my ($ccuname,$ccdomain);
                     if (($srch->{'srchby'} eq 'uname') &&                       if (($srch->{'srchby'} eq 'uname') && 
Line 4106  sub handler { Line 4132  sub handler {
                     }                      }
                     &print_user_modification_page($r,$ccuname,$ccdomain,                      &print_user_modification_page($r,$ccuname,$ccdomain,
                                                   $srch,$response,$context,                                                    $srch,$response,$context,
                                                   $permission,$crstype);                                                    $permission,$crstype,$brcrum);
                 } elsif ($currstate eq 'query') {                  } elsif ($currstate eq 'query') {
                     &print_user_query_page($r,'createuser');                      &print_user_query_page($r,'createuser',$brcrum);
                 } else {                  } else {
                     $env{'form.phase'} = '';                      $env{'form.phase'} = '';
                     &print_username_entry_form($r,$context,$response,$srch,                      &print_username_entry_form($r,$context,$response,$srch,
                                                $forcenewuser,$crstype);                                                 $forcenewuser,$crstype,$brcrum);
                 }                  }
             } elsif ($env{'form.phase'} eq 'userpicked') {              } elsif ($env{'form.phase'} eq 'userpicked') {
                 my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});                  my $ccuname = &LONCAPA::clean_username($env{'form.seluname'});
                 my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});                  my $ccdomain = &LONCAPA::clean_domain($env{'form.seludom'});
                 &print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',                  &print_user_modification_page($r,$ccuname,$ccdomain,$srch,'',
                                               $context,$permission,$crstype);                                                $context,$permission,$crstype,
                                                 $brcrum);
             }              }
         } elsif ($env{'form.phase'} eq 'update_user_data') {          } elsif ($env{'form.phase'} eq 'update_user_data') {
             &update_user_data($r,$context,$crstype);              &update_user_data($r,$context,$crstype,$brcrum);
         } else {          } else {
             &print_username_entry_form($r,$context,undef,$srch,undef,$crstype);              &print_username_entry_form($r,$context,undef,$srch,undef,$crstype,
                                          $brcrum);
         }          }
     } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {      } elsif ($env{'form.action'} eq 'custom' && $permission->{'custom'}) {
         if ($env{'form.phase'} eq 'set_custom_roles') {          if ($env{'form.phase'} eq 'set_custom_roles') {
             &set_custom_role($r,$context);              &set_custom_role($r,$context,$brcrum);
         } else {          } else {
             &custom_role_editor($r);              &custom_role_editor($r,$brcrum);
         }          }
     } elsif (($env{'form.action'} eq 'listusers') &&       } elsif (($env{'form.action'} eq 'listusers') && 
              ($permission->{'view'} || $permission->{'cusr'})) {               ($permission->{'view'} || $permission->{'cusr'})) {
         if ($env{'form.phase'} eq 'bulkchange') {          if ($env{'form.phase'} eq 'bulkchange') {
             &Apache::lonhtmlcommon::add_breadcrumb              push(@{$brcrum},
                 ({href=>'/adm/createuser?action=listusers',                      {href => '/adm/createuser?action=listusers',
                   text=>"List Users"},                       text => "List Users"},
                 {href=>"/adm/createuser",                      {href => "/adm/createuser",
                   text=>"Result"});                       text => "Result",
                        help => 'Course_View_Class_List'});
               $bread_crumbs_component = 'Update Users';
               $args = {bread_crumbs           => $brcrum,
                        bread_crumbs_component => $bread_crumbs_component};
               $r->print(&header(undef,$args));
             my $setting = $env{'form.roletype'};              my $setting = $env{'form.roletype'};
             my $choice = $env{'form.bulkaction'};              my $choice = $env{'form.bulkaction'};
             $r->print(&header());  
             $r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users",  
                                                           'Course_View_Class_List'));  
             if ($permission->{'cusr'}) {              if ($permission->{'cusr'}) {
                 &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice,$crstype);                  &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice,$crstype);
                 $r->print(&Apache::loncommon::end_page());  
             } else {              } else {
                 $r->print(&mt('You are not authorized to make bulk changes to user roles'));                  $r->print(&mt('You are not authorized to make bulk changes to user roles'));
                 $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');                  $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');
                 $r->print(&Apache::loncommon::end_page());  
             }              }
         } else {          } else {
             &Apache::lonhtmlcommon::add_breadcrumb              push(@{$brcrum},
                 ({href=>'/adm/createuser?action=listusers',                      {href => '/adm/createuser?action=listusers',
                   text=>"List Users"});                       text => "List Users",
                        help => 'Course_View_Class_List'});
               $bread_crumbs_component = 'List Users';
               $args = {bread_crumbs           => $brcrum,
                        bread_crumbs_component => $bread_crumbs_component};
             my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);              my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);
             my $formname = 'studentform';              my $formname = 'studentform';
             if (($context eq 'domain') && (($env{'form.roletype'} eq 'course') ||              if (($context eq 'domain') && (($env{'form.roletype'} eq 'course') ||
Line 4179  sub handler { Line 4211  sub handler {
                 my $loadcode =                   my $loadcode = 
                     &Apache::lonuserutils::course_selector_loadcode($formname);                      &Apache::lonuserutils::course_selector_loadcode($formname);
                 if ($loadcode ne '') {                  if ($loadcode ne '') {
                     $r->print(&header($js,{'onload' => $loadcode,}));                      $args->{add_entries} = {onload => $loadcode};
                 } else {  
                     $r->print(&header($js));  
                 }                  }
                   $r->print(&header($js,$args));
             } else {              } else {
                 $r->print(&header(&add_script(&verify_user_display())));                  $r->print(&header(&add_script(&verify_user_display()),$args));
             }              }
             $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users",  
                                                           'Course_View_Class_List'));  
             &Apache::lonuserutils::print_userlist($r,undef,$permission,$context,              &Apache::lonuserutils::print_userlist($r,undef,$permission,$context,
                          $formname,$totcodes,$codetitles,$idlist,$idlist_titles);                           $formname,$totcodes,$codetitles,$idlist,$idlist_titles);
             $r->print(&Apache::loncommon::end_page());  
         }          }
     } elsif ($env{'form.action'} eq 'drop' && $permission->{'cusr'}) {      } elsif ($env{'form.action'} eq 'drop' && $permission->{'cusr'}) {
         $r->print(&header());  
         my $brtext;          my $brtext;
         if ($crstype eq 'Community') {          if ($crstype eq 'Community') {
             $brtext = 'Drop Members';              $brtext = 'Drop Members';
         } else {          } else {
             $brtext = 'Drop Students';              $brtext = 'Drop Students';
         }          }
         &Apache::lonhtmlcommon::add_breadcrumb          push(@{$brcrum},
             ({href=>'/adm/createuser?action=drop',                  {href => '/adm/createuser?action=drop',
               text=>$brtext});                   text => $brtext,
                    help => 'Course_Drop_Student'});
           if ($env{'form.state'} eq 'done') {
               push(@{$brcrum},
                        {href=>'/adm/createuser?action=drop',
                         text=>"Result"});
           }
           $bread_crumbs_component = $brtext;
           $args = {bread_crumbs           => $brcrum,
                    bread_crumbs_component => $bread_crumbs_component}; 
           $r->print(&header(undef,$args));
         if (!exists($env{'form.state'})) {          if (!exists($env{'form.state'})) {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs($brtext,  
                                                           'Course_Drop_Student'));  
   
             &Apache::lonuserutils::print_drop_menu($r,$context,$permission,$crstype);              &Apache::lonuserutils::print_drop_menu($r,$context,$permission,$crstype);
         } elsif ($env{'form.state'} eq 'done') {          } elsif ($env{'form.state'} eq 'done') {
             &Apache::lonhtmlcommon::add_breadcrumb  
             ({href=>'/adm/createuser?action=drop',  
               text=>"Result"});  
             $r->print(&Apache::lonhtmlcommon::breadcrumbs($brtext,  
                                                           'Course_Drop_Student'));  
             &Apache::lonuserutils::update_user_list($r,$context,undef,              &Apache::lonuserutils::update_user_list($r,$context,undef,
                                                     $env{'form.action'});                                                      $env{'form.action'});
         }          }
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'dateselect') {      } elsif ($env{'form.action'} eq 'dateselect') {
         if ($permission->{'cusr'}) {          if ($permission->{'cusr'}) {
             $r->print(&header(undef,undef,{'no_nav_bar' => 1}).              $r->print(&header(undef,{'no_nav_bar' => 1}).
                       &Apache::lonuserutils::date_section_selector($context,                        &Apache::lonuserutils::date_section_selector($context,
                                                                    $permission,$crstype).                                                                     $permission,$crstype));
                       &Apache::loncommon::end_page());  
         } else {          } else {
             $r->print(&header().              $r->print(&header(undef,{'no_nav_bar' => 1}).
                      '<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'.                        '<span class="LC_error">'.&mt('You do not have permission to modify dates or sections for users').'</span>'); 
                      &Apache::loncommon::end_page());  
         }          }
     } elsif ($env{'form.action'} eq 'selfenroll') {      } elsif ($env{'form.action'} eq 'selfenroll') {
         $r->print(&header());          push(@{$brcrum},
         &Apache::lonhtmlcommon::add_breadcrumb                  {href => '/adm/createuser?action=selfenroll',
             ({href=>'/adm/createuser?action=selfenroll',                   text => "Configure Self-enrollment",
               text=>"Configure Self-enrollment"});                   help => 'Course_Self_Enrollment'});
         if (!exists($env{'form.state'})) {          if (!exists($env{'form.state'})) {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Configure Self-enrollment',              $args = { bread_crumbs           => $brcrum,
                                                           'Course_Self_Enrollment'));                        bread_crumbs_component => 'Configure Self-enrollment'};
               $r->print(&header(undef,$args));
             $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");              $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");
             &print_selfenroll_menu($r,$context,$permission);              &print_selfenroll_menu($r,$context,$permission);
         } elsif ($env{'form.state'} eq 'done') {          } elsif ($env{'form.state'} eq 'done') {
             &Apache::lonhtmlcommon::add_breadcrumb              push (@{$brcrum},
             ({href=>'/adm/createuser?action=selfenroll',                        {href=>'/adm/createuser?action=selfenroll',
               text=>"Result"});                         text=>"Result"});
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Self-enrollment result',              $args = { bread_crumbs           => $brcrum,
                                                           'Course_Self_Enrollment'));                        bread_crumbs_component => 'Self-enrollment result'};
               $r->print(&header(undef,$args));
             $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");              $r->print('<h3>'.&mt('Self-enrollment with a student role').'</h3>'."\n");
             &update_selfenroll_config($r,$context,$permission);              &update_selfenroll_config($r,$context,$permission);
         }          }
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'selfenrollqueue') {      } elsif ($env{'form.action'} eq 'selfenrollqueue') {
         $r->print(&header());          push(@{$brcrum},
         &Apache::lonhtmlcommon::add_breadcrumb                   {href => '/adm/createuser?action=selfenrollqueue',
             ({href=>'/adm/createuser?action=selfenrollqueue',                    text => 'Enrollment requests',
               text=>"Enrollment requests"});                    help => 'Course_Self_Enrollment'});
           $bread_crumbs_component = 'Enrollment requests';
           if ($env{'form.state'} eq 'done') {
               push(@{$brcrum},
                        {href => '/adm/createuser?action=selfenrollqueue',
                         text => 'Result',
                         help => 'Course_Self_Enrollment'});
               $bread_crumbs_component = 'Enrollment result';
           }
           $args = { bread_crumbs           => $brcrum,
                     bread_crumbs_component => $bread_crumbs_component};
           $r->print(&header(undef,$args));
         my $cid = $env{'request.course.id'};          my $cid = $env{'request.course.id'};
         my $cdom = $env{'course.'.$cid.'.domain'};          my $cdom = $env{'course.'.$cid.'.domain'};
         my $cnum = $env{'course.'.$cid.'.num'};          my $cnum = $env{'course.'.$cid.'.num'};
         my $coursedesc = $env{'course.'.$cid.'.description'};          my $coursedesc = $env{'course.'.$cid.'.description'};
         if (!exists($env{'form.state'})) {          if (!exists($env{'form.state'})) {
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment requests',  
                                                           'Course_SelfEnrollment_Approval'));  
             $r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");              $r->print('<h3>'.&mt('Pending enrollment requests').'</h3>'."\n");
             $r->print(&Apache::loncoursequeueadmin::display_queued_requests($context,              $r->print(&Apache::loncoursequeueadmin::display_queued_requests($context,
                                                                        $cdom,$cnum));                                                                         $cdom,$cnum));
         } elsif ($env{'form.state'} eq 'done') {          } elsif ($env{'form.state'} eq 'done') {
             &Apache::lonhtmlcommon::add_breadcrumb  
             ({href=>'/adm/createuser?action=selfenrollqueue',  
               text=>"Result"});  
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Enrollment result',  
                                                           'Course_Self_Enrollment'));  
             $r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");              $r->print('<h3>'.&mt('Enrollment request processing').'</h3>'."\n");
             $r->print(&Apache::loncoursequeueadmin::update_request_queue($context,              $r->print(&Apache::loncoursequeueadmin::update_request_queue($context,
                           $cdom,$cnum,$coursedesc));                            $cdom,$cnum,$coursedesc));
         }          }
         $r->print(&Apache::loncommon::end_page());  
     } elsif ($env{'form.action'} eq 'changelogs') {      } elsif ($env{'form.action'} eq 'changelogs') {
         $r->print(&header());          push (@{$brcrum},
         &Apache::lonhtmlcommon::add_breadcrumb                   {href => '/adm/createuser?action=changelogs',
             ({href=>'/adm/createuser?action=changelogs',                    text => 'User Management Logs',
               text=>"User Management Logs"});                    help => 'Course_User_Logs'});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Changes',          $bread_crumbs_component = 'User Changes';
                                                       'Course_User_Logs'));          $args = { bread_crumbs           => $brcrum,
             &print_userchangelogs_display($r,$context,$permission);                    bread_crumbs_component => $bread_crumbs_component};
         $r->print(&Apache::loncommon::end_page());                  $r->print(&header(undef,$args));
     } else {          &print_userchangelogs_display($r,$context,$permission);
         $r->print(&header());      } else {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));          $bread_crumbs_component = 'User Management';
           $args = { bread_crumbs           => $brcrum,
                     bread_crumbs_component => $bread_crumbs_component};
           $r->print(&header(undef,$args));
         $r->print(&print_main_menu($permission,$context,$crstype));          $r->print(&print_main_menu($permission,$context,$crstype));
         $r->print(&Apache::loncommon::end_page());  
     }      }
       $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   
 sub header {  sub header {
     my ($jscript,$loaditems,$args) = @_;      my ($jscript,$args) = @_;
     my $start_page;      my $start_page;
     if (ref($loaditems) eq 'HASH') {      if (ref($args) eq 'HASH') {
         $start_page=&Apache::loncommon::start_page('User Management',$jscript,{'add_entries' => $loaditems});  
     } else {  
         $start_page=&Apache::loncommon::start_page('User Management',$jscript,$args);          $start_page=&Apache::loncommon::start_page('User Management',$jscript,$args);
       } else {
           $start_page=&Apache::loncommon::start_page('User Management',$jscript);
     }      }
     return $start_page;      return $start_page;
 }  }
Removed from v.1.349  
changed lines
  Added in v.1.353

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