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

Diff for /loncom/interface/loncreateuser.pm between versions 1.384 and 1.387

version 1.384, 2013/12/24 19:15:10 version 1.387, 2014/01/22 18:01:43
Line 168  END_SCRIPT Line 168  END_SCRIPT
   
     my %titles = &Apache::lonlocal::texthash (      my %titles = &Apache::lonlocal::texthash (
                     portfolio => "Disk space allocated to user's portfolio files",                      portfolio => "Disk space allocated to user's portfolio files",
                     author    => "Disk space allocated to user's authoring space (if role assigned)",                      author    => "Disk space allocated to user's Authoring Space (if role assigned)",
                  );                   );
     foreach my $name ('portfolio','author') {      foreach my $name ('portfolio','author') {
         my ($currquota,$quotatype,$inststatus,$defquota) =          my ($currquota,$quotatype,$inststatus,$defquota) =
Line 241  sub build_tools_display { Line 241  sub build_tools_display {
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                    'blog'       => "Personal User Blog",                     'blog'       => "Personal User Blog",
                    'aboutme'    => "Personal Information Page",                     'aboutme'    => "Personal Information Page",
                    'webdav'     => "WebDAV access to authoring spaces (if SSL and author/co-author)",                     'webdav'     => "WebDAV access to Authoring Spaces (if SSL and author/co-author)",
                    'portfolio'  => "Personal User Portfolio",                     'portfolio'  => "Personal User Portfolio",
                    'avai'       => "Available",                     'avai'       => "Available",
                    'cusa'       => "availability",                     'cusa'       => "availability",
Line 1418  ENDCHANGEUSER Line 1418  ENDCHANGEUSER
         if (!&Apache::lonnet::allowed('mpq',$ccdomain)) {          if (!&Apache::lonnet::allowed('mpq',$ccdomain)) {
             if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {              if (&Apache::lonnet::allowed('mpq',$env{'request.role.domain'})) {
                 my %lt=&Apache::lonlocal::texthash(                  my %lt=&Apache::lonlocal::texthash(
                     'dska'  => "Disk quotas for user's portfolio and authoring space",                      'dska'  => "Disk quotas for user's portfolio and Authoring Space",
                     'youd'  => "You do not have privileges to modify the portfolio and/or authoring space quotas for this user.",                      'youd'  => "You do not have privileges to modify the portfolio and/or Authoring Space quotas for this user.",
                     'ichr'  => "If a change is required, contact a domain coordinator for the domain",                      'ichr'  => "If a change is required, contact a domain coordinator for the domain",
                 );                  );
                 $user_text{'quota'} = <<ENDNOPORTPRIV;                  $user_text{'quota'} = <<ENDNOPORTPRIV;
Line 3116  sub update_user_data { Line 3116  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 3177  sub display_userinfo { Line 3178  sub display_userinfo {
          'id'             => 'Student/Employee ID',           'id'             => 'Student/Employee ID',
          'permanentemail' => 'Permanent e-mail address',           'permanentemail' => 'Permanent e-mail address',
          'portfolioquota' => 'Disk space allocated to portfolio files',           'portfolioquota' => 'Disk space allocated to portfolio files',
          'authorquota'    => 'Disk space allocated to authoring space',           'authorquota'    => 'Disk space allocated to Authoring Space',
          'blog'           => 'Blog Availability',           'blog'           => 'Blog Availability',
          'webdav'         => 'WebDAV Availability',           'webdav'         => 'WebDAV Availability',
          'aboutme'        => 'Personal Information Page Availability',           'aboutme'        => 'Personal Information Page Availability',
Line 3944  sub enroll_single_student { Line 3945  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 4436  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 4637  sub handler { Line 4656  sub handler {
              (&Apache::lonnet::allowed('cau',$env{'request.role.domain'}))) {               (&Apache::lonnet::allowed('cau',$env{'request.role.domain'}))) {
         push(@{$brcrum},          push(@{$brcrum},
                  {href => '/adm/createuser?action=processauthorreq',                   {href => '/adm/createuser?action=processauthorreq',
                   text => 'Authoring space requests',                    text => 'Authoring Space requests',
                   help => 'Domain_Role_Approvals'});                    help => 'Domain_Role_Approvals'});
         $bread_crumbs_component = 'Authoring requests';          $bread_crumbs_component = 'Authoring requests';
         if ($env{'form.state'} eq 'done') {          if ($env{'form.state'} eq 'done') {
Removed from v.1.384  
changed lines
  Added in v.1.387

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