[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.388

version 1.385, 2014/01/08 17:18:11 version 1.388, 2014/02/05 18:02:16
Line 1273  ENDTITLE Line 1273  ENDTITLE
         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 1381  ENDCHANGEUSER Line 1382  ENDCHANGEUSER
         }          }
         $r->print(' "'.$ccuname.'" '.$lt{'id'}.' "'.$ccdomain.'"</h2>'.          $r->print(' "'.$ccuname.'" '.$lt{'id'}.' "'.$ccdomain.'"</h2>'.
                   "\n".'<div class="LC_left_float">');                    "\n".'<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 2168  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 2255  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 2309  sub personal_data_display { Line 2307  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 3116  sub update_user_data { Line 3114  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 3943  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 4434  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>'
     );      );
 }  }
   
Removed from v.1.385  
changed lines
  Added in v.1.388

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