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

Diff for /loncom/interface/loncreateuser.pm between versions 1.221 and 1.224

version 1.221, 2007/12/21 20:34:26 version 1.224, 2007/12/24 16:00:13
Line 233  sub print_username_entry_form { Line 233  sub print_username_entry_form {
             text=>"Single user search",              text=>"Single user search",
             faq=>282,bug=>'Instructor Interface',});              faq=>282,bug=>'Instructor Interface',});
     }      }
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');      my $helpitem = 'Course_Change_Privileges';
       if ($env{'form.action'} eq 'custom') {
           $helpitem = 'Course_Editing_Custom_Roles';
       } elsif ($env{'form.action'} eq 'singlestudent') {
           $helpitem = 'Course_Add_Student';
       }
       my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                        $helpitem);
     my %existingroles=&Apache::lonuserutils::my_custom_roles();      my %existingroles=&Apache::lonuserutils::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));
Line 249  sub print_username_entry_form { Line 256  sub print_username_entry_form {
                     'enrl' => "to enroll one student",                      'enrl' => "to enroll one student",
        );         );
     my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface');      my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface');
     my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges');  
     my $helpsist=&Apache::loncommon::help_open_topic('Course_Add_Student');  
     my $helpecpr=&Apache::loncommon::help_open_topic('Course_Editing_Custom_Roles');  
     my $sellink=&Apache::loncommon::selectstudent_link('crtuser','srchterm','srchdomain');      my $sellink=&Apache::loncommon::selectstudent_link('crtuser','srchterm','srchdomain');
     if ($sellink) {      if ($sellink) {
         $sellink = "$lt{'or'} ".$sellink;          $sellink = "$lt{'or'} ".$sellink;
Line 263  sub print_username_entry_form { Line 267  sub print_username_entry_form {
 <form action="/adm/createuser" method="post" name="docustom">  <form action="/adm/createuser" method="post" name="docustom">
 <input type="hidden" name="action" value="$env{'form.action'}" />  <input type="hidden" name="action" value="$env{'form.action'}" />
 <input type="hidden" name="phase" value="selected_custom_edit" />  <input type="hidden" name="phase" value="selected_custom_edit" />
 <h3>$lt{'ecrp'}$helpecpr</h3>  <h3>$lt{'ecrp'}</h3>
 $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />  $lt{'nr'}: $choice <input type="text" size="15" name="newrolename" /><br />
 <input name="customeditor" type="submit" value="$lt{'cre'}" />  <input name="customeditor" type="submit" value="$lt{'cre'}" />
 </form>  </form>
 ENDCUSTOM  ENDCUSTOM
         }          }
     } else {      } else {
         my $actiontext = $lt{'mod'}.$helpsiur;          my $actiontext = $lt{'mod'};
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             $actiontext = $lt{'enrl'}.$helpsist;              $actiontext = $lt{'enrl'};
         }          }
         $r->print("          $r->print("
 <h3>$lt{'srch'} $sellink $actiontext</h3>");  <h3>$lt{'srch'} $sellink $actiontext</h3>");
Line 420  ENDSCRIPT Line 424  ENDSCRIPT
              {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",               {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",
               text=>"Select User",                text=>"Select User",
               faq=>282,bug=>'Instructor Interface',});                faq=>282,bug=>'Instructor Interface',});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));          $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));          $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));
         $r->print('<h3>'.$lt{'usel'}.'</h3>');          $r->print('<h3>'.$lt{'usel'}.'</h3>');
Line 432  ENDSCRIPT Line 437  ENDSCRIPT
              {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",               {href=>"javascript:backPage(document.usersrchform,'get_user_info','select')",
               text=>"Select Student",                text=>"Select Student",
               faq=>282,bug=>'Instructor Interface',});                faq=>282,bug=>'Instructor Interface',});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));          $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                         'Course_Add_Student'));
         $r->print($jscript."<b>$lt{'stusrch'}</b><br />");          $r->print($jscript."<b>$lt{'stusrch'}</b><br />");
         $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));          $r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context));
         $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');          $r->print('</form><h3>'.$lt{'stusel'}.'</h3>');
