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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.23 and 1.24

version 1.23, 2004/12/28 05:55:11 version 1.24, 2005/01/27 19:20:55
Line 225  ENDSCRIPT Line 225  ENDSCRIPT
             } else {              } else {
                 $descr = &Apache::lonnet::unescape($courses{$course});                  $descr = &Apache::lonnet::unescape($courses{$course});
             }              }
             $by_descrip{lc($descr)}=$course;              my $description = lc($descr);
               if (exists($by_descrip{$description})) {
                   push @{$by_descrip{$description}}, ($course);
               } else {
                   @{$by_descrip{$description}} = ($course);
               }
  }   }
  foreach my $description (sort(keys(%by_descrip))) {   foreach my $description (sort(keys(%by_descrip))) {
     my $course=$by_descrip{$description};              foreach my $course (@{$by_descrip{$description}}) {
     my $cleandesc=&HTML::Entities::encode($description,'<>&"');          my $cleandesc=&HTML::Entities::encode($description,'<>&"');
     $cleandesc=~s/'/\\'/g;          $cleandesc=~s/'/\\'/g;
     my ($cdom,$cnum)=split(/\_/,$course);          my ($cdom,$cnum)=split(/\_/,$course);
     $r->print('<input type="button" value="Select" onClick="gochoose('.                  my ($descr,$instcode,$owner) = split/:/,$courses{$course};
   "'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('.          $r->print('<input type="button" value="Select" onClick="gochoose('.
   ($Apache::lonnet::domaindescription{$cdom}?        "'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$description.' ('.
                    $Apache::lonnet::domaindescription{$cdom}:$cdom).        ($Apache::lonnet::domaindescription{$cdom}?
                  ")<br />\n");                         $Apache::lonnet::domaindescription{$cdom}:$cdom).")");
                   unless ($instcode eq '') {
                       $r->print(" - ".&Apache::lonnet::unescape($instcode));
                   }
                   unless ($owner eq '') {
                       $r->print(", owner - ".&Apache::lonnet::unescape($owner));
                   }
                   $r->print("<br />\n");
               }
  }   }
  if (!%courses) { $r->print(&mt('None found')); }   if (!%courses) { $r->print(&mt('None found')); }
         $r->print('<input type="hidden" name="form" value="'.$ENV{'form.form'}.'" />'."\n".          $r->print('<input type="hidden" name="form" value="'.$ENV{'form.form'}.'" />'."\n".
Removed from v.1.23  
changed lines
  Added in v.1.24

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