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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.48 and 1.52

version 1.48, 2006/05/30 20:12:15 version 1.52, 2006/07/11 02:28:22
Line 53  sub handler { Line 53  sub handler {
        'cdomelement','cnameelement','roleelement',         'cdomelement','cnameelement','roleelement',
                                'pickedcourse','instcodefilter',                                 'pickedcourse','instcodefilter',
                                'ownerfilter','coursefilter','multiple',                                 'ownerfilter','coursefilter','multiple',
                                'type']);                                 'type','ownerdomfilter']);
 # domain filter and selection  # domain filter and selection
     my $domainfilter=$env{'form.domainfilter'};      my $domainfilter=$env{'form.domainfilter'};
     $domainfilter=~s/\W//g;      $domainfilter=~s/\W//g;
Line 70  sub handler { Line 70  sub handler {
     my $listinstcode=&HTML::Entities::encode($instcodefilter,'<>&"');      my $listinstcode=&HTML::Entities::encode($instcodefilter,'<>&"');
 # course owner filter  # course owner filter
     my $ownerfilter=$env{'form.ownerfilter'};      my $ownerfilter=$env{'form.ownerfilter'};
     unless ($ownerfilter) { $ownerfilter=''; }      $ownerfilter=~s/\W//g;
     my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"');      my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"');
   # course ownerdomain filter
       my $ownerdomfilter=$env{'form.ownerdomfilter'};
       $ownerdomfilter=~s/\W//g;
       my $ownerdomselectform=
          &Apache::loncommon::select_dom_form($ownerdomfilter,'ownerdomfilter',1);
 # course ID filter for DCs only  # course ID filter for DCs only
     my ($courseidtag,$coursefilter);      my ($courseidtag,$coursefilter);
     if ($env{'user.adv'} && $domainfilter && exists($env{'user.role.dc./'.      if ($env{'user.adv'} && $domainfilter && exists($env{'user.role.dc./'.
Line 100  sub handler { Line 105  sub handler {
                       ['-1','86400','604800','2592000','7776000',                        ['-1','86400','604800','2592000','7776000',
       '15552000','31104000']));        '15552000','31104000']));
 # if called from loncreateuser, report sections, then close  # if called from loncreateuser, report sections, then close
     my (%loaditem,$seclist,$groupslist);      my (%loaditem,$seclist,$groupslist,$roleslist,$rolesnameslist,
    $accesslist,$accessnameslist);
       my $sec_element = 'currsec';
       my $grplist_element = 'groups';
     my $num_sections = 0;      my $num_sections = 0;
     if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {      my $num_groups = 0;
         $loaditem{'onload'} ="setSections()";      my $num_roles = 0;
         my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};      my $num_access = 0;
       my ($cdom,$cnum);
         my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum);      if ($env{'form.pickedcourse'}) {
         my @sections =  (sort {$a <=> $b} keys(%sections_count));          ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};
  $seclist = join('","',@sections);  
         $num_sections = scalar(@sections);  
         my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);  
  $groupslist = join(',',sort(keys(%curr_groups)));  
     }      }
     my $jscript;  
     my $type = $env{'form.type'};      my $type = $env{'form.type'};
     if (!defined($env{'form.type'})) {      if (!defined($env{'form.type'})) {
         $type = 'Course';          $type = 'Course';
     }      }
     my $typeselectform =  '<select name="type" size="1"';      if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {
     if (!$type) {          $loaditem{'onload'} ="setSections()";
         $typeselectform .= ' selected="selected"';          ($seclist,$num_sections,$groupslist,$num_groups) = 
                &build_selection_lists($cdom,$cnum,$type,undef,undef,
                                       $env{'form.form'});
       }
   # if called from portfolio, report roles, sections, groups and close
       my ($roles_element,$groups_element,$status_element,$setitems_function);
       if ($env{'form.form'} eq 'portform' && $env{'form.pickedcourse'}) {
           my ($row_id) = ($env{'form.cnumelement'} =~ /^crsnum_(\d+)$/);
           $roles_element = 'role_'.$row_id.'_1';
           $groups_element = 'group_'.$row_id.'_1';
           $sec_element = 'section_'.$row_id.'_1';
           $status_element = 'access_'.$row_id.'_1';
           $grplist_element = 'grplist_'.$row_id.'_1';
           $loaditem{'onload'} ="setItems()";
           ($seclist,$num_sections,$groupslist,$num_groups,$roleslist,$num_roles,
            $rolesnameslist,$accesslist,$num_access,$accessnameslist) =
                  &build_selection_lists($cdom,$cnum,$type,1,1,$env{'form.form'});
           $setitems_function = qq|
   function setItems() {
       opener.document.$env{"form.form"}.activate.checked = true;
       setRoles();
       setGroups();
       setStatus();
       setSections();
   }
   
   function setRoles() {
       var numRoles = $num_roles
       var rolesArray = new Array("$roleslist");
       var roleNamesArray = new Array("$rolesnameslist");
       opener.document.$env{"form.form"}.$roles_element.length = 0;
       if (numRoles == 0) {
           opener.document.$env{"form.form"}.$roles_element.multiple=false;
           opener.document.$env{"form.form"}.$roles_element.size=1;
           opener.document.$env{"form.form"}.$roles_element.options[0] = new Option('No existing roles','',false,false);
       } else {
           if (numRoles == 1) {
               opener.document.$env{"form.form"}.$roles_element.multiple=false;
               opener.document.$env{"form.form"}.$roles_element.size=1;
               opener.document.$env{"form.form"}.$roles_element.options[0] = new Option('Select','',true,true);
               opener.document.$env{"form.form"}.$roles_element.options[1] = new Option(roleNamesArray[0],rolesArray[0],false,false);
           } else {
               for (var i=0; i<numRoles; i++) {
                   opener.document.$env{"form.form"}.$roles_element.options[i] = new Option(roleNamesArray[i],rolesArray[i],false,false);
               }
               opener.document.$env{"form.form"}.$roles_element.multiple=true;
               if (numRoles < 3) {
                   opener.document.$env{"form.form"}.$roles_element.size=numRoles;
               } else {
                   opener.document.$env{"form.form"}.$roles_element.size=3;
               }
               opener.document.$env{"form.form"}.$roles_element.options[0].selected = false;
           }
       }
   }
   
   function setStatus() {
       var numStatus = $num_access;
       var statusArray = new Array("$accesslist");
       var statusNamesArray = new Array("$accessnameslist");
       opener.document.$env{"form.form"}.$status_element.multiple=true;
       opener.document.$env{"form.form"}.$status_element.size=3;
       for (var i=0; i<numStatus; i++) {
           opener.document.$env{"form.form"}.$status_element.options[i] = new Option(statusNamesArray[i],statusArray[i],false,false);
     }      }
   }
   
   function setGroups() {
       var numGroups = $num_groups;
       var groupsArray = new Array("$groupslist");
       opener.document.$env{"form.form"}.$groups_element.length = 0;
       if (numGroups == 0) {
           opener.document.$env{"form.form"}.$groups_element.multiple=false;
           opener.document.$env{"form.form"}.$groups_element.size=1;
           opener.document.$env{"form.form"}.$groups_element.options[0] = new Option('No existing groups','',false,false);
       } else {
           if (numGroups == 1) {
               opener.document.$env{"form.form"}.$groups_element.multiple=false;
               opener.document.$env{"form.form"}.$groups_element.size=1;
               opener.document.$env{"form.form"}.$groups_element.options[0] = new Option('Select','',true,true);
               opener.document.$env{"form.form"}.$groups_element.options[1] = new Option('No group','',false,false);
               opener.document.$env{"form.form"}.$groups_element.options[2] = new Option(groupsArray[0],groupsArray[0],false,false);
           } else {
               for (var i=0; i<numGroups; i++) {
                   opener.document.$env{"form.form"}.$groups_element.options[i] = new Option(groupsArray[i],groupsArray[i],false,false);
               }
               opener.document.$env{"form.form"}.$groups_element.multiple=true;
               if (numGroups < 3) {
                   opener.document.$env{"form.form"}.$groups_element.size=numGroups;
               } else {
                   opener.document.$env{"form.form"}.$groups_element.size=3;
               }
               opener.document.$env{"form.form"}.$groups_element.options[0].selected = false;
           }
       }
   }
   
   |;
       }
       my $jscript;
       my $typeselectform =  '<select name="type" size="1"';
     $typeselectform .= ">\n";      $typeselectform .= ">\n";
     foreach my $posstype ('Course','Group') {       foreach my $posstype ('Course','Group') { 
         $typeselectform.='<option value="'.$posstype.'" "'.          $typeselectform.='<option value="'.$posstype.'" "'.
Line 146  sub handler { Line 248  sub handler {
       'cdo' => &mt('[_1] Domain',$type),        'cdo' => &mt('[_1] Domain',$type),
               'cin' => &mt('Course Institutional Code'),                'cin' => &mt('Course Institutional Code'),
               'cow' => &mt("[_1] Owner's Username",$type),                'cow' => &mt("[_1] Owner's Username",$type),
                 'cod' => &mt("[_1] Owner's Domain", $type),
               'cog' => &mt('Course or Group')                'cog' => &mt('Course or Group')
              );               );
         
Line 163  sub handler { Line 266  sub handler {
         $lastaction = 'document.courselist.pickedcourse.value = cdom+"_"+cname;'."\n".          $lastaction = 'document.courselist.pickedcourse.value = cdom+"_"+cname;'."\n".
                       'document.courselist.submit();';                        'document.courselist.submit();';
     }      }
       if ($env{'form.form'} eq 'portform') {
           $lastaction = 'document.courselist.pickedcourse.value = cdom+"_"+cname;'."\n".
                         'document.courselist.submit();';
       }
     my $roledom = $env{'form.roleelement'};      my $roledom = $env{'form.roleelement'};
     if ($roledom) {      if ($roledom) {
         $roleelement = '<input type="hidden" name="roleelement" value="'.$roledom.'" />';          $roleelement = '<input type="hidden" name="roleelement" value="'.$roledom.'" />';
Line 171  sub handler { Line 278  sub handler {
     }      }
     my $instcodeform;      my $instcodeform;
     if ($type eq 'Course') {      if ($type eq 'Course') {
         $instcodeform = $lt{'cin'}.':<input type="text" name="instcodefilter"           $instcodeform = $lt{'cin'}.': <input type="text" name="instcodefilter" 
  size="10" value="'.$listinstcode.'" /><br />';   size="10" value="'.$listinstcode.'" /><br />';
     }      }
   
     my %elements = (      my %elements = (
                      Course => {                       Course => {
                                  name  => 'coursepick',                                   name  => 'coursepick',
Line 251  function gochoose(cname,cdom,cdesc,multi Line 357  function gochoose(cname,cdom,cdesc,multi
 function setSections() {  function setSections() {
     var numSections = $num_sections      var numSections = $num_sections
     var sectionsArray = new Array("$seclist")      var sectionsArray = new Array("$seclist")
     opener.document.$env{"form.form"}.currsec.length = 0      opener.document.$env{"form.form"}.$sec_element.length = 0
     if (numSections == 0) {      if (numSections == 0) {
         opener.document.$env{"form.form"}.currsec.multiple=false          opener.document.$env{"form.form"}.$sec_element.multiple=false
         opener.document.$env{"form.form"}.currsec.size=1;          opener.document.$env{"form.form"}.$sec_element.size=1;
         opener.document.$env{"form.form"}.currsec.options[0] = new Option('No existing sections','',false,false)          opener.document.$env{"form.form"}.$sec_element.options[0] = new Option('No existing sections','',false,false)
     } else {      } else {
         if (numSections == 1) {          if (numSections == 1) {
             opener.document.$env{"form.form"}.currsec.multiple=false;              opener.document.$env{"form.form"}.$sec_element.multiple=false;
             opener.document.$env{"form.form"}.currsec.size=1;              opener.document.$env{"form.form"}.$sec_element.size=1;
             opener.document.$env{"form.form"}.currsec.options[0] = new Option('Select','',true,true);              opener.document.$env{"form.form"}.$sec_element.options[0] = new Option('Select','',true,true);
             opener.document.$env{"form.form"}.currsec.options[1] = new Option('No section','',false,false)               opener.document.$env{"form.form"}.$sec_element.options[1] = new Option('No section','',false,false) 
             opener.document.$env{"form.form"}.currsec.options[2] = new Option(sectionsArray[0],sectionsArray[0],false,false);              opener.document.$env{"form.form"}.$sec_element.options[2] = new Option(sectionsArray[0],sectionsArray[0],false,false);
         } else {          } else {
             for (var i=0; i<numSections; i++) {              for (var i=0; i<numSections; i++) {
                 opener.document.$env{"form.form"}.currsec.options[i] = new Option(sectionsArray[i],sectionsArray[i],false,false)                  opener.document.$env{"form.form"}.$sec_element.options[i] = new Option(sectionsArray[i],sectionsArray[i],false,false)
             }              }
             opener.document.$env{"form.form"}.currsec.multiple=true              opener.document.$env{"form.form"}.$sec_element.multiple=true
             if (numSections < 3) {              if (numSections < 3) {
                 opener.document.$env{"form.form"}.currsec.size=numSections;                  opener.document.$env{"form.form"}.$sec_element.size=numSections;
             } else {              } else {
                 opener.document.$env{"form.form"}.currsec.size=3;                  opener.document.$env{"form.form"}.$sec_element.size=3;
             }              }
             opener.document.$env{"form.form"}.currsec.options[0].selected = false              opener.document.$env{"form.form"}.$sec_element.options[0].selected = false
         }          }
     }      }
     opener.document.$env{"form.form"}.groups.value='$groupslist';      opener.document.$env{"form.form"}.$grplist_element.value='$groupslist';
     self.close()      self.close()
 }  }
   
   $setitems_function
   
 $jscript  $jscript
 </script>  </script>
 $submitopener  $submitopener
Line 300  $instcodeform Line 408  $instcodeform
 $lt{'cow'}:  $lt{'cow'}:
 <input type="text" name="ownerfilter" size="10" value="$listowner" />  <input type="text" name="ownerfilter" size="10" value="$listowner" />
 <br />  <br />
   $lt{'cod'}: $ownerdomselectform
   <br />
 $courseidtag  $courseidtag
 $lt{'cde'}:  $lt{'cde'}:
 <input type="text" name="descriptfilter" size="40" value="$listdescript" />  <input type="text" name="descriptfilter" size="40" value="$listdescript" />
Line 313  ENDSCRIPT Line 423  ENDSCRIPT
         $r->rflush();          $r->rflush();
  unless ($descriptfilter) { $descriptfilter='.'; }   unless ($descriptfilter) { $descriptfilter='.'; }
         unless ($instcodefilter) { $instcodefilter='.'; }          unless ($instcodefilter) { $instcodefilter='.'; }
         unless ($ownerfilter) { $ownerfilter='.'; }          my $combownerfilter;
         unless ($coursefilter) { $coursefilter='.'; }          if (($ownerfilter ne '') || ($ownerdomfilter ne '')) {
         unless ($type) { $type = '.'; }              $combownerfilter = $ownerfilter.':'.$ownerdomfilter;
           }
           if ($combownerfilter eq '') { $combownerfilter='.'; }
           if ($coursefilter eq '') { $coursefilter='.'; }
           if ($type eq '') { $type = '.'; }
         my $timefilter=($sincefilter==-1?1:time-$sincefilter);          my $timefilter=($sincefilter==-1?1:time-$sincefilter);
  my %courses=   my %courses = &Apache::lonnet::courseiddump($domainfilter,$descriptfilter,
     &Apache::lonnet::courseiddump                                       $timefilter,$instcodefilter,$combownerfilter,
     ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter,undef,undef,$type);                                       $coursefilter,undef,undef,$type);
  $r->print('<form name="courselist" method="post" action="/adm/pickcourse">');   $r->print('<form name="courselist" method="post" action="/adm/pickcourse">');
  my %by_descrip;   my %by_descrip;
         my $numcourses = keys(%courses);          my $numcourses = keys(%courses);
Line 392  sub course_chooser { Line 506  sub course_chooser {
                   "'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n";                    "'".$cnum."','".$cdom."','".$cleandesc."')".'" />'."\n";
     }      }
     return $output;      return $output;
 }   }
   
   sub build_selection_lists {
       my ($cdom,$cnum,$type,$needroles,$needaccess,$caller) = @_;
       my ($sections,$groups,$allroles,$roleshash,$accesshash) = 
             &Apache::loncommon::get_secgrprole_info($cdom,$cnum,$needroles,$type);
       if ($caller eq 'portform') {
           if (@{$sections} == 0) {
               @{$sections} = ('none');
           } else {
               unshift(@{$sections},('all','none'));
           }
           if (@{$groups} == 0) {
               @{$groups} = ('none');
           } else {
               unshift(@{$groups},('all','none'));
           }
   
       } 
       my $num_sections = scalar(@{$sections});
       my $seclist = join('","',@{$sections});
       my $num_groups = scalar(@{$groups});
       my $groupslist = join('","',@{$groups});
       my ($roleslist,$num_roles,$rolesnameslist,$num_access,$accesslist,
           $accessnameslist);
       if ($needroles) {
           $num_roles = @{$allroles};
           $roleslist = join('","',@{$allroles});
           my @allrolesnames; 
           foreach my $role (@{$allroles}) {
               push(@allrolesnames,$$roleshash{$role});
           }  
           $rolesnameslist = join('","',@allrolesnames);
       }
       if ($needaccess) {
           $num_access = keys(%{$accesshash});
           my (@allaccess,@allaccessnames);
           foreach my $key (sort(keys(%{$accesshash}))) {
               push(@allaccess,$key);
               push(@allaccessnames,$$accesshash{$key}); 
           }
           $accesslist = join('","',@allaccess);
           $accessnameslist = join('","',@allaccessnames);
       }
       return ($seclist,$num_sections,$groupslist,$num_groups,$roleslist,
               $num_roles,$rolesnameslist,$accesslist,$num_access,$accessnameslist);
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.48  
changed lines
  Added in v.1.52

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