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

Diff for /loncom/interface/loncreateuser.pm between versions 1.295.2.26 and 1.295.2.28

version 1.295.2.26, 2010/01/19 23:41:43 version 1.295.2.28, 2010/01/20 14:35:36
Line 219  END_SCRIPT Line 219  END_SCRIPT
 sub build_tools_display {  sub build_tools_display {
     my ($ccuname,$ccdomain,$context) = @_;      my ($ccuname,$ccdomain,$context) = @_;
     my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay,      my (@usertools,%userenv,$output,@options,%validations,%reqtitles,%reqdisplay,
         $colspan);          $colspan,$isadv,%domconfig);
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                    'blog'       => "Personal User Blog",                     'blog'       => "Personal User Blog",
                    'aboutme'    => "Personal Information Page",                     'aboutme'    => "Personal Information Page",
Line 241  sub build_tools_display { Line 241  sub build_tools_display {
         %reqtitles = &courserequest_titles();          %reqtitles = &courserequest_titles();
         %reqdisplay = &courserequest_display();          %reqdisplay = &courserequest_display();
         $colspan = ' colspan="2"';          $colspan = ' colspan="2"';
           %domconfig =
               &Apache::lonnet::get_dom('configuration',['requestcourses'],$ccdomain);
           $isadv = &Apache::lonnet::is_advanced_user($ccuname,$ccdomain);
     } else {      } else {
         %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,          %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
                           'tools.aboutme','tools.portfolio','tools.blog');                            'tools.aboutme','tools.portfolio','tools.blog');
Line 287  sub build_tools_display { Line 290  sub build_tools_display {
                    &Apache::loncommon::start_data_table_row()."\n";                     &Apache::loncommon::start_data_table_row()."\n";
         if ($context eq 'requestcourses') {          if ($context eq 'requestcourses') {
             my ($curroption,$currlimit);              my ($curroption,$currlimit);
             $curroption = $userenv{$context.'.'.$item};              if ($userenv{$context.'.'.$item} ne '') {
                   $curroption = $userenv{$context.'.'.$item};
               } else {
                   my (@inststatuses);
                   $curroption =
                       &Apache::loncoursequeueadmin::get_processtype($ccuname,$ccdomain,$isadv,$ccdomain,
                                                                  $item,\@inststatuses,\%domconfig);
               }
             if (!$curroption) {              if (!$curroption) {
                 $curroption = 'norequest';                  $curroption = 'norequest';
             }              }
Line 1474  sub display_existing_roles { Line 1484  sub display_existing_roles {
         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";              my $cid = $1.'_'.$2;
             # $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($cid);
             if ($coursedir =~ /^$match_community$/) {              if ($coursedir =~ /^$match_community$/) {
                 $class='Community';                  $class='Community';
             }              }
Line 1499  sub display_existing_roles { Line 1509  sub display_existing_roles {
                 }                  }
             }              }
             $sortkey.="\0$coursedir";              $sortkey.="\0$coursedir";
             $inccourses->{$1.'_'.$2}=1;              $inccourses->{$cid}=1;
             if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||              if ((&Apache::lonnet::allowed('c'.$role_code,$coursedom.'/'.$coursedir)) ||
                 (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {                  (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {
                 $allowed=1;                  $allowed=1;
             }              }
Line 1514  sub display_existing_roles { Line 1524  sub display_existing_roles {
                     }                      }
                 }                  }
             }              }
             if ((&Apache::lonnet::allowed('dro',$1)) ||              if ((&Apache::lonnet::allowed('dro',$coursedom)) ||
                 (&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',$coursedom.'/'.$coursedir)) {
                     $allowed=1;                      $allowed=1;
                     $thisrole.='.'.$role_code;                      $thisrole.='.'.$role_code;
                 }                  }
Removed from v.1.295.2.26  
changed lines
  Added in v.1.295.2.28

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