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

Diff for /loncom/interface/coursecatalog.pm between versions 1.36 and 1.43

version 1.36, 2008/07/07 15:20:18 version 1.43, 2008/09/23 14:41:00
Line 53  sub handler { Line 53  sub handler {
     }      }
     &Apache::lonacc::get_posted_cgi($r);      &Apache::lonacc::get_posted_cgi($r);
     &Apache::lonlocal::get_language_handle($r);      &Apache::lonlocal::get_language_handle($r);
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['sortby']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['sortby','showdom']);
   
     my $codedom = &Apache::lonnet::default_login_domain();      my $codedom = &Apache::lonnet::default_login_domain();
   
Line 101  function setCatDepth(depth) { Line 102  function setCatDepth(depth) {
     return;      return;
 }  }
   
 ENDSCRIPT  
         if ($env{'form.state'} eq 'listing') {  
             $catjs .= qq|  
 function changeSort(caller) {  function changeSort(caller) {
     document.$formname.sortby.value = caller;      document.$formname.sortby.value = caller;
     document.$formname.submit();      document.$formname.submit();
 }  }
   
 function setCourseId(caller) {  function setCourseId(caller) {
     document.$formname.coursenum.value = caller;      document.$formname.coursenum.value = caller;
     document.$formname.submit();      document.$formname.submit();
 }\n|;  }
         }  
   ENDSCRIPT
           $catjs .= &courselink_javascript(); 
         my $numtitles;          my $numtitles;
         if ($env{'form.currcat_0'} eq 'instcode::0') {          if ($env{'form.currcat_0'} eq 'instcode::0') {
             $numtitles = &instcode_course_selector($r,$codedom,$formname,$domdesc,              $numtitles = &instcode_course_selector($r,$codedom,$formname,$domdesc,
Line 156  sub course_details { Line 157  sub course_details {
     my $output;      my $output;
     my %add_entries = (topmargin    => "0",      my %add_entries = (topmargin    => "0",
                        marginheight => "0",);                         marginheight => "0",);
       my $js = '<script type="text/javascript">'."\n".
                &courselink_javascript().'</script>'."\n";
     my $start_page =      my $start_page =
         &Apache::loncommon::start_page('Course Catalog','',          &Apache::loncommon::start_page('Course Catalog',$js,
                                            {                                             {
                                              'add_entries' => \%add_entries,                                               'add_entries' => \%add_entries,
                                              'no_inline_link'   => 1,});                                               'no_inline_link'   => 1,});
Line 173  sub course_details { Line 176  sub course_details {
              {text=>"Course details"});               {text=>"Course details"});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Details'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Details'));
     $r->print('<br />'.&mt('Detailed course information:').'<br /><br />'.      $r->print('<br />'.&mt('Detailed course information:').'<br /><br />'.
               '<form name="'.$formname.'" method="post">'.  
               &print_course_listing($codedom,undef,$trails,$allitems).                &print_course_listing($codedom,undef,$trails,$allitems).
               '<br /><br />');                '<br /><br />');
     $r->print('<a href = "javascript:document.coursecatalog.submit()">'.      $r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.
                 '<a href = "javascript:document.coursecatalog.submit()">'.
               &mt('Back to course listing').'</a>'.                &mt('Back to course listing').'</a>'.
               '<input type="hidden" name="sortby" value="'.                &Apache::lonhtmlcommon::echo_form_input(['coursenum','catalogfilter',
               $env{'form.sortby'}.'" />'.                                                         'showdetails','courseid']).'</form>');
               '<input type="hidden" name="state" value="listing" /></form>');      return;
   }
   
   sub courselink_javascript {
       return <<"END";
   
   function ToSyllabus(cdom,cnum) {
       if (cdom == '' || cdom == null) {
           return;
       }
       if (cnum == '' || cnum == null) {
           return;
       }
       document.linklaunch.action = "/public/"+cdom+"/"+cnum+"/syllabus";
       document.linklaunch.submit();
 }  }
   
   function ToSelfenroll(courseid) {
       if (courseid == '') {
           return;
       }
       document.linklaunch.action = "/adm/selfenroll";
       document.linklaunch.courseid.value = courseid;
       document.linklaunch.submit();
   }
   
   END
   }
   
   
 sub instcode_course_selector {  sub instcode_course_selector {
     my ($r,$codedom,$formname,$domdesc,$catlinks,$catjs) = @_;      my ($r,$codedom,$formname,$domdesc,$catlinks,$catjs) = @_;
     my %coursecodes = ();      my %coursecodes = ();
Line 319  function setElements() { Line 349  function setElements() {
                   '<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.
                   '" /></form>');                    '" /></form><br /><br />');
         if (($numtitles > 0) && ($env{'form.state'} eq 'listing')) {  
             $r->print('<br />');  
         }  
     } else {      } else {
         &cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles);          &cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles);
         my $cat_maxdepth = $env{'form.catalog_maxdepth'};          my $cat_maxdepth = $env{'form.catalog_maxdepth'};
Line 492  sub additional_filters { Line 519  sub additional_filters {
             $output .= '<tr><td><label>'.              $output .= '<tr><td><label>'.
                        '<input type="checkbox" name="withsubcats" value="1" '.                         '<input type="checkbox" name="withsubcats" value="1" '.
                        $include_subcat_status.'/>'.                         $include_subcat_status.'/>'.
                        &mt('Include subcategories within "[_1]"',$catname).                         &mt('Include subcategories within "[_1]"',
                        '</label></td></tr>';                             &unescape($catname)).'</label></td></tr>';
         }          }
     }      }
     my $show_selfenroll_status;      my $show_selfenroll_status;
