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

Diff for /loncom/interface/loncreateuser.pm between versions 1.136 and 1.138

version 1.136, 2006/11/22 21:55:53 version 1.138, 2006/11/23 00:53:19
Line 216  END Line 216  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 238  sub print_user_modification_page { Line 235  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 623  END Line 620  END
 # 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=~/^cr\/(\w+)\/(\w+)\/(\w+)$/);
                my $bgcol='ffffff';  
                my $allowed=0;                 my $allowed=0;
                my $delallowed=0;                 my $delallowed=0;
        my $sortkey=$role_code;         my $sortkey=$role_code;
Line 664  END Line 660  END
        }         }
    }     }
                    # Compute the background color based on $area                     # Compute the background color based on $area
                    $bgcol=$1.'_'.$2;  
                    $bgcol=~s/[^7-9a-e]//g;  
                    $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);  
                    if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {                     if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {
                        $carea.='<br />Section: '.$3;                         $carea.='<br />Section: '.$3;
        $sortkey.="\0$3";         $sortkey.="\0$3";
Line 706  END Line 699  END
                        $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 737  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 750  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 1029  sub update_user_data { Line 1026  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 1037  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 1774  sub course_level_table { Line 1773  sub course_level_table {
                     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 />'.
Removed from v.1.136  
changed lines
  Added in v.1.138

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