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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.8 and 1.10

version 1.8, 2003/09/22 00:48:32 version 1.10, 2003/10/13 22:45:09
Line 74  ENDDOCUMENT Line 74  ENDDOCUMENT
                       '2592000' => 'last month',                        '2592000' => 'last month',
                       '7776000' => 'last three months',                        '7776000' => 'last three months',
                       '15552000' => 'last six months',                        '15552000' => 'last six months',
                       '31104000' => 'last year'));                        '31104000' => 'last year',
                         'select_form_order' =>
                         ['-1','86400','604800','2592000','7776000',
         '15552000','31104000']));
                 
     $r->print(&Apache::loncommon::bodytag("Selecting a Course"));      $r->print(&Apache::loncommon::bodytag("Selecting a Course"));
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
Line 118  ENDSCRIPT Line 121  ENDSCRIPT
     &Apache::lonnet::courseiddump      &Apache::lonnet::courseiddump
     ($domainfilter,$descriptfilter,$timefilter);      ($domainfilter,$descriptfilter,$timefilter);
  $r->print('<form>');   $r->print('<form>');
  foreach (keys %courses) {   my %by_descrip;
     my ($cdom,$cnum)=split(/\_/,$_);   foreach my $course (keys %courses) {
       $by_descrip{lc($courses{$course})}=$course;
    }
    foreach my $description (sort(keys(%by_descrip))) {
       my $course=$by_descrip{$description};
       my ($cdom,$cnum)=split(/\_/,$course);
     $r->print('<input type="button" value="Select" onClick="gochoose('.      $r->print('<input type="button" value="Select" onClick="gochoose('.
   "'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('.    "'".$cnum."','".$cdom."')".'" /> '.$courses{$course}.' ('.
   ($Apache::lonnet::domaindescription{$cdom}?    ($Apache::lonnet::domaindescription{$cdom}?
                    $Apache::lonnet::domaindescription{$cdom}:$cdom).                     $Apache::lonnet::domaindescription{$cdom}:$cdom).
                  ")<br />\n");                   ")<br />\n");
Removed from v.1.8  
changed lines
  Added in v.1.10

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