Line 738  sub print_course_listing { Line 765  sub print_course_listing {
     my %domconfig =      my %domconfig =
         &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);          &Apache::lonnet::get_dom('configuration',['usercreation'],$domain);
     $output .= &construct_data_table($knownuser,\%courses,$details,undef,$now,\%domconfig,$trails,$allitems);      $output .= &construct_data_table($knownuser,\%courses,$details,undef,$now,\%domconfig,$trails,$allitems);
     if ($env{'form.coursenum'} ne '') {      $output .= "\n".'<form name="linklaunch" method="post" action="">'.
         $output .= &Apache::lonhtmlcommon::echo_form_input(['coursenum','state','catalogfilter','sortby','showdetails']);                 '<input type="hidden" name="backto" value="coursecatalog" />'.
     }                 '<input type="hidden" name="courseid" value="" />'.
                  &Apache::lonhtmlcommon::echo_form_input(['catalogfilter','courseid']).'</form>';
     return $output;      return $output;
 }  }
   
Line 782  sub construct_data_table { Line 810  sub construct_data_table {
             $output .=              $output .=
               '<th>'.&mt('Default Access Dates for Students').'</th>'.                '<th>'.&mt('Default Access Dates for Students').'</th>'.
               '<th>'.&mt('Student Counts').'</th>'.                '<th>'.&mt('Student Counts').'</th>'.
               '<th>'.&mt('Auto-enrollment of <br />registered students').'</th>';                '<th>'.&mt('Auto-enrollment of[_1]registered students','<br />').'</th>';
         } else {          } else {
             $output .= '<th>'.&mt('Details').'</th>';              $output .= '<th>'.&mt('Details').'</th>';
         }          }
Line 841  sub build_courseinfo_hash { Line 869  sub build_courseinfo_hash {
         $cleandesc=~s/'/\\'/g;          $cleandesc=~s/'/\\'/g;
         $cleandesc =~ s/^\s+//;          $cleandesc =~ s/^\s+//;
         my ($cdom,$cnum)=split(/\_/,$course);          my ($cdom,$cnum)=split(/\_/,$course);
         my ($descr,$instcode,$singleowner,$ttype,$selfenroll_types,          my ($instcode,$singleowner,$ttype,$selfenroll_types,
             $selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories);              $selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories);
         if (ref($courses->{$course}) eq 'HASH') {          if (ref($courses->{$course}) eq 'HASH') {
             $descr = $courses->{$course}{'description'};              $descr = $courses->{$course}{'description'};
Line 929  sub build_courseinfo_hash { Line 957  sub build_courseinfo_hash {
                 }                  }
             }              }
             if ($startaccess) {              if ($startaccess) {
                 $accessdates .= &mt('<i>From:</i> ').$startaccess.'<br />';                  $accessdates .= '<i>'.&mt('From:[_1]','</i> '.$startaccess).'<br />';
             }              }
             if ($endaccess) {              if ($endaccess) {
                 $accessdates .= &mt('<i>To:</i> ').$endaccess.'<br />';                  $accessdates .= '<i>'.&mt('To:[_1]','</i> '.$endaccess).'<br />';
             }              }
             if (($selfenroll_types ne '') &&               if (($selfenroll_types ne '') && 
                 ($selfenroll_end > 0 && $selfenroll_end > $now)) {                  ($selfenroll_end > 0 && $selfenroll_end > $now)) {
Line 953  sub build_courseinfo_hash { Line 981  sub build_courseinfo_hash {
                     if ($selfenroll_start_access || $selfenroll_end_access) {                      if ($selfenroll_start_access || $selfenroll_end_access) {
                         $accessdates .= '<br/><br /><i>'.&mt('Self-enrollers:').'</i><br />';                          $accessdates .= '<br/><br /><i>'.&mt('Self-enrollers:').'</i><br />';
                         if ($selfenroll_start_access) {                          if ($selfenroll_start_access) {
                             $accessdates .= &mt('<i>From:</i> ').$selfenroll_start_access.'<br />';                              $accessdates .= '<i>'.&mt('From:[_1]','</i> '.$selfenroll_start_access).'<br />';
                         }                          }
                         if ($selfenroll_end_access) {                          if ($selfenroll_end_access) {
                             $accessdates .= &mt('<i>To:</i> ').$selfenroll_end_access.'<br />';                              $accessdates .= '<i>'.&mt('To:[_1]','</i> '.$selfenroll_end_access).'<br />';
                         }                          }
                     }                      }
                 }                  }
Line 991  sub count_students { Line 1019  sub count_students {
         $student_count{$data->[$idx{'status'}]} ++;          $student_count{$data->[$idx{'status'}]} ++;
     }      }
   
     my $countslist = &mt('[quant,_1,section]',$numsec).':<br />';      my $countslist = &mt('[quant,_1,section:,sections:,No sections]',$numsec).'<br />';
     foreach my $status ('Active','Future') {      foreach my $status ('Active','Future') {
         $countslist .= '<nobr>'.$status_title{$status}.': '.          $countslist .= '<span class="LC_nobreak">'.$status_title{$status}.': '.
                        $student_count{$status}.'</nobr><br />';                         $student_count{$status}.'</span><br />';
     }      }
     return $countslist;      return $countslist;
 }  }
Line 1043  sub courseinfo_row { Line 1071  sub courseinfo_row {
                '<td>'.$xlist_items.'</td>'.                 '<td>'.$xlist_items.'</td>'.
                '<td>'.$title.'&nbsp;<font size="-2">';                 '<td>'.$title.'&nbsp;<font size="-2">';
     if ($showsyllabus) {      if ($showsyllabus) {
         $output .= &Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$cnum,$cdom);          $output .= '<a href="javascript:ToSyllabus('."'$cdom','$cnum'".')">'.&mt('Syllabus').'</a>';
     } else {      } else {
         $output .= '&nbsp;';          $output .= '&nbsp;';
     }      }
Line 1067  sub courseinfo_row { Line 1095  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="/adm/selfenroll?cid='.$course.'">'.&mt('Enroll in course').'</a></td>';                  $output .= '<td><a href="javascript:ToSelfenroll('."'$course'".')">'.&mt('Enroll in course').'</a></td>';
             }              }
             $selfenroll = 1;              $selfenroll = 1;
         }          }
