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

Diff for /loncom/interface/coursecatalog.pm between versions 1.3 and 1.4

version 1.3, 2006/08/31 12:30:30 version 1.4, 2006/09/13 21:35:46
Line 123  function changeSort(caller) { Line 123  function changeSort(caller) {
             my @items = ();              my @items = ();
             my @longitems = ();              my @longitems = ();
             if ($idlist{$codetitles[0]} =~ /","/) {              if ($idlist{$codetitles[0]} =~ /","/) {
                 @items = split/","/,$idlist{$codetitles[0]};                  @items = split(/","/,$idlist{$codetitles[0]});
             } else {              } else {
                 $items[0] = $idlist{$codetitles[0]};                  $items[0] = $idlist{$codetitles[0]};
             }              }
             if (defined($idlist_titles{$codetitles[0]})) {              if (defined($idlist_titles{$codetitles[0]})) {
                 if ($idlist_titles{$codetitles[0]} =~ /","/) {                  if ($idlist_titles{$codetitles[0]} =~ /","/) {
                     @longitems = split/","/,$idlist_titles{$codetitles[0]};                      @longitems = split(/","/,$idlist_titles{$codetitles[0]});
                 } else {                  } else {
                     $longitems[0] = $idlist_titles{$codetitles[0]};                      $longitems[0] = $idlist_titles{$codetitles[0]};
                 }                  }
Line 165  function changeSort(caller) { Line 165  function changeSort(caller) {
         $r->print('<br /><input type="hidden" name="state" value="listing" /><input type="hidden" name="sortby" value="" /><input type="submit" name="catalogfilter" value="'.&mt('Display courses').'" /></form>');          $r->print('<br /><input type="hidden" name="state" value="listing" /><input type="hidden" name="sortby" value="" /><input type="submit" name="catalogfilter" value="'.&mt('Display courses').'" /></form>');
     }      }
     if ($env{'form.state'} eq 'listing') {      if ($env{'form.state'} eq 'listing') {
         $r->print('<br /><br >'.&print_course_listing($codedom));          $r->print('<br /><br />'.&print_course_listing($codedom));
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
Line 220  sub print_course_listing { Line 220  sub print_course_listing {
         $cleandesc=~s/'/\\'/g;          $cleandesc=~s/'/\\'/g;
         my ($cdom,$cnum)=split(/\_/,$course);          my ($cdom,$cnum)=split(/\_/,$course);
                 
         my ($desc,$instcode,$owner,$ttype) = split/:/,$courses{$course};          my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course});
         $owner = &unescape($owner);          $owner = &unescape($owner);
         my ($ownername,$ownerdom);          my ($ownername,$ownerdom);
         if ($owner =~ /:/) {          if ($owner =~ /:/) {
Line 290  sub courseinfo_row { Line 290  sub courseinfo_row {
     my @classids;      my @classids;
     my @crosslistings;      my @crosslistings;
     $idx{'status'} = &Apache::loncoursedata::CL_STATUS();      $idx{'status'} = &Apache::loncoursedata::CL_STATUS();
     my %status_title = &Apache::lonlocal::texthash (      my %status_title = &Apache::lonlocal::texthash(
                            Expired => 'Previous access',                             Expired => 'Previous access',
                            Active => 'Current access',                             Active => 'Current access',
                            Future => 'Future access',                             Future => 'Future access',
Line 300  sub courseinfo_row { Line 300  sub courseinfo_row {
                            Active => 0,                             Active => 0,
                            Future => 0,                             Future => 0,
                        );                         );
     while (my ($student,$data) = each %$classlist) {      while (my ($student,$data) = each(%$classlist)) {
         $student_count{$data->[$idx{'status'}]} ++;          $student_count{$data->[$idx{'status'}]} ++;
     }      }
     my $seclist = &identify_sections($coursehash{'internal.sectionnums'});      my $seclist = &identify_sections($coursehash{'internal.sectionnums'});
Line 387  sub identify_sections { Line 387  sub identify_sections {
     my ($seclist) = @_;      my ($seclist) = @_;
     my @secnums;      my @secnums;
     if ($seclist =~ /,/) {      if ($seclist =~ /,/) {
         my @sections = split/,/,$seclist;          my @sections = split(/,/,$seclist);
         foreach my $sec (@sections) {          foreach my $sec (@sections) {
             $sec =~ s/:[^:]*$//;              $sec =~ s/:[^:]*$//;
             push(@secnums,$sec);              push(@secnums,$sec);
Line 395  sub identify_sections { Line 395  sub identify_sections {
     } else {      } else {
         if ($seclist =~ m/^([^:]+):/) {          if ($seclist =~ m/^([^:]+):/) {
             my $sec = $1;              my $sec = $1;
             if (!grep/^$sec$/,@secnums) {              if (!grep(/^\Q$sec\E$/,@secnums)) {
                 push (@secnums,$sec);                  push(@secnums,$sec);
             }              }
         }          }
     }      }
Line 418  sub get_valid_classes { Line 418  sub get_valid_classes {
             if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,              if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
  $class) eq 'ok') {   $class) eq 'ok') {
                 if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) {                  if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) {
                     push (@{$validations{'sections'}},$sec);                      push(@{$validations{'sections'}},$sec);
                     $totalitems ++;                      $totalitems ++;
                 }                  }
             }              }
Line 429  sub get_valid_classes { Line 429  sub get_valid_classes {
             if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,              if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
  $item) eq 'ok') {   $item) eq 'ok') {
                 if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {                  if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {
                     push (@{$validations{'xlists'}},$item);                      push(@{$validations{'xlists'}},$item);
                     $totalitems ++;                      $totalitems ++;
                 }                  }
             }              }
Removed from v.1.3  
changed lines
  Added in v.1.4

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