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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.41 and 1.44

version 1.41, 2006/03/16 21:54:40 version 1.44, 2006/05/09 14:38:10
Line 96  sub handler { Line 96  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);      my (%loaditem,$seclist,$groupslist);
     my $num_sections = 0;      my $num_sections = 0;
     if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {      if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {
         $loaditem = 'onLoad="setSections()"';          $loaditem{'onload'} ="setSections()";
         my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};          my ($cdom,$cnum) = split/_/,$env{'form.pickedcourse'};
         my %sections_count = ();          my %sections_count = ();
         $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);          $num_sections = &Apache::loncommon::get_sections($cdom,$cnum,\%sections_count);
Line 108  sub handler { Line 108  sub handler {
             @sections = (sort {$a <=> $b} keys(%sections_count));              @sections = (sort {$a <=> $b} keys(%sections_count));
             $seclist = join('","',@sections);              $seclist = join('","',@sections);
         }          }
           my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum);
    $groupslist = join(',',sort(keys(%curr_groups)));
     }      }
     my $jscript;      my $jscript;
     my $title = 'Selecting a course';      my $title = 'Selecting a course';
Line 120  sub handler { Line 122  sub handler {
         $multelement = '<input type="hidden" name="multiple" value="'.$multiple.'" />';          $multelement = '<input type="hidden" name="multiple" value="'.$multiple.'" />';
     }      }
     $r->print(&Apache::loncommon::start_page($title,undef,      $r->print(&Apache::loncommon::start_page($title,undef,
      {'add_entries' => $loaditem,       {'add_entries' => \%loaditem,
       'no_nav_bar'  => 1, }));        'no_nav_bar'  => 1, }));
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
        'cac' => 'Course Activity',         'cac' => 'Course Activity',
Line 236  function setSections() { Line 238  function setSections() {
             opener.document.$env{"form.form"}.currsec.options[0].selected = false              opener.document.$env{"form.form"}.currsec.options[0].selected = false
         }          }
     }      }
       opener.document.$env{"form.form"}.groups.value='$groupslist';
     self.close()      self.close()
 }  }
   
Removed from v.1.41  
changed lines
  Added in v.1.44

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