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

Diff for /loncom/interface/loncreateuser.pm between versions 1.216 and 1.218

version 1.216, 2007/12/21 15:22:01 version 1.218, 2007/12/21 16:23:54
Line 805  ENDNOPORTPRIV Line 805  ENDNOPORTPRIV
             }              }
         }          }
         $r->print('</div><div class="LC_clear_float_footer"></div>');          $r->print('</div><div class="LC_clear_float_footer"></div>');
         my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);          if ($env{'form.action'} ne 'singlestudent') {
         # Build up table of user roles to allow revocation of a role.              &display_existing_roles($r,$ccuname,$ccdomain,\%inccourses);
         my ($tmp) = keys(%rolesdump);          }
         unless ($tmp =~ /^(con_lost|error)/i) {      } ## End of new user/old user logic
            my $now=time;  
    my %lt=&Apache::lonlocal::texthash(      if ($env{'form.action'} eq 'singlestudent') {
     'rer'  => "Existing Roles",          $r->print('<br /><input type="button" value="'.&mt('Enroll Student').'" onClick="setSections(this.form)" />'."\n");
                     'rev'  => "Revoke",                          } else {
           $r->print('<h3>'.&mt('Add Roles').'</h3>');
           my $addrolesdisplay = 0;
           if ($context eq 'domain' || $context eq 'author') {
               $addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain);
           }
           if ($context eq 'domain') {
               my $add_domainroles = &new_domain_roles($r);
               if (!$addrolesdisplay) {
                   $addrolesdisplay = $add_domainroles;
               }
               $r->print(&course_level_dc($env{'request.role.domain'},'Course'));
               $r->print('<br /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()" />'."\n");
           } elsif ($context eq 'author') {
               if ($addrolesdisplay) {
                   $r->print('<br /><input type="button" value="'.&mt('Modify User').'"');
                   if ($newuser) {
                       $r->print(' onClick="verify_message(this.form)" \>'."\n");
                   } else {
                       $r->print('onClick="this.form.submit()" \>'."\n");
                   }
               } else {
                   $r->print('<br /><a href="javascript:backPage(document.cu)">'.
                             &mt('Back to previous page').'</a>');
               }
           } else {
               $r->print(&course_level_table(%inccourses));
               $r->print('<br /><input type="button" value="'.&mt('Modify User').'" onClick="setSections(this.form)" />'."\n");
           }
       }
       $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));
       $r->print('<input type="hidden" name="currstate" value="" />');
       $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />');
       $r->print("</form>".&Apache::loncommon::end_page());
       return;
   }
   
   sub singleuser_breadcrumb {
       my %breadcrumb_text;
       if ($env{'form.action'} eq 'singlestudent') {
           $breadcrumb_text{'search'} = 'Enroll a student';
           $breadcrumb_text{'userpicked'} = 'Select a user',
           $breadcrumb_text{'modify'} = 'Set section/dates',
       } else {
           $breadcrumb_text{'search'} = 'Create/modify user';
           $breadcrumb_text{'userpicked'} = 'Select a user',
           $breadcrumb_text{'modify'} = 'Set user role',
       }
       return %breadcrumb_text;
   }
   
   sub date_sections_select {
       my ($context,$newuser,$formname,$permission) = @_;
       my $cid = $env{'request.course.id'};
       my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity($cid);
       my $date_table = '<h3>'.&mt('Starting and Ending Dates').'</h3>'."\n".
           &Apache::lonuserutils::date_setting_table(undef,undef,$context,
                                                     undef,$formname,$permission);
       my $rowtitle = 'Section';
       my $secbox = '<h3>'.&mt('Section').'</h3>'."\n".
           &Apache::lonuserutils::section_picker($cdom,$cnum,'st',$rowtitle,
                                                 $permission);
       my $output = $date_table.$secbox;
       return $output;
   }
   
   sub validation_javascript {
       my ($context,$ccdomain,$pjump_def,$groupslist,$newuser,$formname,
           $loaditem) = @_;
       my $dc_setcourse_code = '';
       my $nondc_setsection_code = '';
       if ($context eq 'domain') {
           my $dcdom = $env{'request.role.domain'};
           $loaditem->{'onload'} = "document.cu.coursedesc.value='';";
           $dc_setcourse_code = &Apache::lonuserutils::dc_setcourse_js('cu','singleuser');
       } else {
           $nondc_setsection_code =
               &Apache::lonuserutils::setsections_javascript($formname,$groupslist);
       }
       my $js = &user_modification_js($pjump_def,$dc_setcourse_code,
                                      $nondc_setsection_code,$groupslist);
   
       my ($jsback,$elements) = &crumb_utilities();
       my $javascript_validations;
       if ((&Apache::lonnet::allowed('mau',$ccdomain)) || ($newuser)) {
           my ($krbdef,$krbdefdom) =
               &Apache::loncommon::get_kerberos_defaults($ccdomain);
           $javascript_validations =
               &Apache::lonuserutils::javascript_validations('createuser',$krbdefdom,undef,
                                                             undef,$ccdomain);
       }
       $js .= "\n".
              '<script type="text/javascript">'."\n".$jsback."\n".
              $javascript_validations.'</script>';
       return $js;
   }
   
   sub display_existing_roles {
       my ($r,$ccuname,$ccdomain,$inccourses) = @_;
       my %rolesdump=&Apache::lonnet::dump('roles',$ccdomain,$ccuname);
       # Build up table of user roles to allow revocation and re-enabling of roles.
       my ($tmp) = keys(%rolesdump);
       if ($tmp !~ /^(con_lost|error)/i) {
           my $now=time;
           my %lt=&Apache::lonlocal::texthash(
                       'rer'  => "Existing Roles",
                       'rev'  => "Revoke",
                     'del'  => "Delete",                      'del'  => "Delete",
     'ren'  => "Re-Enable",                      'ren'  => "Re-Enable",
                     'rol'  => "Role",                      'rol'  => "Role",
                     'ext'  => "Extent",                      'ext'  => "Extent",
                     'sta'  => "Start",                      'sta'  => "Start",
                     'end'  => "End"                      'end'  => "End",
        );                                         );
            my (%roletext,%sortrole,%roleclass,%rolepriv);          my (%roletext,%sortrole,%roleclass,%rolepriv);
    foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);          foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
     my $b1=join('_',(split('_',$b))[1,0]);                                      my $b1=join('_',(split('_',$b))[1,0]);
     return $a1 cmp $b1;                                      return $a1 cmp $b1;
  } keys(%rolesdump)) {                                  } keys(%rolesdump)) {
                next if ($area =~ /^rolesdef/);              next if ($area =~ /^rolesdef/);
        my $envkey=$area;              my $envkey=$area;
                my $role = $rolesdump{$area};              my $role = $rolesdump{$area};
                my $thisrole=$area;              my $thisrole=$area;
                $area =~ s/\_\w\w$//;              $area =~ s/\_\w\w$//;
                my ($role_code,$role_end_time,$role_start_time) =               my ($role_code,$role_end_time,$role_start_time) =
                    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=~m{^cr/($match_domain)/($match_username)/(\w+)$});                  ($role_code=~m{^cr/($match_domain)/($match_username)/(\w+)$});
                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 =~ m{^/($match_domain)/($match_courseid)} ) {              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";
                    # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).                  # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
                    my %coursedata=                  my %coursedata=
                        &Apache::lonnet::coursedescription($1.'_'.$2);                      &Apache::lonnet::coursedescription($1.'_'.$2);
    my $carea;                  my $carea;
    if (defined($coursedata{'description'})) {                  if (defined($coursedata{'description'})) {
        $carea=$coursedata{'description'}.                      $carea=$coursedata{'description'}.
                            '<br />'.&mt('Domain').': '.$coursedom.('&nbsp;'x8).                          '<br />'.&mt('Domain').': '.$coursedom.('&nbsp;'x8).
      &Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom);       &Apache::loncommon::syllabuswrapper('Syllabus',$coursedir,$coursedom);
        $sortkey.="\0".$coursedata{'description'};                      $sortkey.="\0".$coursedata{'description'};
                        $class=$coursedata{'type'};                      $class=$coursedata{'type'};
    } else {                  } else {
        $carea=&mt('Unavailable course').': '.$area;                      $carea=&mt('Unavailable course').': '.$area;
        $sortkey.="\0".&mt('Unavailable course').': '.$area;                      $sortkey.="\0".&mt('Unavailable course').': '.$area;
    }                  }
    $sortkey.="\0$coursedir";                  $sortkey.="\0$coursedir";
                    $inccourses{$1.'_'.$2}=1;                  $inccourses->{$1.'_'.$2}=1;
                    if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||                  if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||
                        (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {                      (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                        $allowed=1;                      $allowed=1;
                    }                  }
                    if ((&Apache::lonnet::allowed('dro',$1)) ||                  if ((&Apache::lonnet::allowed('dro',$1)) ||
                        (&Apache::lonnet::allowed('dro',$ccdomain))) {                      (&Apache::lonnet::allowed('dro',$ccdomain))) {
                        $delallowed=1;                      $delallowed=1;
                    }                  }
 # - custom role. Needs more info, too  # - custom role. Needs more info, too
    if ($croletitle) {                  if ($croletitle) {
        if (&Apache::lonnet::allowed('ccr',$1.'/'.$2)) {                      if (&Apache::lonnet::allowed('ccr',$1.'/'.$2)) {
    $allowed=1;                          $allowed=1;
    $thisrole.='.'.$role_code;                          $thisrole.='.'.$role_code;
        }                      }
    }                  }
                    # Compute the background color based on $area                  # Compute the background color based on $area
                    if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {                  if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {
                        $carea.='<br />Section: '.$3;                      $carea.='<br />Section: '.$3;
        $sortkey.="\0$3";                      $sortkey.="\0$3";
                    }                      if (!$allowed) {
                    $area=$carea;                          if ($env{'request.course.sec'} eq $3) {
                } else {                              if (&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2.'/'.$3)) {
    $sortkey.="\0".$area;                                  $allowed = 1;
                    # Determine if current user is able to revoke privileges                              }
                    if ($area=~m{^/($match_domain)/}) {                          }
                        if ((&Apache::lonnet::allowed('c'.$role_code,$1)) ||                      }
                   }
                   $area=$carea;
               } else {
                   $sortkey.="\0".$area;
                   # Determine if current user is able to revoke privileges
                   if ($area=~m{^/($match_domain)/}) {
                       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;
                        }                      }
                        if (((&Apache::lonnet::allowed('dro',$1))  ||                      if (((&Apache::lonnet::allowed('dro',$1))  ||
                             (&Apache::lonnet::allowed('dro',$ccdomain))) &&                           (&Apache::lonnet::allowed('dro',$ccdomain))) &&
                            ($role_code ne 'dc')) {                          ($role_code ne 'dc')) {
                            $delallowed=1;                          $delallowed=1;
                        }                      }
                    } else {                  } else {
                        if (&Apache::lonnet::allowed('c'.$role_code,'/')) {                      if (&Apache::lonnet::allowed('c'.$role_code,'/')) {
                            $allowed=1;                          $allowed=1;
                        }                      }
                    }                  }
    if ($role_code eq 'ca' || $role_code eq 'au') {                  if ($role_code eq 'ca' || $role_code eq 'au') {
        $class='Construction Space';                      $class='Construction Space';
    } elsif ($role_code eq 'su') {                  } elsif ($role_code eq 'su') {
        $class='System';                      $class='System';
    } else {                  } else {
        $class='Domain';                      $class='Domain';
    }                  }
                }              }
                if (($role_code eq 'ca') || ($role_code eq 'aa')) {              if (($role_code eq 'ca') || ($role_code eq 'aa')) {
                    $area=~m{/($match_domain)/($match_username)};                  $area=~m{/($match_domain)/($match_username)};
    if (&Apache::lonuserutils::authorpriv($2,$1)) {                  if (&Apache::lonuserutils::authorpriv($2,$1)) {
        $allowed=1;                      $allowed=1;
                    } else {                  } else {
                        $allowed=0;                      $allowed=0;
                    }                  }
                }              }
                my $row = '';              my $row = '';
                $row.= '<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)) {
                    $row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';                  $row.= '<input type="checkbox" name="rev:'.$thisrole.'" />';
                } else {              } else {
                    if ($active) {                  if ($active) {
                       $row.='&nbsp;';  
    } else {  
                       $row.=&mt('expired or revoked');  
    }  
                }  
        $row.='</td><td>';  
                if ($allowed && !$active) {  
                    $row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';  
                } else {  
                    $row.='&nbsp;';  
                }  
        $row.='</td><td>';  
                if ($delallowed) {  
                    $row.= '<input type="checkbox" name="del:'.$thisrole.'" />';  
                } else {  
                    $row.='&nbsp;';                     $row.='&nbsp;';
                }                  } else {
        my $plaintext='';                     $row.=&mt('expired or revoked');
        if (!$croletitle) {                  }
                    $plaintext=&Apache::lonnet::plaintext($role_code,$class)              }
        } else {              $row.='</td><td>';
            $plaintext=              if ($allowed && !$active) {
  "Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";                  $row.= '<input type="checkbox" name="ren:'.$thisrole.'" />';
        }              } else {
                $row.= '</td><td>'.$plaintext.                  $row.='&nbsp;';
                       '</td><td>'.$area.              }
                       '</td><td>'.($role_start_time?localtime($role_start_time)              $row.='</td><td>';
                                                    : '&nbsp;' ).              if ($delallowed) {
                       '</td><td>'.($role_end_time  ?localtime($role_end_time)                  $row.= '<input type="checkbox" name="del:'.$thisrole.'" />';
                                                    : '&nbsp;' )              } else {
                       ."</td>";                  $row.='&nbsp;';
        $sortrole{$sortkey}=$envkey;              }
        $roletext{$envkey}=$row;              my $plaintext='';
        $roleclass{$envkey}=$class;              if (!$croletitle) {
                $rolepriv{$envkey}=$allowed;                  $plaintext=&Apache::lonnet::plaintext($role_code,$class)
                #$r->print($row);              } else {
            } # end of foreach        (table building loop)                  $plaintext=
            my $rolesdisplay = 0;          "Customrole '$croletitle'<br />defined by $croleuname\@$croleudom";
            my %output = ();              }
    foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {              $row.= '</td><td>'.$plaintext.
        $output{$type} = '';                     '</td><td>'.$area.
        foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {                     '</td><td>'.($role_start_time?localtime($role_start_time)
    if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {                                                   : '&nbsp;' ).
        $output{$type}.=                     '</td><td>'.($role_end_time  ?localtime($role_end_time)
                              &Apache::loncommon::start_data_table_row().                                                  : '&nbsp;' )
                              $roletext{$sortrole{$which}}.                     ."</td>";
                              &Apache::loncommon::end_data_table_row();              $sortrole{$sortkey}=$envkey;
    }              $roletext{$envkey}=$row;
        }              $roleclass{$envkey}=$class;
        unless($output{$type} eq '') {              $rolepriv{$envkey}=$allowed;
    $output{$type} = '<tr class="LC_info_row">'.              #$r->print($row);
      "<td align='center' colspan='7'>".&mt($type)."</td></tr>".          } # end of foreach        (table building loop)
                               $output{$type};          my $rolesdisplay = 0;
                    $rolesdisplay = 1;          my %output = ();
        }          foreach my $type ('Construction Space','Course','Group','Domain','System','Unknown') {
    }              $output{$type} = '';
            if ($rolesdisplay == 1) {              foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
                $r->print('                  if ( ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/ ) && ($rolepriv{$sortrole{$which}}) ) {
                       $output{$type}.=
                             &Apache::loncommon::start_data_table_row().
                             $roletext{$sortrole{$which}}.
                             &Apache::loncommon::end_data_table_row();
                   }
               }
               unless($output{$type} eq '') {
                   $output{$type} = '<tr class="LC_info_row">'.
                             "<td align='center' colspan='7'>".&mt($type)."</td></tr>".
                              $output{$type};
                   $rolesdisplay = 1;
               }
           }
           if ($rolesdisplay == 1) {
               $r->print('
 <h3>'.$lt{'rer'}.'</h3>'.  <h3>'.$lt{'rer'}.'</h3>'.
 &Apache::loncommon::start_data_table("LC_createuser").  &Apache::loncommon::start_data_table("LC_createuser").
 &Apache::loncommon::start_data_table_header_row().  &Apache::loncommon::start_data_table_header_row().
Line 987  ENDNOPORTPRIV Line 1100  ENDNOPORTPRIV
 '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.  '</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.
 '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.  '</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'.
 &Apache::loncommon::end_data_table_header_row());  &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(&Apache::loncommon::end_data_table());              $r->print(&Apache::loncommon::end_data_table());
            }          }
         }  # End of unless      }  # End of check for keys in rolesdump
     } ## End of new user/old user logic      return;
   }
   
   sub new_coauthor_roles {
       my ($r,$ccuname,$ccdomain) = @_;
     my $addrolesdisplay = 0;      my $addrolesdisplay = 0;
     $r->print('<h3>'.&mt('Add Roles').'</h3>');      #
 #      # Co-Author
 # Co-Author      #
 #   
     if (&Apache::lonuserutils::authorpriv($env{'user.name'},      if (&Apache::lonuserutils::authorpriv($env{'user.name'},
                                           $env{'request.role.domain'}) &&                                            $env{'request.role.domain'}) &&
         ($env{'user.name'} ne $ccuname || $env{'user.domain'} ne $ccdomain)) {          ($env{'user.name'} ne $ccuname || $env{'user.domain'} ne $ccdomain)) {
         # No sense in assigning co-author role to yourself          # No sense in assigning co-author role to yourself
         $addrolesdisplay = 1;          $addrolesdisplay = 1;
  my $cuname=$env{'user.name'};          my $cuname=$env{'user.name'};
         my $cudom=$env{'request.role.domain'};          my $cudom=$env{'request.role.domain'};
    my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
     'cs'   => "Construction Space",                      'cs'   => "Construction Space",
                     'act'  => "Activate",                                          'act'  => "Activate",
                     'rol'  => "Role",                      'rol'  => "Role",
                     'ext'  => "Extent",                      'ext'  => "Extent",
                     'sta'  => "Start",                      'sta'  => "Start",
Line 1019  ENDNOPORTPRIV Line 1135  ENDNOPORTPRIV
                     'caa'  => "Assistant Co-Author",                      'caa'  => "Assistant Co-Author",
                     'ssd'  => "Set Start Date",                      'ssd'  => "Set Start Date",
                     'sed'  => "Set End Date"                      'sed'  => "Set End Date"
        );                                         );
        $r->print('<h4>'.$lt{'cs'}.'</h4>'."\n".           $r->print('<h4>'.$lt{'cs'}.'</h4>'."\n".
            &Apache::loncommon::start_data_table()."\n".                    &Apache::loncommon::start_data_table()."\n".
            &Apache::loncommon::start_data_table_header_row()."\n".                    &Apache::loncommon::start_data_table_header_row()."\n".
            '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th>'.                    '<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th>'.
            '<th>'.$lt{'ext'}.'</th><th>'.$lt{'sta'}.'</th>'.                    '<th>'.$lt{'ext'}.'</th><th>'.$lt{'sta'}.'</th>'.
            '<th>'.$lt{'end'}.'</th>'."\n".                    '<th>'.$lt{'end'}.'</th>'."\n".
            &Apache::loncommon::end_data_table_header_row()."\n".                    &Apache::loncommon::end_data_table_header_row()."\n".
            &Apache::loncommon::start_data_table_row()."\n".                    &Apache::loncommon::start_data_table_row().'
            '<td>             <td>
             <input type=checkbox name="act_'.$cudom.'_'.$cuname.'_ca" />              <input type=checkbox name="act_'.$cudom.'_'.$cuname.'_ca" />
            </td>             </td>
            <td>'.$lt{'cau'}.'</td>             <td>'.$lt{'cau'}.'</td>
Line 1039  ENDNOPORTPRIV Line 1155  ENDNOPORTPRIV
 <td><input type="hidden" name="end_'.$cudom.'_'.$cuname.'_ca" value="" />  <td><input type="hidden" name="end_'.$cudom.'_'.$cuname.'_ca" value="" />
 <a href=  <a href=
 "javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".  "javascript:pjump('."'date_end','End Date Co-Author',document.cu.end_$cudom\_$cuname\_ca.value,'end_$cudom\_$cuname\_ca','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
           &Apache::loncommon::end_data_table_row()."\n".                &Apache::loncommon::end_data_table_row()."\n".
           &Apache::loncommon::start_data_table_row()."\n".                &Apache::loncommon::start_data_table_row()."\n".
 '<td><input type=checkbox name="act_'.$cudom.'_'.$cuname.'_aa" /></td>  '<td><input type=checkbox name="act_'.$cudom.'_'.$cuname.'_aa" /></td>
 <td>'.$lt{'caa'}.'</td>  <td>'.$lt{'caa'}.'</td>
 <td>'.$cudom.'_'.$cuname.'</td>  <td>'.$cudom.'_'.$cuname.'</td>
Line 1050  ENDNOPORTPRIV Line 1166  ENDNOPORTPRIV
 <td><input type="hidden" name="end_'.$cudom.'_'.$cuname.'_aa" value="" />  <td><input type="hidden" name="end_'.$cudom.'_'.$cuname.'_aa" value="" />
 <a href=  <a href=
 "javascript:pjump('."'date_end','End Date Assistant Co-Author',document.cu.end_$cudom\_$cuname\_aa.value,'end_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".  "javascript:pjump('."'date_end','End Date Assistant Co-Author',document.cu.end_$cudom\_$cuname\_aa.value,'end_$cudom\_$cuname\_aa','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'."\n".
          &Apache::loncommon::end_data_table_row()."\n".               &Apache::loncommon::end_data_table_row()."\n".
          &Apache::loncommon::end_data_table());               &Apache::loncommon::end_data_table());
     } elsif ($env{'request.role'} =~ /^au\./) {      } elsif ($env{'request.role'} =~ /^au\./) {
         if (!(&Apache::lonuserutils::authorpriv($env{'user.name'},          if (!(&Apache::lonuserutils::authorpriv($env{'user.name'},
                                                 $env{'request.role.domain'}))) {                                                  $env{'request.role.domain'}))) {
             $r->print('<span class="LC_error">'.              $r->print('<span class="LC_error">'.
                       &mt('You do not have privileges to assign co-author roles.').                        &mt('You do not have privileges to assign co-author roles.').
                       '</span>');                        '</span>');
         } elsif (($env{'user.name'} eq $ccuname) &&           } elsif (($env{'user.name'} eq $ccuname) &&
              ($env{'user.domain'} eq $ccdomain)) {               ($env{'user.domain'} eq $ccdomain)) {
            $r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Construction Space is not permitted'));              $r->print(&mt('Assigning yourself a co-author or assistant co-author role in your own author area in Construction Space is not permitted'));
         }          }
     }      }
 #      return $addrolesdisplay;;
 # Domain level  }
 #  
   sub new_domain_roles {
       my ($r) = @_;
       my $addrolesdisplay = 0;
       #
       # Domain level
       #
     my $num_domain_level = 0;      my $num_domain_level = 0;
     my $domaintext =       my $domaintext =
     '<h4>'.&mt('Domain Level').'</h4>'.      '<h4>'.&mt('Domain Level').'</h4>'.
     &Apache::loncommon::start_data_table().      &Apache::loncommon::start_data_table().
     &Apache::loncommon::start_data_table_header_row().      &Apache::loncommon::start_data_table_header_row().
Line 1079  ENDNOPORTPRIV Line 1201  ENDNOPORTPRIV
         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);
        my %lt=&Apache::lonlocal::texthash(                 my %lt=&Apache::lonlocal::texthash(
                     'ssd'  => "Set Start Date",                      'ssd'  => "Set Start Date",
                     'sed'  => "Set End Date"                      'sed'  => "Set End Date"
        );                                         );
                $num_domain_level ++;                 $num_domain_level ++;
                $domaintext .=                  $domaintext .=
 &Apache::loncommon::start_data_table_row().  &Apache::loncommon::start_data_table_row().
 '<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'" /></td>  '<td><input type=checkbox name="act_'.$thisdomain.'_'.$role.'" /></td>
 <td>'.$plrole.'</td>  <td>'.$plrole.'</td>