Line 620  sub print_user_modification_page { Line 626  sub print_user_modification_page {
       ({href=>"javascript:backPage($form,'$env{'form.phase'}','modify')",        ({href=>"javascript:backPage($form,'$env{'form.phase'}','modify')",
         text=>$breadcrumb_text{'modify'},          text=>$breadcrumb_text{'modify'},
         faq=>282,bug=>'Instructor Interface',});          faq=>282,bug=>'Instructor Interface',});
     my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management');      my $helpitem = 'Course_Change_Privileges';
       if ($env{'form.action'} eq 'singlestudent') {
           $helpitem = 'Course_Add_Student';
       }
       my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                        $helpitem);
   
     my $forminfo =<<"ENDFORMINFO";      my $forminfo =<<"ENDFORMINFO";
 <form action="/adm/createuser" method="post" name="$formname">  <form action="/adm/createuser" method="post" name="$formname">
Line 1508  sub update_user_data { Line 1519  sub update_user_data {
         {href=>"/adm/createuser",          {href=>"/adm/createuser",
          text=>"Result",           text=>"Result",
          faq=>282,bug=>'Instructor Interface',});           faq=>282,bug=>'Instructor Interface',});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));      my $helpitem = 'Course_Change_Privileges';
       if ($env{'form.action'} eq 'singlestudent') {
           $helpitem = 'Course_Add_Student';
       }
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                    $helpitem));
     $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 2109  sub update_roles { Line 2125  sub update_roles {
                     if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {                      if ($url =~ m-^/($match_domain)/($match_courseid)/?(\w*)$-) {
                         my $result = &Apache::loncommon::commit_studentrole(\$logmsg,$udom,$uname,$url,$role,$now,0,$1,$2,$3);                          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') || ($result eq 'refused')) {                          if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course') || ($result eq 'refused')) {
                             $output = "Error: $result\n";                              if ($result eq 'refused' && $logmsg) {
                                   $output = $logmsg;
                               } else { 
                                   $output = "Error: $result\n";
                               }
                         } else {                          } else {
                             $output = &mt('Assigning').' '.$role.' in '.$url.                              $output = &mt('Assigning').' '.$role.' in '.$url.
                                       &mt('starting').' '.localtime($now).                                        &mt('starting').' '.localtime($now).
Line 2475  sub custom_role_editor { Line 2495  sub custom_role_editor {
       {href=>"javascript:backPage(document.form1,'','')",        {href=>"javascript:backPage(document.form1,'','')",
          text=>"Edit custom role",           text=>"Edit custom role",
          faq=>282,bug=>'Instructor Interface',});           faq=>282,bug=>'Instructor Interface',});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                     'Course_Editing_Custom_Roles'));
   
     $r->print($body_top);      $r->print($body_top);
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
Line 2615  sub set_custom_role { Line 2636  sub set_custom_role {
          {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,bug=>'Instructor Interface',});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management',
                                                     'Course_Editing_Custom_Roles'));
   
     my ($rdummy,$roledef)=      my ($rdummy,$roledef)=
  &Apache::lonnet::get('roles',["rolesdef_$rolename"]);   &Apache::lonnet::get('roles',["rolesdef_$rolename"]);
Line 2723  sub handler { Line 2745  sub handler {
             ({href=>'/adm/createuser?action=upload&state=',              ({href=>'/adm/createuser?action=upload&state=',
               text=>"Upload Users List"});                text=>"Upload Users List"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',          $r->print(&Apache::lonhtmlcommon::breadcrumbs('Upload Users List',
                                                    'User_Management_Upload'));                                                     'Course_Create_Class_List'));
         $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 2833  sub handler { Line 2855  sub handler {
             my $choice = $env{'form.bulkaction'};              my $choice = $env{'form.bulkaction'};
             $r->print(&header());              $r->print(&header());
             $r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users",              $r->print(&Apache::lonhtmlcommon::breadcrumbs("Update Users",
                                                           'User_Management_List'));                                                            'Course_View_Class_List'));
             if ($permission->{'cusr'}) {              if ($permission->{'cusr'}) {
                 &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice);                  &Apache::lonuserutils::update_user_list($r,$context,$setting,$choice);
                 $r->print('<p><a href="/adm/createuser?action=listusers">'.&mt('Display User Lists').'</a>');  
                 $r->print(&Apache::loncommon::end_page());                  $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(&Apache::loncommon::end_page());                  $r->print(&Apache::loncommon::end_page());
             }              }
         } else {          } else {
Line 2865  sub handler { Line 2887  sub handler {
                 $r->print(&header(&add_script(&verify_user_display())));                  $r->print(&header(&add_script(&verify_user_display())));
             }              }
             $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users",              $r->print(&Apache::lonhtmlcommon::breadcrumbs("List Users",
                                                           'User_Management_List'));                                                            '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());              $r->print(&Apache::loncommon::end_page());
