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

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

version 1.17, 2004/06/29 14:56:32 version 1.18, 2004/11/12 23:29:56
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']);         'cdomelement','cnameelement','roleelement']);
 # 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 90  ENDDOCUMENT Line 90  ENDDOCUMENT
  $name_input ='<input type="hidden" name="cnameelement" value="'.   $name_input ='<input type="hidden" name="cnameelement" value="'.
     $ENV{'form.cnameelement'}.'" />';      $ENV{'form.cnameelement'}.'" />';
     }      }
       my $submitopener = '';
       my $autosubmit = '';
       my $roleelement = '';
       my $roledom = $ENV{'form.roleelement'};
       if ($roledom) {
           $roleelement = '<input type="hidden" name="roleelement" value="'.$roledom.'" />';
           $submitopener = &Apache::lonroles::processpick($roledom);
           $autosubmit = 'process_pick("'.$roledom.'")';
       }
     $r->print(<<ENDSCRIPT);      $r->print(<<ENDSCRIPT);
 <script>  <script>
 function gochoose(cname,cdom,cdesc) {  function gochoose(cname,cdom,cdesc) {
Line 100  function gochoose(cname,cdom,cdesc) { Line 109  function gochoose(cname,cdom,cdesc) {
     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; }
     }      }
       $autosubmit
     self.close();      self.close();
 }  }
 </script>  </script>
   $submitopener
 <form method="post">  <form method="post">
 <input type="hidden" name="cnumelement" value="$ENV{'form.cnumelement'}" />  <input type="hidden" name="cnumelement" value="$ENV{'form.cnumelement'}" />
 <input type="hidden" name="cdomelement" value="$ENV{'form.cdomelement'}" />  <input type="hidden" name="cdomelement" value="$ENV{'form.cdomelement'}" />
 $name_input  $name_input
 <input type="hidden" name="form" value="$ENV{'form.form'}" />  <input type="hidden" name="form" value="$ENV{'form.form'}" />
   $roleelement
 $lt{'cac'}: $sincefilterform  $lt{'cac'}: $sincefilterform
 <br />  <br />
 $lt{'cdo'}: $domainselectform  $lt{'cdo'}: $domainselectform
Line 155  ENDSCRIPT Line 166  ENDSCRIPT
     }      }
     $r->print('</body></html>');      $r->print('</body></html>');
     return OK;      return OK;
 }   }
   
 1;  1;
 __END__  __END__
Removed from v.1.17  
changed lines
  Added in v.1.18

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