[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.27 and 1.295.2.30

version 1.295.2.27, 2010/01/20 02:57:09 version 1.295.2.30, 2010/03/19 21:59:53
Line 231  sub build_tools_display { Line 231  sub build_tools_display {
                    'uscu'       => "Use custom",                     'uscu'       => "Use custom",
                    'official'   => 'Can request creation of official courses',                     'official'   => 'Can request creation of official courses',
                    'unofficial' => 'Can request creation of unofficial courses',                     'unofficial' => 'Can request creation of unofficial courses',
                      'community'  => 'Can request creation of communities',
     );      );
     if ($context eq 'requestcourses') {      if ($context eq 'requestcourses') {
         %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,          %userenv = &Apache::lonnet::userenvironment($ccdomain,$ccuname,
                       'requestcourses.official','requestcourses.unofficial');                        'requestcourses.official','requestcourses.unofficial',
         @usertools = ('official','unofficial');                        'requestcourses.community');
           @usertools = ('official','unofficial','community');
         @options =('norequest','approval','autolimit','validate');          @options =('norequest','approval','autolimit','validate');
         %validations = &Apache::lonnet::auto_courserequest_checks($ccdomain);          %validations = &Apache::lonnet::auto_courserequest_checks($ccdomain);
         %reqtitles = &courserequest_titles();          %reqtitles = &courserequest_titles();
Line 1454  sub display_existing_roles { Line 1456  sub display_existing_roles {
             $newkey .= '_'.$newrole;              $newkey .= '_'.$newrole;
             if ($start ne '' && $end ne '') {              if ($start ne '' && $end ne '') {
                 $newvalue .= '_'.$end.'_'.$start;                  $newvalue .= '_'.$end.'_'.$start;
               } elsif ($end ne '') {
                   $newvalue .= '_'.$end;
             }              }
             $rolesdump{$newkey} = $newvalue;              $rolesdump{$newkey} = $newvalue;
         }          }
Line 1484  sub display_existing_roles { Line 1488  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 1509  sub display_existing_roles { Line 1513  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 1524  sub display_existing_roles { Line 1528  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;
                 }                  }
Line 2684  sub update_user_data { Line 2688  sub update_user_data {
                         ($env{'user.domain'} eq $env{'form.ccdomain'})) {                          ($env{'user.domain'} eq $env{'form.ccdomain'})) {
                         my %newenvhash;                          my %newenvhash;
                         foreach my $key (keys(%changed)) {                          foreach my $key (keys(%changed)) {
                             if (($key eq 'official') || ($key eq 'unofficial')) {                              if (($key eq 'official') || ($key eq 'unofficial')
                                   || ($key eq 'community')) {
                                 $newenvhash{'environment.requestcourses.'.$key} =                                  $newenvhash{'environment.requestcourses.'.$key} =
                                     $changeHash{'requestcourses.'.$key};                                      $changeHash{'requestcourses.'.$key};
                                 if ($changeHash{'requestcourses.'.$key} ne '') {                                  if ($changeHash{'requestcourses.'.$key} ne '') {
Line 2745  sub update_user_data { Line 2750  sub update_user_data {
                              'portfolio'  => 'Portfolio Availability',                               'portfolio'  => 'Portfolio Availability',
                              'official'   => 'Can Request Official Courses',                               'official'   => 'Can Request Official Courses',
                              'unofficial' => 'Can Request Unofficial Courses',                               'unofficial' => 'Can Request Unofficial Courses',
                                'community'  => 'Can Request Communities',
                              'inststatus' => "Affiliation",                               'inststatus' => "Affiliation",
                              'prvs'       => 'Previous Value:',                               'prvs'       => 'Previous Value:',
                              'chto'       => 'Changed To:'                               'chto'       => 'Changed To:'
Line 2898  END Line 2904  END
                            'portfolio'  => "Portfolio Availability",                             'portfolio'  => "Portfolio Availability",
                            'official'   => "Can Request Official Courses",                             'official'   => "Can Request Official Courses",
                            'unofficial' => "Can Request Unofficial Courses",                             'unofficial' => "Can Request Unofficial Courses",
                              'community'  => "Can Request Communities",
                            'inststatus' => "Affiliation",                             'inststatus' => "Affiliation",
        );         );
             $r->print(<<"END");              $r->print(<<"END");
Removed from v.1.295.2.27  
changed lines
  Added in v.1.295.2.30

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