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

Diff for /loncom/interface/courseprefs.pm between versions 1.44 and 1.49.2.1

version 1.44, 2011/01/15 03:10:54 version 1.49.2.1, 2012/05/27 01:36:09
Line 463  sub handler { Line 463  sub handler {
                     help => 'Course_Prefs_Printouts',                      help => 'Course_Prefs_Printouts',
                     ordered => ['problem_stream_switch','suppress_tries',                      ordered => ['problem_stream_switch','suppress_tries',
                                 'default_paper_size','print_header_format',                                  'default_paper_size','print_header_format',
                                 'disableexampointprint','canuse_pdfforms'],                                  'disableexampointprint'],
                     itemtext => {                      itemtext => {
                         problem_stream_switch => 'Allow problems to be split over pages',                          problem_stream_switch => 'Allow problems to be split over pages',
                         suppress_tries        => 'Suppress number of tries in printing',                          suppress_tries        => 'Suppress number of tries in printing',
Line 509  sub handler { Line 509  sub handler {
         my @allitems = &get_allitems(%prefs);          my @allitems = &get_allitems(%prefs);
         &Apache::lonconfigsettings::make_changes($r,$cdom,$phase,$context,          &Apache::lonconfigsettings::make_changes($r,$cdom,$phase,$context,
                                                  \@prefs_order,\%prefs,\%values,                                                   \@prefs_order,\%prefs,\%values,
                                                   $cnum,undef,\@allitems);                                                    $cnum,undef,\@allitems,'coursepref');
     } elsif ($phase eq 'display') {      } elsif ($phase eq 'display') {
         my $jscript = &get_jscript($cid,$cdom,$phase,$crstype);          my $jscript = &get_jscript($cid,$cdom,$phase,$crstype);
         my @allitems = &get_allitems(%prefs);          my @allitems = &get_allitems(%prefs);
         &Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context,          &Apache::lonconfigsettings::display_settings($r,$cdom,$phase,$context,
             \@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype);              \@prefs_order,\%prefs,\%values,undef,$jscript,\@allitems,$crstype,'coursepref');
     } else {      } else {
         &Apache::lonconfigsettings::display_choices($r,$phase,$context,          &Apache::lonconfigsettings::display_choices($r,$phase,$context,
                                                     \@prefs_order,\%prefs);                                                      \@prefs_order,\%prefs,'coursepref');
     }      }
     return OK;      return OK;
 }  }
Line 544  sub print_config_box { Line 544  sub print_config_box {
     my $itemtext = $item->{'itemtext'};      my $itemtext = $item->{'itemtext'};
     my $rowtotal = 0;      my $rowtotal = 0;
     my $output =      my $output =
         '<h3><a href="#">'.&mt($item->{text}).'</a></h3>           '<table class="LC_nested_outer">
         <div>&nbsp;<span style="float:right">'.            <tr>
          &Apache::loncommon::help_open_topic($item->{'help'}).'</span>';             <th align="left" valign="middle"><span class="LC_nobreak" style="font-size: larger;" >'.
              &mt($item->{text}).'&nbsp;'.
              &Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n".
             '</tr>';
     if (($action eq 'feedback') || ($action eq 'classlists')) {      if (($action eq 'feedback') || ($action eq 'classlists')) {
         $output .= '          $output .= '
             <tr>
              <td>
             <table class="LC_nested">';                 <table class="LC_nested">';   
         if (exists $item->{'header'}->[0]->{'col1'} ||           if (exists $item->{'header'}->[0]->{'col1'} || 
             exists $item->{'header'}->[0]->{'col2'}) {              exists $item->{'header'}->[0]->{'col2'}) {
Line 566  sub print_config_box { Line 571  sub print_config_box {
         }          }
         $output .= '          $output .= '
            </table>             </table>
             </td>
            </tr>
            <tr>
             <td>
             <table class="LC_nested">              <table class="LC_nested">
              <tr class="LC_info_row">               <tr class="LC_info_row">
               <td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>';                <td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>';
Line 576  sub print_config_box { Line 585  sub print_config_box {
             $output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype).              $output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype).
                        '                         '
             </table>              </table>
              </td>
             </tr>
             <tr>
              <td>
             <table class="LC_nested">';              <table class="LC_nested">';
             if (exists $item->{'header'}->[2]->{'col1'} ||               if (exists $item->{'header'}->[2]->{'col1'} || 
             exists $item->{'header'}->[2]->{'col2'}) {              exists $item->{'header'}->[2]->{'col2'}) {
Line 588  sub print_config_box { Line 601  sub print_config_box {
         }          }
     } else {      } else {
         $output .= '          $output .= '
             <tr>
              <td>
             <table class="LC_nested">';              <table class="LC_nested">';
         if (exists $item->{'header'}->[0]->{'col1'} ||           if (exists $item->{'header'}->[0]->{'col1'} || 
             exists $item->{'header'}->[0]->{'col2'}) {              exists $item->{'header'}->[0]->{'col2'}) {
Line 624  sub print_config_box { Line 639  sub print_config_box {
     }      }
     $output .= '      $output .= '
    </table>     </table>
 </div>';    </td>
    </tr>
   </table><br />';
     return ($output,$rowtotal);      return ($output,$rowtotal);
 }  }
   
Line 648  sub process_changes { Line 665  sub process_changes {
                     }                      }
                 }                  }
             } elsif (ref($item->{'ordered'}) eq 'ARRAY') {              } elsif (ref($item->{'ordered'}) eq 'ARRAY') {
                 @ordered = @{$item->{'ordered'}};                  if ($action eq 'courseinfo') {
                       my ($can_toggle_cat,$can_categorize) =
                           &can_modify_catsettings($cdom,$crstype);
                       foreach my $entry (@{$item->{'ordered'}}) {
                           next if (($entry eq 'hidefromcat') &&
                                    (!$can_toggle_cat));
                           next if (($entry eq 'categories') &&
                                    (!$can_categorize));
                           next if (($entry eq 'loncaparev') || 
                                   ($entry eq 'owner'));
                           push(@ordered,$entry);
                       }
                   } else {
                       @ordered = @{$item->{'ordered'}};
                   }
             }              }
             if (@ordered > 0) {              if (@ordered > 0) {
                 if ($action eq 'feedback') {                  if ($action eq 'feedback') {
Line 690  sub process_changes { Line 721  sub process_changes {
                     }                      }
                 } else {                  } else {
                     foreach my $entry (@ordered) {                      foreach my $entry (@ordered) {
                         next if (($entry eq 'loncaparev') || ($entry eq 'owner'));  
                         if ($entry eq 'cloners') {                          if ($entry eq 'cloners') {
                             if ($env{'form.cloners_all'}) {                              if ($env{'form.cloners_all'}) {
                                 $newvalues{$entry} = '*';                                  $newvalues{$entry} = '*';
Line 1346  sub store_changes { Line 1376  sub store_changes {
                     $output .= '</ul>';                      $output .= '</ul>';
                 } else {                  } else {
                     if ($crstype eq 'Community') {                      if ($crstype eq 'Community') {
                         $output = &mt('No changes made to community settings.');                          $output .= &mt('No changes made to community settings.');
                     } else {                      } else {
                         $output = &mt('No changes made to course settings.');                          $output .= &mt('No changes made to course settings.');
                     }                      }
                 }                  }
             }              }
Line 2375  sub show_contents_view { Line 2405  sub show_contents_view {
                     }                      }
                     $r->print(&Apache::loncommon::start_data_table_row().                      $r->print(&Apache::loncommon::start_data_table_row().
                               '<td rowspan="'.$rowspan.'">'.$indent.$icon.'&nbsp;'.$title.'</td>');                                '<td rowspan="'.$rowspan.'">'.$indent.$icon.'&nbsp;'.$title.'</td>');
                     &releases_by_map($r,$bymap,$url,$scopeorder);                      &releases_by_map($r,$bymap,$url,$scopeorder,$lt);
                     $r->print(&Apache::loncommon::end_data_table_row());                      $r->print(&Apache::loncommon::end_data_table_row());
                 } else {                  } else {
                     my $rowspan;                      my $rowspan;
Removed from v.1.44  
changed lines
  Added in v.1.49.2.1

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