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

Diff for /loncom/interface/coursecatalog.pm between versions 1.58.4.2 and 1.68

version 1.58.4.2, 2010/08/14 02:00:27 version 1.68, 2011/02/25 05:52:03
Line 89  sub handler { Line 89  sub handler {
                                            \%idx,\@jsarray,$subcats);                                             \%idx,\@jsarray,$subcats);
     my ($numtitles,@codetitles);      my ($numtitles,@codetitles);
     if ($env{'form.coursenum'} ne '' && &user_is_known()) {      if ($env{'form.coursenum'} ne '' && &user_is_known()) {
         if ($env{'form.currcat_0'} eq 'instcode::0') {  
             $numtitles = &instcode_course_selector($r,$codedom,$formname,$domdesc,  
                                                    undef,undef,\@codetitles);  
         }  
         &course_details($r,$codedom,$formname,$domdesc,\@trails,\%allitems,\@codetitles);          &course_details($r,$codedom,$formname,$domdesc,\@trails,\%allitems,\@codetitles);
     } else {      } else {
         my ($catlinks,$has_subcats,$selitem) = &category_breadcrumbs($codedom,@cats);          my ($catlinks,$has_subcats,$selitem) = &category_breadcrumbs($codedom,@cats);
Line 186  sub course_details { Line 182  sub course_details {
              &courselink_javascript().'</script>'."\n";               &courselink_javascript().'</script>'."\n";
     my $start_page =      my $start_page =
         &Apache::loncommon::start_page('Course/Community Catalog',$js,          &Apache::loncommon::start_page('Course/Community Catalog',$js,
                                            {                                             {'add_entries' => \%add_entries, });
                                              'add_entries' => \%add_entries,  
                                              'no_inline_link'   => 1,});  
     $r->print($start_page);      $r->print($start_page);
     if ($env{'form.numtitles'} > 0) {      if ($env{'form.numtitles'} > 0) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
                 ({href=>"/adm/coursecatalog",                  ({href=>"/adm/coursecatalog",
                   text=>"Course/Community Catalog"});                    text=>"Course/Community Catalog"});
     }      }
     my $brtextone = 'Course listing';       my $brtextone = 'Course listing';
     my $brtexttwo = 'Course details';      my $brtexttwo = 'Course details';
     if ($env{'form.currcat_0'} eq 'communities::0') {      if ($env{'form.currcat_0'} eq 'communities::0') {
         $brtextone = 'Community listing';          $brtextone = 'Community listing';
Line 205  sub course_details { Line 199  sub course_details {
              ({href=>"javascript:document.$formname.submit()",               ({href=>"javascript:document.$formname.submit()",
               text=>$brtextone},                text=>$brtextone},
              {text=>$brtexttwo});               {text=>$brtexttwo});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
     $r->print('<br />');      $r->print('<br />');
     if ($env{'form.currcat_0'} eq 'communities::0') {      if ($env{'form.currcat_0'} eq 'communities::0') {
         $r->print(&mt('Detailed community information:'));          $r->print(&mt('Detailed community information:'));
Line 288  sub instcode_course_selector { Line 283  sub instcode_course_selector {
         $r->print('<input type="hidden" name="coursenum" value="" />'."\n".          $r->print('<input type="hidden" name="coursenum" value="" />'."\n".
                   '<input type="hidden" name="sortby" value="" />'."\n".                    '<input type="hidden" name="sortby" value="" />'."\n".
                   '<input type="hidden" name="state" value="listing" />'."\n".                    '<input type="hidden" name="state" value="listing" />'."\n".
                   '<input type="hidden" name="form.currcat_0" value="instcode::0" />'."\n".  
                   '<input type="submit" name="catalogfilter" value="'.                    '<input type="submit" name="catalogfilter" value="'.
                   &mt('Display courses').'" />'.                    &mt('Display courses').'" />'.
                   '<input type="hidden" name="numtitles" value="'.$numtitles.                    '<input type="hidden" name="numtitles" value="'.$numtitles.
Line 310  sub cat_header { Line 304  sub cat_header {
     my ($r,$codedom,$js,$add_entries,$catlinks,$numtitles) = @_;      my ($r,$codedom,$js,$add_entries,$catlinks,$numtitles) = @_;
     my $start_page =      my $start_page =
         &Apache::loncommon::start_page('Other',$js,          &Apache::loncommon::start_page('Other',$js,
                                        {                                         { 'add_entries' => $add_entries, });
                                          'add_entries' => $add_entries,  
                                          'no_inline_link'   => 1,});  
     $r->print($start_page);      $r->print($start_page);
     my $brtext = 'Course listing';      my $brtext = 'Course listing';
     if ($env{'form.currcat_0'} eq 'communities::0') {      if ($env{'form.currcat_0'} eq 'communities::0') {
Line 334  sub cat_header { Line 326  sub cat_header {
           text=>"Course/Community Catalog"});            text=>"Course/Community Catalog"});
     }      }
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
     my $onchange;      my $onchange = 'this.form.submit()';
     unless ($env{'form.interface'} eq 'textual') {  
         $onchange = 'this.form.submit()';  
     }  
     $r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.      $r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.
               '<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.                '<table border="0"><tr><td><b>'.&mt('Domain:').'</b></td><td>'.
               &Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));                &Apache::loncommon::select_dom_form($codedom,'showdom','',1,$onchange));
Line 405  sub category_breadcrumbs { Line 394  sub category_breadcrumbs {
                     $catlinks .= '<option value="">'.&mt('De-select').'</option>';                      $catlinks .= '<option value="">'.&mt('De-select').'</option>';
                     for (my $j=0; $j<@{$cats[$shallower]{$container}}; $j++) {                      for (my $j=0; $j<@{$cats[$shallower]{$container}}; $j++) {
                         my $name = $cats[$shallower]{$container}[$j];                          my $name = $cats[$shallower]{$container}[$j];
                         my $item = &escape($name).':'.$container.':'.$shallower;                          my $item = &escape($name).':'.&escape($container).':'.$shallower;
                         my $selected = '';                          my $selected = '';
                         if ($item eq $env{'form.currcat_'.$shallower}) {                          if ($item eq $env{'form.currcat_'.$shallower}) {
                             $selected = ' selected="selected"';                              $selected = ' selected="selected"';
Line 660  sub print_course_listing { Line 649  sub print_course_listing {
         if (keys(%courses) == 0) {          if (keys(%courses) == 0) {
             if ($env{'form.currcat_0'} eq 'communities::0') {              if ($env{'form.currcat_0'} eq 'communities::0') {
                 $output .= &mt('The courseID provided does not match a community in this domain.');                  $output .= &mt('The courseID provided does not match a community in this domain.');
             } else {              } else { 
                 $output .= &mt('The courseID provided does not match a course in this domain.');                  $output .= &mt('The courseID provided does not match a course in this domain.');
             }              }
             return $output;              return $output;
Line 809  sub build_courseinfo_hash { Line 798  sub build_courseinfo_hash {
             $selfenroll_end = $courses->{$course}{'selfenroll_end_date'};              $selfenroll_end = $courses->{$course}{'selfenroll_end_date'};
             $categories = $courses->{$course}{'categories'};              $categories = $courses->{$course}{'categories'};
             push(@owners,$singleowner);              push(@owners,$singleowner);
             if (ref($courses->{$course}{'co-owners'}) eq 'ARRAY') {              if ($courses->{$course}{'co-owners'} ne '') {
                 foreach my $item (@{$courses->{$course}{'co-owners'}}) {                  foreach my $item (split(/,/,$courses->{$course}{'co-owners'})) {
                     push(@owners,$item);                      push(@owners,$item);
                 }                  }
             }              }
Line 1009  sub courseinfo_row { Line 998  sub courseinfo_row {
         if ($details) {          if ($details) {
             if ($env{'form.currcat_0'} eq 'communities::0') {              if ($env{'form.currcat_0'} eq 'communities::0') {
                 $output .= '<td>'.$accessdates.'</td>';                  $output .= '<td>'.$accessdates.'</td>';
             } else {              } else { 
                 $output .=                  $output .=
                     '<td>'.$accessdates.'</td>'.                      '<td>'.$accessdates.'</td>'. 
                     '<td>'.$counts.'</td>'.                      '<td>'.$counts.'</td>'.
                     '<td>'.$autoenrollment.'</td>';                      '<td>'.$autoenrollment.'</td>';
             }              }
Line 1027  sub courseinfo_row { Line 1016  sub courseinfo_row {
             if (($info->{'selfenroll_start'} > 0) && ($info->{'selfenroll_start'} > $now)) {              if (($info->{'selfenroll_start'} > 0) && ($info->{'selfenroll_start'} > $now)) {
                 $output .= '<td>'.&mt('Starts: [_1]','<span class="LC_cusr_emph">'.$showstart.'</span>').'<br />'.&mt('Ends: [_1]','<span class="LC_cusr_emph">'.$showend.'</span>').'</td>';                  $output .= '<td>'.&mt('Starts: [_1]','<span class="LC_cusr_emph">'.$showstart.'</span>').'<br />'.&mt('Ends: [_1]','<span class="LC_cusr_emph">'.$showend.'</span>').'</td>';
             } else {               } else { 
                 $output .= '<td><a href="javascript:ToSelfenroll('."'$course'".')">'.&mt('Enroll in course').'</a></td>';                  $output .= '<td><a href="javascript:ToSelfenroll('."'$course'".')">'.&mt('Enroll in course').'</a><br />';
                   if ($info->{'selfenroll_end'} == 0) {
                       $output .= &mt('Available permanently');
                   } elsif ($info->{'selfenroll_end'} > $now) {
                       $output .= &mt('Self-enrollment ends: [_1]','<span class="LC_cusr_emph">'.$showend.'</span>');
                   }
                   $output .= '</td>';
             }              }
             $selfenroll = 1;              $selfenroll = 1;
         }          }
Removed from v.1.58.4.2  
changed lines
  Added in v.1.68

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