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

Diff for /loncom/interface/loncreateuser.pm between versions 1.385 and 1.389

version 1.385, 2014/01/08 17:18:11 version 1.389, 2014/02/10 18:39:29
Line 1230  ENDFORMINFO Line 1230  ENDFORMINFO
             }              }
         }          }
     }      }
       my $title = '';
     if ($newuser) {      if ($newuser) {
         my ($portfolioform,$domroleform);          my ($portfolioform,$domroleform);
         if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) ||          if ((&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) ||
Line 1243  ENDFORMINFO Line 1244  ENDFORMINFO
         }          }
         &initialize_authen_forms($ccdomain,$formname);          &initialize_authen_forms($ccdomain,$formname);
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
                 'cnu'            => 'Create New User',  
                 'ast'            => 'as a student',  
                 'ame'            => 'as a member',  
                 'ind'            => 'in domain',  
                 'lg'             => 'Login Data',                  'lg'             => 'Login Data',
                 'hs'             => "Home Server",                  'hs'             => "Home Server",
         );          );
Line 1260  $loginscript Line 1257  $loginscript
 // ]]>  // ]]>
 </script>  </script>
 <input type='hidden' name='makeuser' value='1' />  <input type='hidden' name='makeuser' value='1' />
 <h2>$lt{'cnu'} "$ccuname" $lt{'ind'} $ccdomain  
 ENDTITLE  ENDTITLE
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             if ($crstype eq 'Community') {              if ($crstype eq 'Community') {
                 $r->print(' ('.$lt{'ame'}.')');                  $title = &mt('Create New User [_1] in domain [_2] as a member',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
             } else {              } else {
                 $r->print(' ('.$lt{'ast'}.')');                  $title = &mt('Create New User [_1] in domain [_2] as a student',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
             }              }
           } else {
                   $title = &mt('Create New User [_1] in domain [_2]',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
         }          }
         $r->print('</h2>'."\n".'<div class="LC_left_float">');          $r->print('<h2>'.$title.'</h2>'."\n");
           $r->print('<div class="LC_left_float">');
         my $personal_table =           my $personal_table = 
             &personal_data_display($ccuname,$ccdomain,$newuser,$context,              &personal_data_display($ccuname,$ccdomain,$newuser,$context,
                                    $inst_results{$ccuname.':'.$ccdomain});                                     $inst_results{$ccuname.':'.$ccdomain});
           # (Do not offer Disable Safeguard here)
         $r->print($personal_table);          $r->print($personal_table);
         my ($home_server_pick,$numlib) =           my ($home_server_pick,$numlib) = 
             &Apache::loncommon::home_server_form_item($ccdomain,'hserver',              &Apache::loncommon::home_server_form_item($ccdomain,'hserver',
Line 1359  ENDAUTH Line 1362  ENDAUTH
         }          }
         $r->print('</div><div class="LC_clear_float_footer"></div>');          $r->print('</div><div class="LC_clear_float_footer"></div>');
     } else { # user already exists      } else { # user already exists
  my %lt=&Apache::lonlocal::texthash(   $r->print($start_page.$forminfo);
                     'cup'  => "Modify existing user: ",  
                     'ens'  => "Enroll one student: ",  
                     'enm'  => "Enroll one member: ",  
                     'id'   => "in domain",  
        );  
  $r->print(<<ENDCHANGEUSER);  
 $start_page  
 $forminfo  
 <h2>  
 ENDCHANGEUSER  
         if ($env{'form.action'} eq 'singlestudent') {          if ($env{'form.action'} eq 'singlestudent') {
             if ($crstype eq 'Community') {              if ($crstype eq 'Community') {
                 $r->print($lt{'enm'});                  $title = &mt('Enroll one member: [_1] in domain [_2]',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
             } else {              } else {
                 $r->print($lt{'ens'});                  $title = &mt('Enroll one student: [_1] in domain [_2]',
                                    '"'.$ccuname.'"','"'.$ccdomain.'"');
             }              }
         } else {          } else {
             $r->print($lt{'cup'});              $title = &mt('Modify existing user: [_1] in domain [_2]',
                                '"'.$ccuname.'"','"'.$ccdomain.'"');
         }          }
         $r->print(' "'.$ccuname.'" '.$lt{'id'}.' "'.$ccdomain.'"</h2>'.          $r->print('<h2>'.$title.'</h2>'."\n");
                   "\n".'<div class="LC_left_float">');          $r->print('<div class="LC_left_float">');
         my ($personal_table,$showforceid) =           my $personal_table = 
             &personal_data_display($ccuname,$ccdomain,$newuser,$context,              &personal_data_display($ccuname,$ccdomain,$newuser,$context,
                                    $inst_results{$ccuname.':'.$ccdomain});                                     $inst_results{$ccuname.':'.$ccdomain});
         $r->print($personal_table);          $r->print($personal_table);
         if ($showforceid) {  
             $r->print('<table>'.&Apache::lonuserutils::forceid_change($context).'</table>');  
         }  
         if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {          if (&Apache::lonnet::allowed('ccc',$env{'request.role.domain'})) {
             $r->print('<br /><h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'.              $r->print('<br /><h3>'.&mt('User Can Request Creation of Courses/Communities in this Domain?').'</h3>'.
                       &Apache::loncommon::start_data_table());                        &Apache::loncommon::start_data_table());
Line 2170  sub modify_login_block { Line 2163  sub modify_login_block {
   
 sub personal_data_display {  sub personal_data_display {
     my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray) = @_;      my ($ccuname,$ccdomain,$newuser,$context,$inst_results,$rolesarray) = @_;
     my ($output,$showforceid,%userenv,%canmodify,%canmodify_status);      my ($output,%userenv,%canmodify,%canmodify_status);
     my @userinfo = ('firstname','middlename','lastname','generation',      my @userinfo = ('firstname','middlename','lastname','generation',
                     'permanentemail','id');                      'permanentemail','id');
     my $rowcount = 0;      my $rowcount = 0;
Line 2257  sub personal_data_display { Line 2250  sub personal_data_display {
             } else {              } else {
                 $row .= $userenv{$item};                  $row .= $userenv{$item};
             }              }
             if ($item eq 'id') {              if (($item eq 'id') && ($canmodify{$item})) {
                 $showforceid = $canmodify{$item};                   $row .= '<br />'.&Apache::lonuserutils::forceid_change($context);
             }              }
         }          }
         $row .= &Apache::lonhtmlcommon::row_closure(1);          $row .= &Apache::lonhtmlcommon::row_closure(1);
Line 2294  sub personal_data_display { Line 2287  sub personal_data_display {
                     }                      }
                 }                  }
                 if (!$hiderow) {                  if (!$hiderow) {
                     my $row = &Apache::lonhtmlcommon::row_title(&mt('Affliations'),undef,'LC_oddrow_value')."\n".                      my $row = &Apache::lonhtmlcommon::row_title(&mt('Affiliations'),undef,'LC_oddrow_value')."\n".
                               $shown.&Apache::lonhtmlcommon::row_closure(1);                                 $shown.&Apache::lonhtmlcommon::row_closure(1); 
                     if ($context eq 'selfcreate') {                      if ($context eq 'selfcreate') {
                         $rowcount ++;                          $rowcount ++;
Line 2309  sub personal_data_display { Line 2302  sub personal_data_display {
         if ($context eq 'selfcreate') {          if ($context eq 'selfcreate') {
             return($output,$rowcount,$editable);              return($output,$rowcount,$editable);
         } else {          } else {
             return ($output,$showforceid);              return $output;
         }          }
     } else {      } else {
         return $output;          return $output;
Line 2474  sub update_user_data { Line 2467  sub update_user_data {
     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.&mt('Unable to determine home server for ').              $r->print(
                       $env{'form.ccuname'}.&mt(' in domain ').                  $error
                       $env{'form.ccdomain'}.'.');                 .'<p class="LC_error">'
                  .&mt('Unable to determine home server for [_1] in domain [_2].',
                           '"'.$env{'form.ccuname'}.'"','"'.$env{'form.ccdomain'}.'"')
                  .'</p>');
             return;              return;
         }          }
     }      }
Line 3066  sub update_user_data { Line 3062  sub update_user_data {
                     &Apache::lonnet::appenv(\%newenvhash);                      &Apache::lonnet::appenv(\%newenvhash);
                 }                  }
             } else { # error occurred              } else { # error occurred
                 $r->print('<span class="LC_error">'.&mt('Unable to successfully change environment for').' '.                  $r->print(
                       $env{'form.ccuname'}.' '.&mt('in domain').' '.                      '<p class="LC_error">'
                       $env{'form.ccdomain'}.'</span><br />');                     .&mt('Unable to successfully change environment for [_1] in domain [_2].',
                               '"'.$env{'form.ccuname'}.'"',
                               '"'.$env{'form.ccdomain'}.'"')
                      .'</p>');
             }              }
         } else { # End of if ($env ... ) logic          } else { # End of if ($env ... ) logic
             # They did not want to change the users name, quota, tool availability,              # They did not want to change the users name, quota, tool availability,
Line 3116  sub update_user_data { Line 3115  sub update_user_data {
     if ($env{'form.action'} eq 'singlestudent') {      if ($env{'form.action'} eq 'singlestudent') {
         &enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context,          &enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context,
                                $crstype,$showcredits,$defaultcredits);                                 $crstype,$showcredits,$defaultcredits);
         $r->print('<p><a href="javascript:backPage(document.userupdate)">');          my $linktext = ($crstype eq 'Community' ?
         if ($crstype eq 'Community') {              &mt('Enroll Another Member') : &mt('Enroll Another Student'));
             $r->print(&mt('Enroll Another Member'));          $r->print(
         } else {              &Apache::lonhtmlcommon::actionbox([
             $r->print(&mt('Enroll Another Student'));                  '<a href="javascript:backPage(document.userupdate)">'
         }                 .($crstype eq 'Community' ? 
         $r->print('</a></p>');                      &mt('Enroll Another Member') : &mt('Enroll Another Student'))
                  .'</a>']));
     } else {      } else {
         my @rolechanges = &update_roles($r,$context,$showcredits);          my @rolechanges = &update_roles($r,$context,$showcredits);
         if (keys(%namechanged) > 0) {          if (keys(%namechanged) > 0) {
Line 3944  sub enroll_single_student { Line 3944  sub enroll_single_student {
         }          }
         $r->print('.<br />'.$showstart.'; '.$showend);          $r->print('.<br />'.$showstart.'; '.$showend);
         if ($startdate <= $now && !$newuser) {          if ($startdate <= $now && !$newuser) {
             $r->print('<p> ');              $r->print('<p class="LC_info">');
             if ($crstype eq 'Community') {              if ($crstype eq 'Community') {
                 $r->print(&mt('If the member is currently logged-in to LON-CAPA, the new role will be available when the member next logs in.'));                  $r->print(&mt('If the member is currently logged-in to LON-CAPA, the new role will be available when the member next logs in.'));
             } else {              } else {
Line 4435  sub set_custom_role { Line 4435  sub set_custom_role {
     $sysrole.=':'.$item;      $sysrole.=':'.$item;
  }   }
     }      }
     $r->print('<br />Defining Role: '.      # Assign role; Compile and show result
    &Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));      my $errmsg;
       my $result =
           &Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole);
       if ($result ne 'ok') {
           $errmsg = ': '.$result;
       }
       my $message =
           &Apache::lonhtmlcommon::confirm_success(
               &mt('Defining Role').$errmsg, ($result eq 'ok' ? 0 : 1));
     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 />'.&mt('Assigning Role to Self').': '.          $result =
       &Apache::lonnet::assigncustomrole($env{'user.domain'},              &Apache::lonnet::assigncustomrole(
  $env{'user.name'},                  $env{'user.domain'},$env{'user.name'},
  $url,                  $url,
  $env{'user.domain'},                  $env{'user.domain'},$env{'user.name'},
  $env{'user.name'},                  $rolename,undef,undef,undef,$context);
  $rolename,undef,undef,undef,$context));          if ($result ne 'ok') {
               $errmsg = ': '.$result;
           }
           $message .=
               '<br />'
              .&Apache::lonhtmlcommon::confirm_success(
                   &mt('Assigning Role to Self').$errmsg, ($result eq 'ok' ? 0 : 1));
     }      }
     $r->print(      $r->print(
         '<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'          &Apache::loncommon::confirmwrapper($message)
        .&mt('Create or edit another custom role')         .'<br />'
        .'</a></p>'         .&Apache::lonhtmlcommon::actionbox([
               '<a href="javascript:backPage(document.customresult,'."'pickrole'".')">'
              .&mt('Create or edit another custom role')
              .'</a>'])
        .'<form name="customresult" method="post" action="">'         .'<form name="customresult" method="post" action="">'
        .&Apache::lonhtmlcommon::echo_form_input([]).'</form>'         .&Apache::lonhtmlcommon::echo_form_input([])
          .'</form>'
     );      );
 }  }
   
Line 6977  sub course_level_dc { Line 6995  sub course_level_dc {
     my $otheritems = &Apache::loncommon::start_data_table_row()."\n".      my $otheritems = &Apache::loncommon::start_data_table_row()."\n".
                      '<td><br /><span class="LC_nobreak"><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc','','','','crstype'".')" />'.                       '<td><br /><span class="LC_nobreak"><input type="text" name="coursedesc" value="" onfocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc','','','','crstype'".')" />'.
                      $courseform.('&nbsp;' x4).'</span></td>'."\n".                       $courseform.('&nbsp;' x4).'</span></td>'."\n".
                      '<td valign><br /><select name="role">'."\n";                       '<td valign="top"><br /><select name="role">'."\n";
     foreach my $role (@roles) {      foreach my $role (@roles) {
         my $plrole=&Apache::lonnet::plaintext($role);          my $plrole=&Apache::lonnet::plaintext($role);
         $otheritems .= '  <option value="'.$role.'">'.$plrole;          $otheritems .= '  <option value="'.$role.'">'.$plrole.'</option>';
     }      }
     if ( keys %customroles > 0) {      if ( keys %customroles > 0) {
         foreach my $cust (sort keys %customroles) {          foreach my $cust (sort keys %customroles) {
             my $custrole='cr_cr_'.$env{'user.domain'}.              my $custrole='cr_cr_'.$env{'user.domain'}.
                     '_'.$env{'user.name'}.'_'.$cust;                      '_'.$env{'user.name'}.'_'.$cust;
             $otheritems .= '  <option value="'.$custrole.'">'.$cust;              $otheritems .= '  <option value="'.$custrole.'">'.$cust.'</option>';
         }          }
     }      }
     $otheritems .= '</select></td><td>'.      $otheritems .= '</select></td><td>'.
                      '<table border="0" cellspacing="0" cellpadding="0">'.                       '<table border="0" cellspacing="0" cellpadding="0">'.
                      '<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'.                       '<tr><td valign="top"><b>'.$lt{'exs'}.'</b><br /><select name="currsec">'.
                      ' <option value=""><--'.&mt('Pick course first').'</select></td>'.                       ' <option value="">&lt;--'.&mt('Pick course first').'</option></select></td>'.
                      '<td>&nbsp;&nbsp;</td>'.                       '<td>&nbsp;&nbsp;</td>'.
                      '<td valign="top">&nbsp;<b>'.$lt{'new'}.'</b><br />'.                       '<td valign="top">&nbsp;<b>'.$lt{'new'}.'</b><br />'.
                      '<input type="text" name="newsec" value="" />'.                       '<input type="text" name="newsec" value="" />'.
Removed from v.1.385  
changed lines
  Added in v.1.389

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