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

Diff for /loncom/interface/loncreateuser.pm between versions 1.4 and 1.5

version 1.4, 2001/03/02 20:31:34 version 1.5, 2001/03/02 22:06:43
Line 237  Internally authenticated (with initial p Line 237  Internally authenticated (with initial p
 ENDNUSER  ENDNUSER
     } else {      } else {
  $r->print('<h3>Existing user '.$ccuname.' at '.$ccdomain.'</h3>');   $r->print('<h3>Existing user '.$ccuname.' at '.$ccdomain.'</h3>');
           $r->print('<input type=hidden name=cuname value='.$ccuname.'>');
           $r->print('<input type=hidden name=cdomain value='.$ccdomain.'>');
   
         my $rolesdump=&Apache::lonnet::reply(          my $rolesdump=&Apache::lonnet::reply(
                                   "dump:$ccdomain:$ccuname:roles",$uhome);                                    "dump:$ccdomain:$ccuname:roles",$uhome);
         unless ($rolesdump eq 'con_lost') {           unless ($rolesdump eq 'con_lost') { 
Line 253  ENDNUSER Line 256  ENDNUSER
               my ($trole,$tend,$tstart)=split(/_/,$role);                my ($trole,$tend,$tstart)=split(/_/,$role);
               my $bgcol='ffffff';                my $bgcol='ffffff';
               my $allows=0;                my $allows=0;
               if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {                if ($area=~/^\/(\w+)\/(\d\w+)/) {
                  my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);                   my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);
                  $area='Course: '.                   my $carea='Course: '.$coursedata{'description'};
                           $coursedata{'description'}.'<br>Section/Group: '.$3;  
                  $inccourses{$1.'_'.$2}=1;                   $inccourses{$1.'_'.$2}=1;
                  if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) {                   if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) {
      $allows=1;       $allows=1;
Line 264  ENDNUSER Line 266  ENDNUSER
                  $bgcol=$1.'_'.$2;                   $bgcol=$1.'_'.$2;
                  $bgcol=~s/[^8-9b-e]//g;                   $bgcol=~s/[^8-9b-e]//g;
                  $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);                   $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);
                    if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {
                        $carea.='<br>Section/Group: '.$3;
    }
                    $area=$carea;
       } else {        } else {
                  if ($1) {                   if ($1) {
      $incdomains{$1}=1;       $incdomains{$1}=1;
Line 396  ENDTHREEHEAD Line 402  ENDTHREEHEAD
                                       $1,$2,$now).'<br>');                                        $1,$2,$now).'<br>');
  }   }
     } keys %ENV;      } keys %ENV;
     $r->print('</body></html>');  
     map {      map {
  if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) {   if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) {
     $r->print('a:'.$_.': '.$1.' '.$2.' '.$3.'<br>');              my $url='/'.$1.'/'.$2;
               if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) {
    $url.='/'.$ENV{'form.sec_'.$1.'_'.$2.'_'.$3};
               }
               my $start=$now;
               if ($ENV{'form.start_'.$1.'_'.$2.'_'.$3}) {
    $start=$ENV{'form.start_'.$1.'_'.$2.'_'.$3};
               }
               my $end=0;
               if ($ENV{'form.end_'.$1.'_'.$2.'_'.$3}) {
    $end=$ENV{'form.end_'.$1.'_'.$2.'_'.$3};
               }
               $r->print('Assigning: '.$3.' in '.$url.': '.
             &Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'},
                                         $url,$3,$end,$start).'<br>');
  }   }
     } keys %ENV;      } keys %ENV;
       $r->print('</body></html>');
 }  }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
Removed from v.1.4  
changed lines
  Added in v.1.5

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