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

Diff for /loncom/interface/loncreateuser.pm between versions 1.135 and 1.149

version 1.135, 2006/11/22 16:06:28 version 1.149, 2007/05/29 17:48:44
Line 66  use Apache::loncommon; Line 66  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::longroup;  use Apache::longroup;
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA qw(:DEFAULT :match);
   
 my $loginscript; # piece of javascript used in two separate instances  my $loginscript; # piece of javascript used in two separate instances
 my $generalrule;  my $generalrule;
Line 122  sub portfolio_quota { Line 122  sub portfolio_quota {
     my ($ccuname,$ccdomain) = @_;      my ($ccuname,$ccdomain) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                    'disk' => "Disk space allocated to user's portfolio files",                     'disk' => "Disk space allocated to user's portfolio files",
                      'cuqu' => "Current quota",
                      'cust' => "Custom quota",
                      'defa' => "Default",
                      'chqu' => "Change quota",
     );      );
     my $output = '<h3>'.$lt{'disk'}.'</h3>'.      my ($currquota,$quotatype,$inststatus,$defquota) = 
           &Apache::loncommon::get_user_quota($ccuname,$ccdomain);
       my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($ccdomain);
       my ($longinsttype,$showquota,$custom_on,$custom_off,$defaultinfo);
       if ($inststatus ne '') {
           if ($usertypes->{$inststatus} ne '') {
               $longinsttype = $usertypes->{$inststatus};
           }
       }
       $custom_on = ' ';
       $custom_off = ' checked="checked" ';
       my $quota_javascript = <<"END_SCRIPT";
   <script type="text/javascript">
   function quota_changes(caller) {
       if (caller == "custom") {
           if (document.cu.customquota[0].checked) {
               document.cu.portfolioquota.value = "";
           }
       }
       if (caller == "quota") {
           document.cu.customquota[1].checked = true;
       }
   }
   </script>
   END_SCRIPT
       if ($quotatype eq 'custom') {
           $custom_on = $custom_off;
           $custom_off = ' ';
           $showquota = $currquota;
           if ($longinsttype eq '') {
               $defaultinfo = &mt('For this user, the default quota would be [_1]
                               Mb.',$defquota);
           } else {
               $defaultinfo = &mt("For this user, the default quota would be [_1] 
                               Mb, as determined by the user's institutional
                              affiliation ([_2]).",$defquota,$longinsttype);
           }
       } else {
           if ($longinsttype eq '') {
               $defaultinfo = &mt('For this user, the default quota is [_1]
                               Mb.',$defquota);
           } else {
               $defaultinfo = &mt("For this user, the default quota of [_1]
                               Mb, is determined by the user's institutional
                               affiliation ([_2]).",$defquota,$longinsttype);
           }
       }
       my $output = $quota_javascript.
                    '<h3>'.$lt{'disk'}.'</h3>'.
                    $lt{'cuqu'}.': '.$currquota.'&nbsp;Mb.&nbsp;&nbsp;'.
                    $defaultinfo.'<br /><span class="LC_nobreak">'.$lt{'chqu'}.
                    ': <label>'.
                    '<input type="radio" name="customquota" value="0" '.
                    $custom_off.' onchange="javascript:quota_changes('."'custom'".')"
                     />'.$lt{'defa'}.'&nbsp;('.$defquota.' Mb).</label>&nbsp;'.
                    '&nbsp;<label><input type="radio" name="customquota" value="1" '. 
                    $custom_on.'  onchange="javascript:quota_changes('."'custom'".')" />'.
                    $lt{'cust'}.':</label>&nbsp;'.
                  '<input type="text" name="portfolioquota" size ="5" value="'.                   '<input type="text" name="portfolioquota" size ="5" value="'.
                  &Apache::loncommon::get_user_quota($ccuname,$ccdomain).                   $showquota.'" onfocus="javascript:quota_changes('."'quota'".')" '.
                  '" />&nbsp;Mb';                   '/>&nbsp;Mb';
     return $output;      return $output;
 }  }
   
Line 135  sub portfolio_quota { Line 196  sub portfolio_quota {
 sub print_username_entry_form {  sub print_username_entry_form {
     my ($r) = @_;      my ($r) = @_;
     my $defdom=$env{'request.role.domain'};      my $defdom=$env{'request.role.domain'};
     my @domains = &Apache::loncommon::get_domains();  
     my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');      my $domform = &Apache::loncommon::select_dom_form($defdom,'ccdomain');
     my $selscript=&Apache::loncommon::studentbrowser_javascript();      my $selscript=&Apache::loncommon::studentbrowser_javascript();
     my $start_page =      my $start_page =
Line 216  END Line 276  END
 # =================================================================== Phase two  # =================================================================== Phase two
 sub print_user_modification_page {  sub print_user_modification_page {
     my $r=shift;      my $r=shift;
     my $ccuname=$env{'form.ccuname'};      my $ccuname =&LONCAPA::clean_username($env{'form.ccuname'});
     my $ccdomain=$env{'form.ccdomain'};      my $ccdomain=&LONCAPA::clean_domain($env{'form.ccdomain'});
   
     $ccuname=~s/\W//g;  
     $ccdomain=~s/\W//g;  
   
     unless (($ccuname) && ($ccdomain)) {      unless (($ccuname) && ($ccdomain)) {
  &print_username_entry_form($r);   &print_username_entry_form($r);
Line 239  sub print_user_modification_page { Line 296  sub print_user_modification_page {
     $loginscript  = &Apache::loncommon::authform_header(%param);      $loginscript  = &Apache::loncommon::authform_header(%param);
     $authformkrb  = &Apache::loncommon::authform_kerberos(%param);      $authformkrb  = &Apache::loncommon::authform_kerberos(%param);
   
     $ccuname=~s/\W//g;      $ccuname =&LONCAPA::clean_username($ccuname);
     $ccdomain=~s/\W//g;      $ccdomain=&LONCAPA::clean_domain($ccdomain);
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     my $dc_setcourse_code = '';      my $dc_setcourse_code = '';
     my $nondc_setsection_code = '';                                              my $nondc_setsection_code = '';                                        
Line 254  sub print_user_modification_page { Line 311  sub print_user_modification_page {
         $groupslist = '"'.$groupslist.'"';             $groupslist = '"'.$groupslist.'"';   
     }      }
   
     if ($env{'request.role'} =~ m-^dc\./(\w+)/$-) {      if ($env{'request.role'} =~ m-^dc\./($match_domain)/$-) {
         my $dcdom = $1;          my $dcdom = $1;
         $loaditem{'onload'} = "document.cu.coursedesc.value='';";          $loaditem{'onload'} = "document.cu.coursedesc.value='';";
         my @rolevals = ('st','ta','ep','in','cc');          my @rolevals = ('st','ta','ep','in','cc');
Line 361  sub print_user_modification_page { Line 418  sub print_user_modification_page {
         }          }
         return -1;          return -1;
     }      }
   
     function setType() {  
         var crstype = document.cu.crstype.options[document.cu.crstype.selectedIndex].value;  
         rolevals = new Array("$rolevalslist");  
         if (crstype == 'Group') {  
             if (document.cu.currsec.options[0].text == "$pickcrsfirst") {  
                 document.cu.currsec.options[0].text = "$pickgrpfirst";  
             }   
             grprolenames = new Array("$grprolenameslist");  
             for (var i=0; i<rolevals.length; i++) {  
                 if (document.cu.role.selectedIndex == i) {  
                     document.cu.role.options[i] = new Option(grprolenames[i],rolevals[i],true,false);  
                 } else {  
                     document.cu.role.options[i] = new Option(grprolenames[i],rolevals[i],false,false);  
                 }  
             }  
         } else {  
             if (document.cu.currsec.options[0].text == "$pickgrpfirst") {  
                 document.cu.currsec.options[0].text = "$pickcrsfirst";  
             }  
             crsrolenames = new Array("$crsrolenameslist");  
             for (var i=0; i<rolevals.length; i++) {  
                 if (document.cu.role.selectedIndex == i) {  
                     document.cu.role.options[i] = new Option(crsrolenames[i],rolevals[i],true,false);  
                 } else {  
                     document.cu.role.options[i] = new Option(crsrolenames[i],rolevals[i],false,false);  
                 }  
             }  
         }  
     }  
 ENDSCRIPT  ENDSCRIPT
     } else {      } else {
         $nondc_setsection_code = <<"ENDSECCODE";          $nondc_setsection_code = <<"ENDSECCODE";
Line 487  ENDSECCODE Line 514  ENDSECCODE
 <input type="hidden" name="pres_marker" value="" >  <input type="hidden" name="pres_marker" value="" >
 ENDFORMINFO  ENDFORMINFO
     my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);      my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
     my %incdomains;   
     my %inccourses;      my %inccourses;
     foreach my $item (values(%Apache::lonnet::hostdom)) {  
        $incdomains{$item}=1;  
     }  
     foreach my $key (keys(%env)) {      foreach my $key (keys(%env)) {
  if ($key=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) {   if ($key=~/^user\.priv\.cm\.\/($match_domain)\/($match_username)/) {
     $inccourses{$1.'_'.$2}=1;      $inccourses{$1.'_'.$2}=1;
         }          }
     }      }
Line 622  END Line 645  END
                    split(/_/,$role);                     split(/_/,$role);
 # Is this a custom role? Get role owner and title.  # Is this a custom role? Get role owner and title.
        my ($croleudom,$croleuname,$croletitle)=         my ($croleudom,$croleuname,$croletitle)=
            ($role_code=~/^cr\/(\w+)\/(\w+)\/(\w+)$/);             ($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});
                my $bgcol='ffffff';  
                my $allowed=0;                 my $allowed=0;
                my $delallowed=0;                 my $delallowed=0;
        my $sortkey=$role_code;         my $sortkey=$role_code;
        my $class='Unknown';         my $class='Unknown';
                if ($area =~ /^\/(\w+)\/(\d\w+)/ ) {                 if ($area =~ m{^/($match_domain)/($match_courseid)} ) {
    $class='Course';     $class='Course';
                    my ($coursedom,$coursedir) = ($1,$2);                     my ($coursedom,$coursedir) = ($1,$2);
    $sortkey.="\0$coursedom";     $sortkey.="\0$coursedom";
Line 664  END Line 686  END
        }         }
    }     }
                    # Compute the background color based on $area                     # Compute the background color based on $area
                    $bgcol=$1.'_'.$2;                     if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {
                    $bgcol=~s/[^7-9a-e]//g;  
                    $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);  
                    if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {  
                        $carea.='<br />Section: '.$3;                         $carea.='<br />Section: '.$3;
        $sortkey.="\0$3";         $sortkey.="\0$3";
                    }                     }
Line 675  END Line 694  END
                } else {                 } else {
    $sortkey.="\0".$area;     $sortkey.="\0".$area;
                    # Determine if current user is able to revoke privileges                     # Determine if current user is able to revoke privileges
                    if ($area=~ /^\/(\w+)\//) {                     if ($area=~m{^/($match_domain)/}) {
                        if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||                         if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||
                        (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {                         (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                            $allowed=1;                             $allowed=1;
Line 699  END Line 718  END
    }     }
                }                 }
                if (($role_code eq 'ca') || ($role_code eq 'aa')) {                 if (($role_code eq 'ca') || ($role_code eq 'aa')) {
                    $area=~/\/(\w+)\/(\w+)/;                     $area=~m{/($match_domain)/($match_username)};
    if (&authorpriv($2,$1)) {     if (&authorpriv($2,$1)) {
        $allowed=1;         $allowed=1;
                    } else {                     } else {
                        $allowed=0;                         $allowed=0;
                    }                     }
                }                 }
        $bgcol='77FF77';  
                my $row = '';                 my $row = '';
                $row.='<tr bgcolor="#'.$bgcol.'"><td>';                 $row.= '<td>';
                my $active=1;                 my $active=1;
                $active=0 if (($role_end_time) && ($now>$role_end_time));                 $active=0 if (($role_end_time) && ($now>$role_end_time));
                if (($active) && ($allowed)) {                 if (($active) && ($allowed)) {
Line 745  END Line 763  END
                                                    : '&nbsp;' ).                                                     : '&nbsp;' ).
                       '</td><td>'.($role_end_time  ?localtime($role_end_time)                        '</td><td>'.($role_end_time  ?localtime($role_end_time)
                                                    : '&nbsp;' )                                                     : '&nbsp;' )
                       ."</td></tr>\n";                        ."</td>";
        $sortrole{$sortkey}=$envkey;         $sortrole{$sortkey}=$envkey;
        $roletext{$envkey}=$row;         $roletext{$envkey}=$row;
        $roleclass{$envkey}=$class;         $roleclass{$envkey}=$class;
Line 758  END Line 776  END
        $output{$type} = '';         $output{$type} = '';
        foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {         foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
    if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {      if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) { 
        $output{$type}.=$roletext{$sortrole{$which}};         $output{$type}.=
                                &Apache::loncommon::start_data_table_row().
                                $roletext{$sortrole{$which}}.
                                &Apache::loncommon::end_data_table_row();
    }     }
        }         }
        unless($output{$type} eq '') {         unless($output{$type} eq '') {
    $output{$type} = "<tr bgcolor='#BBffBB'>".     $output{$type} = '<tr class="LC_info_row">'.
      "<td align='center' colspan='7'>".&mt($type)."</td>".       "<td align='center' colspan='7'>".&mt($type)."</td></tr>".
                               $output{$type};                                $output{$type};
                    $rolesdisplay = 1;                     $rolesdisplay = 1;
        }         }
    }     }
            if ($rolesdisplay == 1) {             if ($rolesdisplay == 1) {
                $r->print(<<END);                 $r->print('
 <hr />  <hr />
 <h3>$lt{'rer'}</h3>  <h3>'.$lt{'rer'}.'</h3>'.
 <table>  &Apache::loncommon::start_data_table("LC_createuser").
 <tr><th>$lt{'rev'}</th><th>$lt{'ren'}</th><th>$lt{'del'}</th><th>$lt{'rol'}</th><th>$lt{'e  &Apache::loncommon::start_data_table_header_row().
 xt'}</th><th>$lt{'sta'}</th><th>$lt{'end'}</th>  '<th>'.$lt{'rev'}.'</th><th>'.$lt{'ren'}.'</th><th>'.$lt{'del'}.
 END  '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.
   '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
   &Apache::loncommon::end_data_table_header_row());
                foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {                 foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {
                    if ($output{$type}) {                     if ($output{$type}) {
                        $r->print($output{$type}."\n");                         $r->print($output{$type}."\n");
                    }                     }
                }                 }
        $r->print('</table>');         $r->print(&Apache::loncommon::end_data_table());
            }             }
         }  # End of unless          }  # End of unless
  my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);   my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain);
Line 965  ENDNOPRIV Line 988  ENDNOPRIV
     &mt('Extent').'</th>'.      &mt('Extent').'</th>'.
     '<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.      '<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.
     &Apache::loncommon::end_data_table_header_row();      &Apache::loncommon::end_data_table_header_row();
     foreach my $thisdomain ( sort( keys(%incdomains))) {      foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
         foreach my $role ('dc','li','dg','au','sc') {          foreach my $role ('dc','li','dg','au','sc') {
             if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {              if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
                my $plrole=&Apache::lonnet::plaintext($role);                 my $plrole=&Apache::lonnet::plaintext($role);
Line 997  ENDNOPRIV Line 1020  ENDNOPRIV
 # Course and group levels  # Course and group levels
 #  #
   
     if ($env{'request.role'} =~ m-^dc\./(\w+)/$-) {      if ($env{'request.role'} =~ m{^dc\./($match_domain)/$}) {
         $r->print(&course_level_dc($1,'Course'));          $r->print(&course_level_dc($1,'Course'));
         $r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()">'."\n");          $r->print('<hr /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()">'."\n");
     } else {      } else {
Line 1029  sub update_user_data { Line 1052  sub update_user_data {
  $r->print($error.&mt('No login name specified').'.'.$end);   $r->print($error.&mt('No login name specified').'.'.$end);
  return;   return;
     }      }
     if (  $env{'form.ccuname'}  =~/\W/) {      if (  $env{'form.ccuname'} ne 
     &LONCAPA::clean_username($env{'form.ccuname'}) ) {
  $r->print($error.&mt('Invalid login name').'.  '.   $r->print($error.&mt('Invalid login name').'.  '.
   &mt('Only letters, numbers, and underscores are valid').'.'.    &mt('Only letters, numbers, and underscores are valid').'.'.
   $end);    $end);
Line 1039  sub update_user_data { Line 1063  sub update_user_data {
  $r->print($error.&mt('No domain specified').'.'.$end);   $r->print($error.&mt('No domain specified').'.'.$end);
  return;   return;
     }      }
     if (  $env{'form.ccdomain'} =~/\W/) {      if (  $env{'form.ccdomain'} ne
     &LONCAPA::clean_domain($env{'form.ccdomain'}) ) {
  $r->print($error.&mt ('Invalid domain name').'.  '.   $r->print($error.&mt ('Invalid domain name').'.  '.
   &mt('Only letters, numbers, and underscores are valid').'.'.    &mt('Only letters, numbers, periods, dashes, and underscores are valid').'.'.
   $end);    $end);
  return;   return;
     }      }
Line 1100  ENDNEWUSERHEAD Line 1125  ENDNEWUSERHEAD
         if (lc($desiredhost) eq 'default') {          if (lc($desiredhost) eq 'default') {
             $desiredhost = undef;              $desiredhost = undef;
         } else {          } else {
             my %home_servers = &Apache::loncommon::get_library_servers              my %home_servers = 
                 ($env{'form.ccdomain'});     &Apache::lonnet::get_servers($env{'form.ccdomain'},'library');
             if (! exists($home_servers{$desiredhost})) {              if (! exists($home_servers{$desiredhost})) {
                 $r->print($error.&mt('Invalid home server specified'));                  $r->print($error.&mt('Invalid home server specified'));
                 return;                  return;
Line 1118  ENDNEWUSERHEAD Line 1143  ENDNEWUSERHEAD
         my $home = &Apache::lonnet::homeserver($env{'form.ccuname'},          my $home = &Apache::lonnet::homeserver($env{'form.ccuname'},
                                                $env{'form.ccdomain'});                                                 $env{'form.ccdomain'});
         $r->print('<br />'.&mt('Home server').': '.$home.' '.          $r->print('<br />'.&mt('Home server').': '.$home.' '.
                   $Apache::lonnet::libserv{$home});                    &Apache::lonnet::hostname($home));
     } elsif (($env{'form.login'} ne 'nochange') &&      } elsif (($env{'form.login'} ne 'nochange') &&
              ($env{'form.login'} ne ''        )) {               ($env{'form.login'} ne ''        )) {
  # Modify user privileges   # Modify user privileges
Line 1151  ENDMODIFYUSERHEAD Line 1176  ENDMODIFYUSERHEAD
         # Check for need to change          # Check for need to change
         my %userenv = &Apache::lonnet::get          my %userenv = &Apache::lonnet::get
             ('environment',['firstname','middlename','lastname','generation',              ('environment',['firstname','middlename','lastname','generation',
              'portfolioquota'],$env{'form.ccdomain'},$env{'form.ccuname'});               'portfolioquota','inststatus'],$env{'form.ccdomain'},
                 $env{'form.ccuname'});
         my ($tmp) = keys(%userenv);          my ($tmp) = keys(%userenv);
         if ($tmp =~ /^(con_lost|error)/i) {           if ($tmp =~ /^(con_lost|error)/i) { 
             %userenv = ();              %userenv = ();
Line 1161  ENDMODIFYUSERHEAD Line 1187  ENDMODIFYUSERHEAD
             # Strip leading and trailing whitespace              # Strip leading and trailing whitespace
             $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g;               $env{'form.c'.$item} =~ s/(\s+$|^\s+)//g; 
         }          }
         my ($quotachanged,$namechanged,$oldportfolioquota);          my ($quotachanged,$namechanged,$oldportfolioquota,$newportfolioquota,
               $inststatus,$isdefault,$defquotatext);
           my ($defquota,$settingstatus) = 
               &Apache::loncommon::default_quota($env{'form.ccdomain'},$inststatus);
         my %changeHash;          my %changeHash;
         if (exists($userenv{'portfolioquota'})) {          if ($userenv{'portfolioquota'} ne '') {
             $oldportfolioquota = $userenv{'portfolioquota'};              $oldportfolioquota = $userenv{'portfolioquota'};
             if (exists($env{'form.portfolioquota'})) {              if ($env{'form.customquota'} == 1) {
                 if ($env{'form.portfolioquota'} ne $userenv{'portfolioquota'}) {                  if ($env{'form.portfolioquota'} eq '') {
                     if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {                      $newportfolioquota = 0;
                         # Current user has quota modification privileges                  } else {
                         $quotachanged = 1;                      $newportfolioquota = $env{'form.portfolioquota'};
                         $changeHash{'portfolioquota'} = $env{'form.portfolioquota'};                      $newportfolioquota =~ s/[^\d\.]//g;
                     }  
                 }                  }
                   if ($newportfolioquota != $userenv{'portfolioquota'}) {
                       $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
                   }
               } else {
                   $quotachanged = &quota_admin('',\%changeHash);
                   $newportfolioquota = $defquota;
                   $isdefault = 1; 
             }              }
         } else {          } else {
             $oldportfolioquota = &default_quota($env{'form.ccdomain'});              $oldportfolioquota = $defquota;
               if ($env{'form.customquota'} == 1) {
                   if ($env{'form.portfolioquota'} eq '') {
                       $newportfolioquota = 0;
                   } else {
                       $newportfolioquota = $env{'form.portfolioquota'};
                       $newportfolioquota =~ s/[^\d\.]//g;
                   }
                   $quotachanged = &quota_admin($newportfolioquota,\%changeHash);
               } else {
                   $newportfolioquota = $defquota;
                   $isdefault = 1;
               }
           }
           if ($isdefault) {
               if ($settingstatus eq '') {
                   $defquotatext = &mt('(default)');
               } else {
                   my ($usertypes,$order) = 
                       &Apache::lonnet::retrieve_inst_usertypes($env{'form.ccdomain'});
                   if ($usertypes->{$settingstatus} eq '') {
                       $defquotatext = &mt('(default)');
                   } else { 
                       $defquotatext = &mt('(default for [_1])',$usertypes->{$settingstatus});
                   }
               }
         }          }
         if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) &&           if (&Apache::lonnet::allowed('mau',$env{'form.ccdomain'}) && 
             ($env{'form.cfirstname'}  ne $userenv{'firstname'}  ||              ($env{'form.cfirstname'}  ne $userenv{'firstname'}  ||
Line 1219  ENDMODIFYUSERHEAD Line 1279  ENDMODIFYUSERHEAD
     <td>$userenv{'middlename'} </td>      <td>$userenv{'middlename'} </td>
     <td>$userenv{'lastname'}   </td>      <td>$userenv{'lastname'}   </td>
     <td>$userenv{'generation'} </td>      <td>$userenv{'generation'} </td>
     <td>$oldportfolioquota</td>      <td>$oldportfolioquota Mb</td>
 </tr>  </tr>
 <tr><td>$lt{'chto'}</td>  <tr><td>$lt{'chto'}</td>
     <td>$env{'form.cfirstname'}  </td>      <td>$env{'form.cfirstname'}  </td>
     <td>$env{'form.cmiddlename'} </td>      <td>$env{'form.cmiddlename'} </td>
     <td>$env{'form.clastname'}   </td>      <td>$env{'form.clastname'}   </td>
     <td>$env{'form.cgeneration'} </td>      <td>$env{'form.cgeneration'} </td>
     <td>$env{'form.portfolioquota'} Mb</td></tr>      <td>$newportfolioquota Mb $defquotatext </td></tr>
 </table>  </table>
 END  END
                   if (($env{'form.ccdomain'} eq $env{'user.domain'}) && 
                       ($env{'form.ccuname'} eq $env{'user.name'})) {
                       my %newenvhash;
                       foreach my $key (keys(%changeHash)) {
                           $newenvhash{'environment.'.$key} = $changeHash{$key};
                       }
                       &Apache::lonnet::appenv(%newenvhash);
                   }
             } else { # error occurred              } else { # error occurred
                 $r->print("<h2>".&mt('Unable to successfully change environment for')." ".                  $r->print("<h2>".&mt('Unable to successfully change environment for')." ".
                       $env{'form.ccuname'}." ".&mt('in domain')." ".                        $env{'form.ccuname'}." ".&mt('in domain')." ".
Line 1255  END Line 1323  END
 <h4>$lt{'gen'}: $userenv{'generation'}</h4>  <h4>$lt{'gen'}: $userenv{'generation'}</h4>
 END  END
             if ($putresult eq 'ok') {              if ($putresult eq 'ok') {
                 if ($oldportfolioquota ne $env{'form.portfolioquota'}) {                  if ($oldportfolioquota != $newportfolioquota) {
                     $r->print('<h4>'.$lt{'disk'}.': '.$env{'form.portfolioquota'}.' Mb</h4>');                      $r->print('<h4>'.$lt{'disk'}.': '.$newportfolioquota.' Mb '. 
                                 $defquotatext.'</h4>');
                       &Apache::lonnet::appenv('environment.portfolioquota' => $changeHash{'portfolioquota'});
                 }                  }
             }              }
         }          }
Line 1274  END Line 1344  END
                      &Apache::lonnet::revokerole($env{'form.ccdomain'},                       &Apache::lonnet::revokerole($env{'form.ccdomain'},
                      $env{'form.ccuname'},$1,$2).'</b><br />');                       $env{'form.ccuname'},$1,$2).'</b><br />');
  if ($2 eq 'st') {   if ($2 eq 'st') {
     $1=~/^\/(\w+)\/(\w+)/;      $1=~m{^/($match_domain)/($match_courseid)};
     my $cid=$1.'_'.$2;      my $cid=$1.'_'.$2;
     $r->print(&mt('Drop from classlist').': <b>'.      $r->print(&mt('Drop from classlist').': <b>'.
  &Apache::lonnet::critical('put:'.   &Apache::lonnet::critical('put:'.
Line 1286  END Line 1356  END
                      $env{'course.'.$cid.'.home'}).'</b><br />');                       $env{'course.'.$cid.'.home'}).'</b><br />');
  }   }
     }       } 
     if ($key=~/^form\.rev\:([^\_]+)\_cr\.cr\/(\w+)\/(\w+)\/(\w+)$/) {      if ($key=~m{^form\.rev\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
 # Revoke custom role  # Revoke custom role
  $r->print(&mt('Revoking custom role:').   $r->print(&mt('Revoking custom role:').
                       ' '.$4.' by '.$3.'@'.$2.' in '.$1.': <b>'.                        ' '.$4.' by '.$3.':'.$2.' in '.$1.': <b>'.
                       &Apache::lonnet::revokecustomrole($env{'form.ccdomain'},                        &Apache::lonnet::revokecustomrole($env{'form.ccdomain'},
   $env{'form.ccuname'},$1,$2,$3,$4).    $env{'form.ccuname'},$1,$2,$3,$4).
  '</b><br />');   '</b><br />');
Line 1301  END Line 1371  END
                      &Apache::lonnet::assignrole($env{'form.ccdomain'},                       &Apache::lonnet::assignrole($env{'form.ccdomain'},
                      $env{'form.ccuname'},$1,$2,$now,0,1).'<br />');                       $env{'form.ccuname'},$1,$2,$now,0,1).'<br />');
  if ($2 eq 'st') {   if ($2 eq 'st') {
     $1=~/^\/(\w+)\/(\w+)/;      $1=~m{^/($match_domain)/($match_courseid)};
     my $cid=$1.'_'.$2;      my $cid=$1.'_'.$2;
     $r->print(&mt('Drop from classlist').': <b>'.      $r->print(&mt('Drop from classlist').': <b>'.
  &Apache::lonnet::critical('put:'.   &Apache::lonnet::critical('put:'.
Line 1313  END Line 1383  END
                      $env{'course.'.$cid.'.home'}).'</b><br />');                       $env{'course.'.$cid.'.home'}).'</b><br />');
  }   }
             }              }
             if ($key=~/^form\.del\:([^\_]+)\_cr\.cr\/(\w+)\/(\w+)\/(\w+)$/) {      if ($key=~m{^form\.del\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
                 my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);                  my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
 # Delete custom role  # Delete custom role
                 $r->print(&mt('Deleting custom role [_1] by [_2]@[_3] in [_4]',                  $r->print(&mt('Deleting custom role [_1] by [_2]@[_3] in [_4]',
Line 1332  END Line 1402  END
                 my $logmsg;                  my $logmsg;
                 my $output;                  my $output;
                 if ($role eq 'st') {                  if ($role eq 'st') {
                     if ($url =~ m-^/(\w+)/(\w+)/?(\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')) {                          if (($result =~ /^error/) || ($result eq 'not_in_class') || ($result eq 'unknown_course')) {
                             $output = "Error: $result\n";                              $output = "Error: $result\n";
Line 1352  END Line 1422  END
                 $r->print($output);                  $r->print($output);
     }      }
 # Re-enable custom role  # Re-enable custom role
             if ($key=~/^form\.ren\:([^\_]+)\_cr\.cr\/(\w+)\/(\w+)\/(\w+)$/) {      if ($key=~m{^form\.ren\:([^_]+)_cr\.cr/($match_domain)/($match_username)/(\w+)$}) {
                 my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);                  my ($url,$rdom,$rnam,$rolename) = ($1,$2,$3,$4);
                 my $result = &Apache::lonnet::assigncustomrole(                  my $result = &Apache::lonnet::assigncustomrole(
                                $env{'form.ccdomain'}, $env{'form.ccuname'},                                 $env{'form.ccdomain'}, $env{'form.ccuname'},
Line 1363  END Line 1433  END
  } elsif ($key=~/^form\.act/) {   } elsif ($key=~/^form\.act/) {
             my $udom = $env{'form.ccdomain'};              my $udom = $env{'form.ccdomain'};
             my $uname = $env{'form.ccuname'};              my $uname = $env{'form.ccuname'};
     if ($key=~/^form\.act\_([^\_]+)\_([^\_]+)\_cr_cr_([^\_]+)_(\w+)_([^\_]+)$/) {      if ($key=~/^form\.act\_($match_domain)\_($match_courseid)\_cr_cr_($match_domain)_($match_username)_([^\_]+)$/) {
                 # Activate a custom role                  # Activate a custom role
  my ($one,$two,$three,$four,$five)=($1,$2,$3,$4,$5);   my ($one,$two,$three,$four,$five)=($1,$2,$3,$4,$5);
  my $url='/'.$one.'/'.$two;   my $url='/'.$one.'/'.$two;
Line 1394  END Line 1464  END
         $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end));          $r->print(&Apache::loncommon::commit_customrole($udom,$uname,$securl,$three,$four,$five,$start,$end));
                     }                      }
                 }                  }
     } elsif ($key=~/^form\.act\_([^\_]+)\_(\w+)\_([^\_]+)$/) {      } elsif ($key=~/^form\.act\_($match_domain)\_($match_name)\_([^\_]+)$/) {
  # Activate roles for sections with 3 id numbers   # Activate roles for sections with 3 id numbers
  # set start, end times, and the url for the class   # set start, end times, and the url for the class
  my ($one,$two,$three)=($1,$2,$3);   my ($one,$two,$three)=($1,$2,$3);
Line 1481  END Line 1551  END
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
   
   sub quota_admin {
       my ($setquota,$changeHash) = @_;
       my $quotachanged;
       if (&Apache::lonnet::allowed('mpq',$env{'form.ccdomain'})) {
           # Current user has quota modification privileges
           $quotachanged = 1;
           $changeHash->{'portfolioquota'} = $setquota;
       }
       return $quotachanged;
   }
   
 sub build_roles {  sub build_roles {
     my ($sectionstr,$sections,$role) = @_;      my ($sectionstr,$sections,$role) = @_;
     my $num_sections = 0;      my $num_sections = 0;
Line 1755  sub course_level_table { Line 1836  sub course_level_table {
  my $area=$coursedata{'description'};   my $area=$coursedata{'description'};
         my $type=$coursedata{'type'};          my $type=$coursedata{'type'};
  if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }   if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }
  my $bgcol=$thiscourse;  
  $bgcol=~s/[^7-9a-e]//g;  
  $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);  
  my ($domain,$cnum)=split(/\//,$thiscourse);   my ($domain,$cnum)=split(/\//,$thiscourse);
         my %sections_count;          my %sections_count;
         if (defined($env{'request.course.id'})) {          if (defined($env{'request.course.id'})) {
Line 1769  sub course_level_table { Line 1847  sub course_level_table {
  foreach my $role ('st','ta','ep','in','cc') {   foreach my $role ('st','ta','ep','in','cc') {
     if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {      if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
  my $plrole=&Apache::lonnet::plaintext($role);   my $plrole=&Apache::lonnet::plaintext($role);
  $table .= <<ENDEXTENT;   $table .= &Apache::loncommon::start_data_table_row().
 <tr bgcolor="#$bgcol">  '<td><input type="checkbox" name="act_'.$protectedcourse.'_'.$role.'"></td>
 <td><input type="checkbox" name="act_$protectedcourse\_$role"></td>  <td>'.$plrole.'</td>
 <td>$plrole</td>  <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n";
 <td>$area<br />Domain: $domain</td>  
 ENDEXTENT  
         if ($role ne 'cc') {          if ($role ne 'cc') {
                     if (%sections_count) {                      if (%sections_count) {
                         my $currsec = &course_sections(\%sections_count,$protectedcourse.'_'.$role);                          my $currsec = &course_sections(\%sections_count,$protectedcourse.'_'.$role);
                         $table .=                           $table .= 
                     '<td><table border="0" cellspacing="0" cellpadding="0">'.                      '<td><table class="LC_createuser">'.
                      '<tr><td valign="top">'.$lt{'exs'}.'<br />'.                       '<tr class="LC_section_row">
                           <td valign="top">'.$lt{'exs'}.'<br />'.
                         $currsec.'</td>'.                          $currsec.'</td>'.
                      '<td>&nbsp;&nbsp;</td>'.                       '<td>&nbsp;&nbsp;</td>'.
                      '<td valign="top">&nbsp;'.$lt{'new'}.'<br />'.                       '<td valign="top">&nbsp;'.$lt{'new'}.'<br />'.
Line 1803  ENDEXTENT Line 1880  ENDEXTENT
 <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.= "</tr>\n";                  $table.= &Apache::loncommon::end_data_table_row();
             }              }
         }          }
         foreach my $cust (sort keys %customroles) {          foreach my $cust (sort keys %customroles) {
Line 1811  ENDTIMEENTRY Line 1888  ENDTIMEENTRY
  my $plrole=$cust;   my $plrole=$cust;
                 my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.                  my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.
     '_'.$env{'user.name'}.'_'.$plrole;      '_'.$env{'user.name'}.'_'.$plrole;
  $table .= <<END;   $table .= &Apache::loncommon::start_data_table_row().
 <tr bgcolor="#$bgcol">  '<td><input type="checkbox" name="act_'.$customrole.'"></td>
 <td><input type="checkbox" name="act_$customrole"></td>  <td>'.$plrole.'</td>
 <td>$plrole</td>  <td>'.$area.'</td>'."\n";
 <td>$area</td>  
 END  
                 if (%sections_count) {                  if (%sections_count) {
                     my $currsec = &course_sections(\%sections_count,$customrole);                      my $currsec = &course_sections(\%sections_count,$customrole);
                     $table.=                      $table.=
Line 1839  END Line 1914  END
 "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>  "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td>
 <td><input type=hidden name="end_$customrole" value=''>  <td><input type=hidden name="end_$customrole" value=''>
 <a href=  <a href=
 "javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td></tr>  "javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDENTRY  ENDENTRY
                  $table .= &Apache::loncommon::end_data_table_row();
            }             }
  }   }
     }      }
     return '' if ($table eq ''); # return nothing if there is nothing       return '' if ($table eq ''); # return nothing if there is nothing 
                                  # in the table                                   # in the table
     my $result = <<ENDTABLE;      my $result = '
 <h4>$lt{'crl'}</h4>  <h4>'.$lt{'crl'}.'</h4>'.
 <table border=2><tr><th>$lt{'act'}</th><th>$lt{'rol'}</th><th>$lt{'ext'}</th>  &Apache::loncommon::start_data_table().
 <th>$lt{'grs'}</th><th>$lt{'sta'}</th><th>$lt{'end'}</th></tr>  &Apache::loncommon::start_data_table_header_row().
 $table  '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th>
 </table>  <th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
 ENDTABLE  &Apache::loncommon::end_data_table_header_row().
   &Apache::loncommon::start_data_table_row().
   $table.
   &Apache::loncommon::end_data_table_row().
   &Apache::loncommon::end_data_table();
     return $result;      return $result;
 }  }
   
Line 1869  sub course_sections { Line 1949  sub course_sections {
         $output = '<select name="currsec_'.$role.'" ';          $output = '<select name="currsec_'.$role.'" ';
         my $multiple = 4;          my $multiple = 4;
         if (scalar(@sections) < 4) { $multiple = scalar(@sections); }          if (scalar(@sections) < 4) { $multiple = scalar(@sections); }
         $output .= '"multiple" size="'.$multiple.'">'."\n";          $output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
         foreach my $sec (@sections) {          foreach my $sec (@sections) {
             $output .= '<option value="'.$sec.'">'.$sec."</option>\n";              $output .= '<option value="'.$sec.'">'.$sec."</option>\n";
         }          }
Line 1888  sub course_level_dc { Line 1968  sub course_level_dc {
             ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';              ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'</b>';
     my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu');      my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu');
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
                     'typ' => "Type",  
                     'rol'  => "Role",                      'rol'  => "Role",
                     'grs'  => "Section",                      'grs'  => "Section",
                     'exs'  => "Existing sections",                      'exs'  => "Existing sections",
Line 1899  sub course_level_dc { Line 1978  sub course_level_dc {
                     'sed'  => "Set End Date"                      'sed'  => "Set End Date"
                   );                    );
     my $header = '<h4>'.&mt('Course Level').'</h4>'.      my $header = '<h4>'.&mt('Course Level').'</h4>'.
                  '<table border="2"><tr><th>'.$lt{'typ'}.'</th><th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th></tr>';                   &Apache::loncommon::start_data_table().
     my $otheritems = '<tr><td><select name="crstype" onChange="javascript:setType();">'."\n".                   &Apache::loncommon::start_data_table_header_row().
                      ' <option value="">'.&mt('Please select')."\n".                   '<th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
                      ' <option value="Course">'.&mt('Course')."\n".                   &Apache::loncommon::end_data_table_header_row();
                      ' <option value="Non-standard course">'.&mt('Non-standard course')."\n".      my $otheritems = &Apache::loncommon::start_data_table_row()."\n".
                      '</select>'."\n".  
                      '<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".                       '<td><input type="text" name="coursedesc" value="" onFocus="this.blur();opencrsbrowser('."'cu','dccourse','dcdomain','coursedesc',''".')" /></td>'."\n".
                      '<td><select name="role">'."\n";                       '<td><select name="role">'."\n";
     foreach  my $role ('st','ta','ep','in','cc') {      foreach  my $role ('st','ta','ep','in','cc') {
Line 1935  sub course_level_dc { Line 2013  sub course_level_dc {
 <a href=  <a href=
 "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>  "javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td>
 ENDTIMEENTRY  ENDTIMEENTRY
     $otheritems .= "</tr></table>\n";      $otheritems .= &Apache::loncommon::end_data_table_row().
                      &Apache::loncommon::end_data_table()."\n";
     return $cb_jscript.$header.$hiddenitems.$otheritems;      return $cb_jscript.$header.$hiddenitems.$otheritems;
 }  }
   
Removed from v.1.135  
changed lines
  Added in v.1.149

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