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

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

version 1.23, 2007/10/06 04:32:49 version 1.24, 2007/12/10 23:54:40
Line 461  sub construct_data_table { Line 461  sub construct_data_table {
     }      }
     my $output = &Apache::loncommon::start_data_table().      my $output = &Apache::loncommon::start_data_table().
                  &Apache::loncommon::start_data_table_header_row();                   &Apache::loncommon::start_data_table_header_row();
     my @coltitles = ('Code','Sections','Crosslisted','Title','Owner(s)');      my @coltitles = ('Count','Code','Sections','Crosslisted','Title','Owner(s)');
     if (ref($usersections) eq 'HASH') {      if (ref($usersections) eq 'HASH') {
        $coltitles[1] = 'Your Section';         $coltitles[1] = 'Your Section';
     }      }
Line 469  sub construct_data_table { Line 469  sub construct_data_table {
         $output .= '<th>';          $output .= '<th>';
         if (defined($sortname{$item})) {          if (defined($sortname{$item})) {
             $output .= '<a href="javascript:changeSort('."'$sortname{$item}'".')">'.&mt($item).'</a>';              $output .= '<a href="javascript:changeSort('."'$sortname{$item}'".')">'.&mt($item).'</a>';
           } elsif ($item eq 'Count') {
               $output .= '&nbsp;&nbsp;';
         } else {          } else {
             $output .= &mt($item);              $output .= &mt($item);
         }          }
Line 503  sub construct_data_table { Line 505  sub construct_data_table {
     } else {      } else {
         @sorted_courses = sort { lc($a) cmp lc($b) } (keys(%Sortby));          @sorted_courses = sort { lc($a) cmp lc($b) } (keys(%Sortby));
     }      }
       my $count = 1;
     foreach my $item (@sorted_courses) {      foreach my $item (@sorted_courses) {
         foreach my $course (@{$Sortby{$item}}) {          foreach my $course (@{$Sortby{$item}}) {
             $output.=&Apache::loncommon::start_data_table_row();               $output.=&Apache::loncommon::start_data_table_row(); 
             $output.=&courseinfo_row($courseinfo{$course},$knownuser,$details);              $output.=&courseinfo_row($courseinfo{$course},$knownuser,$details,\$count);
             $output.=&Apache::loncommon::end_data_table_row();              $output.=&Apache::loncommon::end_data_table_row();
         }          }
     }      }
Line 650  sub count_students { Line 653  sub count_students {
 }  }
   
 sub courseinfo_row {  sub courseinfo_row {
     my ($info,$knownuser,$details) = @_;      my ($info,$knownuser,$details,$countref) = @_;
     my ($cdom,$cnum,$title,$ownerlast,$code,$owner,$seclist,$xlist_items,      my ($cdom,$cnum,$title,$ownerlast,$code,$owner,$seclist,$xlist_items,
         $accessdates,$showsyllabus,$counts,$autoenrollment,$output);          $accessdates,$showsyllabus,$counts,$autoenrollment,$output);
     if (ref($info) eq 'HASH') {      if (ref($info) eq 'HASH') {
Line 671  sub courseinfo_row { Line 674  sub courseinfo_row {
                                          $code).'</td>';                                           $code).'</td>';
         return $output;          return $output;
     }      }
     $output .= '<td>'.$code.'</td>'.      $output .= '<td>'.$$countref.'</td>'.
                  '<td>'.$code.'</td>'.
                '<td>'.$seclist.'</td>'.                 '<td>'.$seclist.'</td>'.
                '<td>'.$xlist_items.'</td>'.                 '<td>'.$xlist_items.'</td>'.
                '<td>'.$title.'&nbsp;<font size="-2">';                 '<td>'.$title.'&nbsp;<font size="-2">';
Line 692  sub courseinfo_row { Line 696  sub courseinfo_row {
             $output .= "<td><a href=\"javascript:setCourseId('$cnum')\">".&mt('Show more details').'</a></td>';              $output .= "<td><a href=\"javascript:setCourseId('$cnum')\">".&mt('Show more details').'</a></td>';
         }          }
     }      }
       $$countref ++;
     return $output;      return $output;
 }  }
   
Removed from v.1.23  
changed lines
  Added in v.1.24

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