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

Diff for /loncom/interface/loncreateuser.pm between versions 1.125.2.4 and 1.125.2.7

version 1.125.2.4, 2006/08/11 22:47:36 version 1.125.2.7, 2006/09/07 21:43:20
Line 321  sub print_user_modification_page { Line 321  sub print_user_modification_page {
             else {               else { 
                 var coursename = "_$dcdom"+"_"+course+"_"+userrole                  var coursename = "_$dcdom"+"_"+course+"_"+userrole
                 document.cu.elements[numcourse].name = "act"+coursename                  document.cu.elements[numcourse].name = "act"+coursename
                 document.cu.elements[numcourse+5].name = "sec"+coursename                  document.cu.elements[numcourse+4].name = "sec"+coursename
                 document.cu.elements[numcourse+5].value = section                  document.cu.elements[numcourse+4].value = section
                 document.cu.elements[numcourse+7].name = "start"+coursename                  document.cu.elements[numcourse+6].name = "start"+coursename
                 document.cu.elements[numcourse+8].name = "end"+coursename                  document.cu.elements[numcourse+7].name = "end"+coursename
             }              }
         }          }
         document.cu.submit();          document.cu.submit();
Line 604  END Line 604  END
                if ($area =~ /^\/(\w+)\/(\d\w+)/ ) {                 if ($area =~ /^\/(\w+)\/(\d\w+)/ ) {
    $class='Course';     $class='Course';
                    my ($coursedom,$coursedir) = ($1,$2);                     my ($coursedom,$coursedir) = ($1,$2);
    $sortkey.="\0$1";     $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);
Line 619  END Line 619  END
        $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";
                    $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))) {
Removed from v.1.125.2.4  
changed lines
  Added in v.1.125.2.7

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