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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.18 and 1.19

version 1.18, 2004/11/12 23:29:56 version 1.19, 2004/11/23 18:03:04
Line 52  ENDDOCUMENT Line 52  ENDDOCUMENT
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
         ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',          ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
        'sincefilter','form','cnumelement',         'sincefilter','form','cnumelement',
        'cdomelement','cnameelement','roleelement']);         'cdomelement','cnameelement','roleelement',
                                  'pickedcourse']);
 # 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 78  ENDDOCUMENT Line 79  ENDDOCUMENT
                       'select_form_order' =>                        'select_form_order' =>
                       ['-1','86400','604800','2592000','7776000',                        ['-1','86400','604800','2592000','7776000',
       '15552000','31104000']));        '15552000','31104000']));
          # if called from loncreateuser, report sections, then close
     $r->print(&Apache::loncommon::bodytag("Selecting a Course"));      my ($loaditem,$seclist);
       my $num_sections = 0;
       my @sections = ();
       if ($ENV{'form.form'} eq 'cu' && $ENV{'form.pickedcourse'}) {
           $loaditem = 'onLoad="setSections()"';
           my ($cdom,$cnum) = split/_/,$ENV{'form.pickedcourse'};
           my %sections_count = ();
           $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
           my @sections = ();
           if ($num_sections > 0) {
               @sections = (sort {$a <=> $b} keys %sections_count);
               $seclist = join('","',@sections);
           }
       }
       $r->print(&Apache::loncommon::bodytag("Selecting a Course",undef,$loaditem));
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
        'cac' => 'Course Activity',         'cac' => 'Course Activity',
        'cde' => 'Course Description',         'cde' => 'Course Description',
Line 93  ENDDOCUMENT Line 108  ENDDOCUMENT
     my $submitopener = '';      my $submitopener = '';
     my $autosubmit = '';      my $autosubmit = '';
     my $roleelement = '';      my $roleelement = '';
       my $lastaction = 'self.close()';
       if ($ENV{'form.form'} eq 'cu') {
           $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 103  ENDDOCUMENT Line 123  ENDDOCUMENT
 <script>  <script>
 function gochoose(cname,cdom,cdesc) {  function gochoose(cname,cdom,cdesc) {
     $name_code      $name_code
     opener.document.$ENV{"form.form"}.$ENV{'form.cnumelement'}.value=cname;      var openerForm = "$ENV{'form.form'}";
     var slct=opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'};      opener.document.$ENV{'form.form'}.$ENV{'form.cnumelement'}.value=cname;
     var i;      if (openerForm == 'cu' || openerForm == 'rolechoice') {
     for (i=0;i<slct.length;i++) {           opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'}.value=cdom;
         if (slct.options[i].value==cdom) { slct.selectedIndex=i; }      }
       else {
           var slct=opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'};
           var i;
           for (i=0;i<slct.length;i++) {
               if (slct.options[i].value==cdom) { slct.selectedIndex=i; }
           }
     }      }
     $autosubmit      $autosubmit
     self.close();      $lastaction
   }
   
   function setSections() {
       var numSections = $num_sections
       var sectionsArray = new Array("$seclist")
       opener.document.$ENV{"form.form"}.currsec.length = 0
       if (numSections == 0) {
           opener.document.$ENV{"form.form"}.currsec.options[0] = new Option('No existing sections','-1',false,false)
       }
       else {
           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"}.currsec.multiple=true
           if (numSections < 3) {
               opener.document.$ENV{"form.form"}.currsec.size=numSections;
           }
           else {
               opener.document.$ENV{"form.form"}.currsec.size=3;
           }
           opener.document.$ENV{"form.form"}.currsec.options[0].selected = false
       }
       self.close()
 }  }
 </script>  </script>
 $submitopener  $submitopener
Line 139  ENDSCRIPT Line 188  ENDSCRIPT
  my %courses=   my %courses=
     &Apache::lonnet::courseiddump      &Apache::lonnet::courseiddump
     ($domainfilter,$descriptfilter,$timefilter);      ($domainfilter,$descriptfilter,$timefilter);
  $r->print('<form>');   $r->print('<form name="courselist">');
  my %by_descrip;   my %by_descrip;
  foreach my $course (keys %courses) {   foreach my $course (keys %courses) {
             my $descr;              my $descr;
Line 162  ENDSCRIPT Line 211  ENDSCRIPT
                  ")<br />\n");                   ")<br />\n");
  }   }
  if (!%courses) { $r->print(&mt('None found')); }   if (!%courses) { $r->print(&mt('None found')); }
         $r->print('</form>');          $r->print('<input type="hidden" name="form" value="'.$ENV{'form.form'}.'" />'."\n".
                      '<input type="hidden" name="pickedcourse" value="" />'."\n".
                      '<input type="hidden" name="cnumelement" value="'.$ENV{'form.cnumelement'}.'" />'."\n".
                      '<input type="hidden" name="cdomelement" value="'.$ENV{'form.cdomelement'}.'" />'."\n".
                      '</form>');
     }      }
     $r->print('</body></html>');      $r->print('</body></html>');
     return OK;      return OK;
Removed from v.1.18  
changed lines
  Added in v.1.19

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