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

Diff for /loncom/interface/coursecatalog.pm between versions 1.22 and 1.23

version 1.22, 2007/10/03 19:57:29 version 1.23, 2007/10/06 04:32:49
Line 522  sub build_courseinfo_hash { Line 522  sub build_courseinfo_hash {
         my $descr;          my $descr;
         if (ref($courses->{$course}) eq 'HASH') {          if (ref($courses->{$course}) eq 'HASH') {
             $descr = $courses->{$course}{'description'};               $descr = $courses->{$course}{'description'}; 
         } elsif ($courses->{$course} =~ m/^([^:]*):/i) {  
             $descr = &unescape($1);  
         } else {  
             $descr = &unescape($courses->{$course});  
         }          }
         my $cleandesc=&HTML::Entities::encode($descr,'<>&"');          my $cleandesc=&HTML::Entities::encode($descr,'<>&"');
         $cleandesc=~s/'/\\'/g;          $cleandesc=~s/'/\\'/g;
Line 534  sub build_courseinfo_hash { Line 530  sub build_courseinfo_hash {
         my ($descr,$instcode,$singleowner,$ttype,@owners,%ownernames);          my ($descr,$instcode,$singleowner,$ttype,@owners,%ownernames);
         if (ref($courses->{$course}) eq 'HASH') {          if (ref($courses->{$course}) eq 'HASH') {
             $descr = $courses->{$course}{'description'};              $descr = $courses->{$course}{'description'};
             $instcode =  $courses->{$course}{'instcode'};              $instcode =  $courses->{$course}{'inst_code'};
             $singleowner = $courses->{$course}{'owner'};              $singleowner = $courses->{$course}{'owner'};
             $ttype =  $courses->{$course}{'type'};              $ttype =  $courses->{$course}{'type'};
             push(@owners,$singleowner);              push(@owners,$singleowner);
Line 543  sub build_courseinfo_hash { Line 539  sub build_courseinfo_hash {
                     push(@owners,$item);                      push(@owners,$item);
                 }                  }
             }              }
         } else {  
             ($descr,$instcode,$singleowner,$ttype) =   
                 split(/:/,$courses->{$course});  
             push(@owners,$singleowner);  
         }          }
         foreach my $owner (@owners) {          foreach my $owner (@owners) {
             my ($ownername,$ownerdom) = @_;               my ($ownername,$ownerdom) = @_; 
Removed from v.1.22  
changed lines
  Added in v.1.23

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