Line 1097  sub identify_sections { Line 1125  sub identify_sections {
         }          }
     }      }
     @secnums = sort {$a <=> $b} @secnums;      @secnums = sort {$a <=> $b} @secnums;
     my $seclist = join(', ',@secnums);      $seclist = join(', ',@secnums);
     my $numsec = @secnums;      my $numsec = @secnums;
     return ($seclist,$numsec);      return ($seclist,$numsec);
 }  }
Line 1134  sub get_valid_classes { Line 1162  sub get_valid_classes {
     }      }
     if ($totalitems > 0) {      if ($totalitems > 0) {
         if (@{$validations{'sections'}}) {          if (@{$validations{'sections'}}) {
             $response = &mt('Sections: ').              $response = &mt('Sections:').' '.
                         join(', ',@{$validations{'sections'}}).'<br />';                          join(', ',@{$validations{'sections'}}).'<br />';
         }          }
         if (@{$validations{'xlists'}}) {          if (@{$validations{'xlists'}}) {
             $response .= &mt('Courses: ').              $response .= &mt('Courses:').' '.
                         join(', ',@{$validations{'xlists'}});                          join(', ',@{$validations{'xlists'}});
         }          }
     }      }
Line 1303  sub autoenroll_info { Line 1331  sub autoenroll_info {
                    &get_valid_classes($seclist,$xlist_items,$code,                     &get_valid_classes($seclist,$xlist_items,$code,
                                       $owners,$cdom,$cnum);                                        $owners,$cdom,$cnum);
                 if ($valid_classes ne '') {                  if ($valid_classes ne '') {
                     $autoenrolldates = &mt('Not enabled<br />Starts: ').                      $autoenrolldates = &mt('Not enabled').'<br />'
                                        $autostart.'<br />'.$valid_classes;                }                                        .&mt('Starts: [_1]',$autostart)
                                         .'<br />'.$valid_classes;
                   }
             }              }
         } else {          } else {
             if ($coursehash->{'internal.autoend'} && $coursehash->{'internal.autoend'} < $now) {              if ($coursehash->{'internal.autoend'} && $coursehash->{'internal.autoend'} < $now) {
                 $autoenrolldates = &mt('Not enabled<br />Ended: ').$autoend;                  $autoenrolldates = &mt('Not enabled').'<br />'
                                     .&mt('Ended: [_1]',$autoend);
             } else {              } else {
                 my $valid_classes = &get_valid_classes($seclist,$xlist_items,                  my $valid_classes = &get_valid_classes($seclist,$xlist_items,
                                                        $code,$owners,$cdom,$cnum);                                                         $code,$owners,$cdom,$cnum);
                 if ($valid_classes ne '') {                  if ($valid_classes ne '') {
                     $autoenrolldates = &mt('Currently enabled<br />').                      $autoenrolldates = &mt('Currently enabled').'<br />'.
                                        $valid_classes;                                         $valid_classes;
                 }                  }
             }              }
Removed from v.1.36  
changed lines
  Added in v.1.43

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