Line 1097  ENDNOPORTPRIV Line 1219  ENDNOPORTPRIV
 "javascript:pjump('."'date_end','End Date $plrole',document.cu.end_$thisdomain\_$role.value,'end_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'.  "javascript:pjump('."'date_end','End Date $plrole',document.cu.end_$thisdomain\_$role.value,'end_$thisdomain\_$role','cu.pres','dateset'".')">'.$lt{'sed'}.'</a></td>'.
 &Apache::loncommon::end_data_table_row();  &Apache::loncommon::end_data_table_row();
             }              }
         }           }
     }      }
     $domaintext.= &Apache::loncommon::end_data_table();      $domaintext.= &Apache::loncommon::end_data_table();
     if ($num_domain_level > 0) {      if ($num_domain_level > 0) {
         $r->print($domaintext);          $r->print($domaintext);
         $addrolesdisplay = 1;          $addrolesdisplay = 1;
     }      }
 #      return $addrolesdisplay;
 # Course level  
 #  
   
     if ($env{'request.role'} =~ m{^dc\./($match_domain)/$}) {  
         $r->print(&course_level_dc($1,'Course'));  
         $r->print('<br /><input type="button" value="'.&mt('Modify User').'" onClick="setCourse()" />'."\n");  
     } elsif ($env{'request.role'} =~ m{^au\./($match_domain)/$}) {  
         if ($addrolesdisplay) {  
             $r->print('<br /><input type="button" value="'.&mt('Modify User').'"');  
             if ($newuser) {  
                 $r->print(' onClick="verify_message(this.form)" \>'."\n");  
             } else {  
                 $r->print('onClick="this.form.submit()" \>'."\n");   
             }  
         } else {  
             $r->print('<br /><a href="javascript:backPage(document.cu)">'.  
                       &mt('Back to previous page').'</a>');  
         }  
     } else {  
         $r->print(&course_level_table(%inccourses));  
         $r->print('<br /><input type="button" value="'.&mt('Modify User').'" onClick="setSections(this.form)" />'."\n");  
     }  
     $r->print(&Apache::lonhtmlcommon::echo_form_input(['phase','userrole','ccdomain','prevphase','currstate','ccuname','ccdomain']));  
     $r->print('<input type="hidden" name="currstate" value="" />');  
     $r->print('<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />');  
     $r->print("</form>".&Apache::loncommon::end_page());  
 }  
   
 sub singleuser_breadcrumb {  
     my %breadcrumb_text;  
     if ($env{'form.action'} eq 'singlestudent') {  
         $breadcrumb_text{'search'} = 'Enroll a student';  
         $breadcrumb_text{'userpicked'} = 'Select a user',  
         $breadcrumb_text{'modify'} = 'Set section/dates',  
     } else {  
         $breadcrumb_text{'search'} = 'Create/modify user';  
         $breadcrumb_text{'userpicked'} = 'Select a user',  
         $breadcrumb_text{'modify'} = 'Set user role',  
     }  
     return %breadcrumb_text;  
 }  
   
 sub date_sections_select {  
     my ($context,$newuser,$formname,$permission) = @_;  
     my $cid = $env{'request.course.id'};  
     my ($cnum,$cdom) = &Apache::lonuserutils::get_course_identity($cid);  
     my $date_table = '<h3>'.&mt('Starting and Ending Dates').'</h3>'."\n".  
         &Apache::lonuserutils::date_setting_table(undef,undef,$context,  
                                                   undef,$formname,$permission);  
     my $rowtitle = 'Section';  
     my $secbox = '<h3>'.&mt('Section').'</h3>'."\n".  
         &Apache::lonuserutils::section_picker($cdom,$cnum,'st',$rowtitle,  
                                               $permission);  
     my $output = $date_table.$secbox;  
     return $output;  
 }  
   
 sub validation_javascript {  
     my ($context,$ccdomain,$pjump_def,$groupslist,$newuser,$formname,  
         $loaditem) = @_;  
     my $dc_setcourse_code = '';  
     my $nondc_setsection_code = '';  
     if ($context eq 'domain') {  
         my $dcdom = $env{'request.role.domain'};  
         $loaditem->{'onload'} = "document.cu.coursedesc.value='';";  
         $dc_setcourse_code = &Apache::lonuserutils::dc_setcourse_js('cu','singleuser');  
     } else {  
         $nondc_setsection_code =  
             &Apache::lonuserutils::setsections_javascript($formname,$groupslist);  
     }  
     my $js = &user_modification_js($pjump_def,$dc_setcourse_code,  
                                    $nondc_setsection_code,$groupslist);  
   
     my ($jsback,$elements) = &crumb_utilities();  
     my $javascript_validations;  
     if ((&Apache::lonnet::allowed('mau',$ccdomain)) || ($newuser)) {  
         my ($krbdef,$krbdefdom) =  
             &Apache::loncommon::get_kerberos_defaults($ccdomain);  
         $javascript_validations =  
             &Apache::lonuserutils::javascript_validations('createuser',$krbdefdom,undef,  
                                                           undef,$ccdomain);  
     }  
     $js .= "\n".  
            '<script type="text/javascript">'."\n".$jsback."\n".  
            $javascript_validations.'</script>';  
     return $js;  
 }  }
   
 sub user_authentication {  sub user_authentication {
Removed from v.1.216  
changed lines
  Added in v.1.218

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