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

Diff for /loncom/interface/coursecatalog.pm between versions 1.53.4.7 and 1.58.4.1

version 1.53.4.7, 2010/10/07 14:45:04 version 1.58.4.1, 2010/05/30 14:49:22
Line 190  sub course_details { Line 190  sub course_details {
                 ({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 200  sub course_details { Line 200  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 306  sub instcode_course_selector { Line 305  sub instcode_course_selector {
 sub cat_header {  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('Course/Community Catalog',$js,          &Apache::loncommon::start_page('Other',$js,
                                        {                                         {
                                          'add_entries' => $add_entries,                                           'add_entries' => $add_entries,
                                          'no_inline_link'   => 1,});                                           'no_inline_link'   => 1,});
Line 332  sub cat_header { Line 331  sub cat_header {
     }      }
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
     my $onchange;      my $onchange;
     unless (($env{'browser.interface'} eq 'textual') || ($env{'form.interface'} eq 'textual')) {      unless ($env{'form.interface'} eq 'textual') {
         $onchange = 'this.form.submit()';          $onchange = 'this.form.submit()';
     }      }
     $r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.      $r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.
Line 387  sub category_breadcrumbs { Line 386  sub category_breadcrumbs {
     } else {      } else {
         $catlinks .= &mt('Official courses (with institutional codes)');          $catlinks .= &mt('Official courses (with institutional codes)');
                      $env{'form.currcat_0'} = 'instcode::0';                       $env{'form.currcat_0'} = 'instcode::0';
         $currcat_str .= '<input type="hidden" name="currcat_0" value="'.$env{'form.currcat_0'}.'" />';           $currcat_str .= '<input type="hidden" name="currcat_0" value="'.$env{'form.currcat_0'}.'" />';
     }      }
     if ($deeper) {      if ($deeper) {
         for (my $i=1; $i<=$deeper; $i++) {          for (my $i=1; $i<=$deeper; $i++) {
Line 402  sub category_breadcrumbs { Line 401  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).':'.&escape($container).':'.$shallower;                          my $item = &escape($name).':'.$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"';
Removed from v.1.53.4.7  
changed lines
  Added in v.1.58.4.1

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