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

Diff for /loncom/interface/lonpickcourse.pm between versions 1.45 and 1.47

version 1.45, 2006/05/09 15:09:27 version 1.47, 2006/05/30 12:46:09
Line 34  use Apache::loncommon; Line 34  use Apache::loncommon;
 use Apache::loncoursedata;  use Apache::loncoursedata;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::longroup;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 106  sub handler { Line 109  sub handler {
         my @sections =  (sort {$a <=> $b} keys(%sections_count));          my @sections =  (sort {$a <=> $b} keys(%sections_count));
  $seclist = join('","',@sections);   $seclist = join('","',@sections);
   
         my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum);          my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
  $groupslist = join(',',sort(keys(%curr_groups)));   $groupslist = join(',',sort(keys(%curr_groups)));
     }      }
     my $jscript;      my $jscript;
Line 285  ENDSCRIPT Line 288  ENDSCRIPT
  foreach my $course (keys(%courses)) {   foreach my $course (keys(%courses)) {
             my $descr;              my $descr;
             if ($courses{$course} =~ m/^([^:]*):/i) {              if ($courses{$course} =~ m/^([^:]*):/i) {
                 $descr = &Apache::lonnet::unescape($1);                  $descr = &unescape($1);
             } else {              } else {
                 $descr = &Apache::lonnet::unescape($courses{$course});                  $descr = &unescape($courses{$course});
             }              }
             my $description = $descr;              my $description = $descr;
             push (@{$by_descrip{$description}}, $course);              push (@{$by_descrip{$description}}, $course);
Line 310  ENDSCRIPT Line 313  ENDSCRIPT
       ($Apache::lonnet::domaindescription{$cdom}?        ($Apache::lonnet::domaindescription{$cdom}?
                        $Apache::lonnet::domaindescription{$cdom}:$cdom).")");                         $Apache::lonnet::domaindescription{$cdom}:$cdom).")");
                 unless ($instcode eq '') {                  unless ($instcode eq '') {
                     $r->print(" - ".&Apache::lonnet::unescape($instcode));                      $r->print(" - ".&unescape($instcode));
                 }                  }
                 unless ($owner eq '') {                  unless ($owner eq '') {
                     $r->print(", owner - ".&Apache::lonnet::unescape($owner));                      $r->print(", owner - ".&unescape($owner));
                 }                  }
  if ($multiple) { $r->print("</label>\n"); }   if ($multiple) { $r->print("</label>\n"); }
                 $r->print("<br />\n");                  $r->print("<br />\n");
Removed from v.1.45  
changed lines
  Added in v.1.47

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