Line 2965  sub print_main_menu { Line 2987  sub print_main_menu {
     my @menu =      my @menu =
         (          (
           { text => $links{$context}{'upload'},            { text => $links{$context}{'upload'},
             help => 'User_Management_Upload',              help => 'Course_Create_Class_List',
             action => 'upload',              action => 'upload',
             permission => $permission->{'cusr'},              permission => $permission->{'cusr'},
             },              },
           { text => $links{$context}{'singleuser'},             { text => $links{$context}{'singleuser'}, 
             help => 'User_Management_Single_User',              help => 'Course_Change_Privileges',
             action => 'singleuser',              action => 'singleuser',
             permission => $permission->{'cusr'},              permission => $permission->{'cusr'},
             },              },
           { text => $links{$context}{'listusers'},            { text => $links{$context}{'listusers'},
             help => 'User_Management_List',              help => 'Course_View_Class_List',
             action => 'listusers',              action => 'listusers',
             permission => ($permission->{'view'} || $permission->{'cusr'}),              permission => ($permission->{'view'} || $permission->{'cusr'}),
           },            },
         );          );
     if ($context eq 'domain' || $context eq 'course') {      if ($context eq 'domain' || $context eq 'course') {
         my $customlink =  { text => 'Edit Custom Roles',          my $customlink =  { text => 'Edit Custom Roles',
                             help => 'Custom_Role_Edit',                              help => 'Course_Editing_Custom_Roles',
                             action => 'custom',                              action => 'custom',
                             permission => $permission->{'custom'},                              permission => $permission->{'custom'},
                           };                            };
Line 2993  sub print_main_menu { Line 3015  sub print_main_menu {
         my @courselinks =          my @courselinks =
             (              (
               { text => 'Enroll a Single Student',                { text => 'Enroll a Single Student',
                  help => 'Course_Single_Student',                   help => 'Course_Add_Student',
                  action => 'singlestudent',                   action => 'singlestudent',
                  permission => $permission->{'cusr'},                   permission => $permission->{'cusr'},
                  },                   },
Line 3561  $table. Line 3583  $table.
   
 sub course_level_row {  sub course_level_row {
     my ($protectedcourse,$role,$area,$domain,$plrole,$sections_count,$lt) = @_;      my ($protectedcourse,$role,$area,$domain,$plrole,$sections_count,$lt) = @_;
     my $table = &Apache::loncommon::start_data_table_row().      my $row = &Apache::loncommon::start_data_table_row().
                 ' <td><input type="checkbox" name="act_'.                ' <td><input type="checkbox" name="act_'.
                 $protectedcourse.'_'.$role.'" /></td>'."\n".                $protectedcourse.'_'.$role.'" /></td>'."\n".
                 ' <td>'.$plrole.'</td>'."\n".                ' <td>'.$plrole.'</td>'."\n".
                 '<td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";                ' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
     if ($role eq 'cc') {      if ($role eq 'cc') {
         $table .= '<td>&nbsp</td>';          $row .= '<td>&nbsp;</td>';
     } elsif ($env{'request.course.sec'} ne '') {      } elsif ($env{'request.course.sec'} ne '') {
         $table .= ' <td><input type="hidden" value="'.          $row .= ' <td><input type="hidden" value="'.
                   $env{'request.course.sec'}.'" '.                  $env{'request.course.sec'}.'" '.
                   'name="sec_'.$protectedcourse.'_'.$role.'" />'.                  'name="sec_'.$protectedcourse.'_'.$role.'" />'.
                   $env{'request.course.sec'}.'</td>';                  $env{'request.course.sec'}.'</td>';
     } else {      } else {
         if (ref($sections_count) eq 'HASH') {          if (ref($sections_count) eq 'HASH') {
             my $currsec =               my $currsec = 
                 &Apache::lonuserutils::course_sections($sections_count,                  &Apache::lonuserutils::course_sections($sections_count,
                                                        $protectedcourse.'_'.$role);                                                         $protectedcourse.'_'.$role);
             $table .= '<td><table class="LC_createuser">'.              $row .= '<td><table class="LC_createuser">'."\n".
                       '<tr class="LC_section_row">                      '<tr class="LC_section_row">'."\n".
                         <td valign="top">'.$lt->{'exs'}.'<br />'.                      ' <td valign="top">'.$lt->{'exs'}.'<br />'.
                         $currsec.'</td>                         $currsec.'</td>'."\n".
                         <td>&nbsp;&nbsp;</td>                       ' <td>&nbsp;&nbsp;</td>'."\n".
                         <td valign="top">&nbsp;'.$lt->{'new'}.'<br />'.                       ' <td valign="top">&nbsp;'.$lt->{'new'}.'<br />'.
                      '<input type="text" name="newsec_'.$protectedcourse.'_'.$role.                       '<input type="text" name="newsec_'.$protectedcourse.'_'.$role.
                      '" value="" />'.                       '" value="" />'.
                      '<input type="hidden" '.                       '<input type="hidden" '.
                      'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'."\n".                       'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'."\n".
                      '</tr></table></td>';                       '</tr></table></td>'."\n";
         } else {          } else {
             $table .= '<td><input type="text" size="10" '.              $row .= '<td><input type="text" size="10" '.
                       'name="sec_'.$protectedcourse.'_'.$role.'" /></td>';                        'name="sec_'.$protectedcourse.'_'.$role.'" /></td>'."\n";
         }          }
     }      }
     $table .= <<ENDTIMEENTRY;      $row .= <<ENDTIMEENTRY;
 <td><input type="hidden" name="start_$protectedcourse\_$role" 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\_$role.value,'start_$protectedcourse\_$role','cu.pres','dateset')">$lt->{'ssd'}</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\_$role" 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\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt->{'sed'}</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.= &Apache::loncommon::end_data_table_row();      $row .= &Apache::loncommon::end_data_table_row();
       return $row;
 }  }
   
 sub course_level_dc {  sub course_level_dc {
Removed from v.1.221  
changed lines
  Added in v.1.224

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