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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.34 and 1.35

version 1.34, 2005/10/14 19:11:56 version 1.35, 2005/11/15 20:46:40
Line 55  ENDDOCUMENT Line 55  ENDDOCUMENT
        'sincefilter','form','cnumelement',         'sincefilter','form','cnumelement',
        'cdomelement','cnameelement','roleelement',         'cdomelement','cnameelement','roleelement',
                                'pickedcourse','instcodefilter',                                 'pickedcourse','instcodefilter',
                                'ownerfilter','coursefilter']);                                 'ownerfilter','coursefilter','multiple']);
 # 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 115  ENDDOCUMENT Line 115  ENDDOCUMENT
             $seclist = join('","',@sections);              $seclist = join('","',@sections);
         }          }
     }      }
 # if called from rolefilter, setup for multiple course selections.  
     my $multflag = 0;  
     my $jscript;      my $jscript;
     my $title = 'Selecting a course';      my $title = 'Selecting a course';
     if ($env{'form.form'} eq 'rolefilter') {  # Setup for multiple course selections, if flag for multiples set.
         $multflag = 1;      my $multiple = $env{'form.multiple'};
       my $multelement;
       if ($multiple) {
         $title = 'Selecting course(s)';          $title = 'Selecting course(s)';
     }  
     if ($multflag) {  
         $jscript = &Apache::loncommon::check_uncheck_jscript();          $jscript = &Apache::loncommon::check_uncheck_jscript();
           $multelement = '<input type="hidden" name="multiple" value="'.$multiple.'" />';
     }      }
     $r->print(&Apache::loncommon::bodytag($title,undef,$loaditem,undef,undef,undef,undef,1));      $r->print(&Apache::loncommon::bodytag($title,undef,$loaditem,undef,undef,undef,undef,1));
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
Line 155  ENDDOCUMENT Line 154  ENDDOCUMENT
     }      }
     $r->print(<<ENDSCRIPT);      $r->print(<<ENDSCRIPT);
 <script>  <script>
 function gochoose(cname,cdom,cdesc,multflag,caller) {  function gochoose(cname,cdom,cdesc,multiple,caller) {
     var openerForm = "$env{'form.form'}";      var openerForm = "$env{'form.form'}";
     courseCount = 0;      courseCount = 0;
     var courses = '';      var courses = '';
     if (multflag) {      if (multiple) {
  if (typeof(document.courselist.course_id.length) == 'undefined') {   if (typeof(document.courselist.course_id.length) == 'undefined') {
     // only 1 course checkbox was created      // only 1 course checkbox was created
     if (document.courselist.course_id.checked) {      if (document.courselist.course_id.checked) {
Line 198  function gochoose(cname,cdom,cdesc,multf Line 197  function gochoose(cname,cdom,cdesc,multf
     } else {      } else {
         $name_code          $name_code
         opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname;          opener.document.$env{'form.form'}.$env{'form.cnumelement'}.value=cname;
         if (openerForm == 'cu') {          var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'};
           if (slct.options == undefined) {
             opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom;              opener.document.$env{'form.form'}.$env{'form.cdomelement'}.value=cdom;
         } else {          }
             var slct=opener.document.$env{'form.form'}.$env{'form.cdomelement'};          else {
             var i;              var i;
             for (i=0;i<slct.length;i++) {              for (i=0;i<slct.length;i++) {
                 if (slct.options[i].value==cdom) { slct.selectedIndex=i; }                  if (slct.options[i].value==cdom) { slct.selectedIndex=i; }
Line 252  $submitopener Line 252  $submitopener
 $name_input  $name_input
 <input type="hidden" name="form" value="$env{'form.form'}" />  <input type="hidden" name="form" value="$env{'form.form'}" />
 $roleelement  $roleelement
   $multelement
 $lt{'cac'}: $sincefilterform  $lt{'cac'}: $sincefilterform
 <br />  <br />
 $lt{'cdo'}: $domainselectform  $lt{'cdo'}: $domainselectform
Line 294  ENDSCRIPT Line 295  ENDSCRIPT
             my $description = lc($descr);              my $description = lc($descr);
             push (@{$by_descrip{$description}}, $course);              push (@{$by_descrip{$description}}, $course);
  }   }
         if ($numcourses > 1 && $multflag) {          if ($numcourses > 1 && $multiple) {
             $r->print('<input type="button" value="check all"              $r->print('<input type="button" value="check all"
                     onclick="javascript:checkAll(document.courselist.course_id)" />                    &nbsp;&nbsp;<input type="button" value="uncheck all"                      onclick="javascript:checkAll(document.courselist.course_id)" />                    &nbsp;&nbsp;<input type="button" value="uncheck all"
                     onclick="javascript:uncheckAll(document.courselist.course_id)" />                      onclick="javascript:uncheckAll(document.courselist.course_id)" />
Line 306  ENDSCRIPT Line 307  ENDSCRIPT
         $cleandesc=~s/'/\\'/g;          $cleandesc=~s/'/\\'/g;
         my ($cdom,$cnum)=split(/\_/,$course);          my ($cdom,$cnum)=split(/\_/,$course);
                 my ($descr,$instcode,$owner) = split/:/,$courses{$course};                  my ($descr,$instcode,$owner) = split/:/,$courses{$course};
                 $r->print(&course_chooser($multflag,$cdom,$cnum,$cleandesc));                  $r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc));
         $r->print($description.'('.          $r->print($description.'('.
       ($Apache::lonnet::domaindescription{$cdom}?        ($Apache::lonnet::domaindescription{$cdom}?
                        $Apache::lonnet::domaindescription{$cdom}:$cdom).")");                         $Apache::lonnet::domaindescription{$cdom}:$cdom).")");
Line 316  ENDSCRIPT Line 317  ENDSCRIPT
                 unless ($owner eq '') {                  unless ($owner eq '') {
                     $r->print(", owner - ".&Apache::lonnet::unescape($owner));                      $r->print(", owner - ".&Apache::lonnet::unescape($owner));
                 }                  }
  if ($multflag) { $r->print("</label>\n"); }   if ($multiple) { $r->print("</label>\n"); }
                 $r->print("<br />\n");                  $r->print("<br />\n");
             }              }
  }   }
  if (!%courses) {    if (!%courses) { 
             $r->print(&mt('None found'));              $r->print(&mt('None found'));
         } elsif ($multflag) {          } elsif ($multiple) {
             $r->print('<input type="button" value="Submit" onClick="gochoose('."'','','',1)".'" />');              $r->print('<input type="button" value="Submit" onClick="gochoose('."'','','',1)".'" />');
         }          }
         $r->print('<input type="hidden" name="form" value="'.$env{'form.form'}.'" />'."\n".          $r->print('<input type="hidden" name="form" value="'.$env{'form.form'}.'" />'."\n".
Line 336  ENDSCRIPT Line 337  ENDSCRIPT
 }  }
   
 sub course_chooser {  sub course_chooser {
     my ($multflag,$cdom,$cnum,$cleandesc) = @_;      my ($multiple,$cdom,$cnum,$cleandesc) = @_;
     my $output;       my $output; 
     if ($multflag) {      if ($multiple) {
         $output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";          $output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";
     } else {      } else {
         $output = '<input type="button" value="Select" onClick="gochoose('.          $output = '<input type="button" value="Select" onClick="gochoose('.
Removed from v.1.34  
changed lines
  Added in v.1.35

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