--- loncom/interface/courseprefs.pm	2010/02/12 00:39:51	1.8.2.6
+++ loncom/interface/courseprefs.pm	2010/01/07 18:21:25	1.16
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.8.2.6 2010/02/12 00:39:51 raeburn Exp $
+# $Id: courseprefs.pm,v 1.16 2010/01/07 18:21:25 faziophi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -281,13 +281,14 @@ sub handler {
                                 col2 => 'Value',}],
                     ordered => ['problem_stream_switch','suppress_tries',
                                 'default_paper_size','print_header_format',
-                                'disableexampointprint'],
+                                'disableexampointprint','canuse_pdfforms'],
                     itemtext => {
                         problem_stream_switch => 'Allow problems to be split over pages',
                         suppress_tries        => 'Suppress number of tries in printing',
                         default_paper_size    => 'Default paper type',
                         print_header_format   => 'Print header format',
                         disableexampointprint => 'Disable automatically printing point values on exams',
+                        canuse_pdfforms    => 'Users can print problems as PDF forms and upload later for grading',
                                 },
                   },
         'spreadsheet' =>
@@ -365,16 +366,11 @@ sub print_config_box {
     my $itemtext = $item->{'itemtext'};
     my $rowtotal = 0;
     my $output =
-         '<table class="LC_nested_outer">
-          <tr>
-           <th align="left" valign="middle"><span class="LC_font_larger">'.
-           &mt($item->{text}).'&nbsp;'.
-           &Apache::loncommon::help_open_topic($item->{'help'}).'</span></th>'."\n".
-          '</tr>';
+        '<h3><a href="#">'.&mt($item->{text}).'</a></h3>
+        <div>&nbsp;<span style="float:right">'.
+         &Apache::loncommon::help_open_topic($item->{'help'}).'</span>';
     if (($action eq 'feedback') || ($action eq 'classlists')) {
         $output .= '
-          <tr>
-           <td>
             <table class="LC_nested">
              <tr class="LC_info_row">
               <td class="LC_left_item">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>
@@ -388,10 +384,6 @@ sub print_config_box {
         }
         $output .= '
            </table>
-          </td>
-         </tr>
-         <tr>
-           <td>
             <table class="LC_nested">
              <tr class="LC_info_row">
               <td class="LC_left_item">'.&mt($item->{'header'}->[1]->{'col1'}).'</td>';
@@ -402,10 +394,6 @@ sub print_config_box {
             $output .= &print_classlists('middle',$cdom,$settings,$itemtext,\$rowtotal,$crstype).
                        '
             </table>
-           </td>
-          </tr>
-          <tr>
-           <td>
             <table class="LC_nested">
              <tr class="LC_info_row">
               <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[2]->{'col1'}).'</td>
@@ -414,8 +402,6 @@ sub print_config_box {
         }
     } else {
         $output .= '
-          <tr>
-           <td>
             <table class="LC_nested">
              <tr class="LC_info_row">
               <td class="LC_left_item" valign="top">'.&mt($item->{'header'}->[0]->{'col1'}).'</td>
@@ -448,9 +434,7 @@ sub print_config_box {
     }
     $output .= '
    </table>
-  </td>
- </tr>
-</table><br />';
+</div>';
     return ($output,$rowtotal);
 }
 
@@ -985,13 +969,19 @@ sub store_changes {
                                     if (defined($yesno{$key})) {
                                         $displayval = &mt('No');
                                         if ($changes->{$item}{$key} eq 'yes') {
-                                            $displayval = &mt('Yes');         
+                                            $displayval = &mt('Yes');                          
                                         }
                                     } elsif (($key =~ /^default_enrollment_(start|end)_date$/) && ($displayval)) {
                                         $displayval = &Apache::lonlocal::locallocaltime($displayval);
                                     } elsif ($key eq 'categories') {
                                         $displayval = $env{'form.categories_display'};
-                                    }  
+                                    } elsif ($key eq 'canuse_pdfforms') {
+                                        if ($changes->{$item}{$key} eq '1') {
+                                            $displayval = &mt('Yes');
+                                        } elsif ($changes->{$item}{$key} eq '0') {
+                                            $displayval = &mt('No');
+                                        }
+                                    }
                                     if ($changes->{$item}{$key} eq '') {
                                         push(@delkeys,$key);
                                         $output .= '<li>'.&mt('Deleted setting for [_1]',
@@ -1037,10 +1027,10 @@ sub store_changes {
                     $output .= &mt('An error occurred when removing course settings which are no longer in use.');
                 }
                 $output .= '</span>';
-            }
-        } else {
-            foreach my $key (@delkeys) {
-                &Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key);
+            } else {
+                foreach my $key (@delkeys) {
+                    &Apache::lonnet::delenv('course.'.$cdom.'_'.$cnum.'.'.$key);
+                }
             }
         }
         if (@need_env_update) {
@@ -1760,11 +1750,11 @@ sub print_feedback {
     my %sections = &Apache::loncommon::get_sections($cdom,$cnum);
     my @sections = sort( { $a <=> $b } keys(%sections));
     my %lt = &Apache::lonlocal::texthash (
-                                           currone  => 'Current recipient:',
-                                           currmult => 'Current recipients:',
-                                           add      => 'Additional recipient:',
-                                           del      => 'Delete?',
-                                           sec      => 'Sections:',
+                                           currone => 'Current recipient:',
+                                           curmult => 'Current recipients:',
+                                           add     => 'Additional recipient:',
+                                           del     => 'Delete?',
+                                           sec     => 'Sections:',
                                          );
 
     foreach my $item (@{$ordered}) {
@@ -1825,7 +1815,7 @@ sub user_table {
         if ($num) {
             $output .= '<tr>'.
                        '<td align="left"><i>';
-            if ($num == 1) {
+            if ($num > 1) {
                 $output .= $lt->{'currone'};
             } else {
                 $output .= $lt->{'currmult'};
@@ -1945,11 +1935,11 @@ sub print_discussion {
     my %sections = &Apache::loncommon::get_sections($cdom,$cnum);
     my @sections = sort( { $a <=> $b } keys(%sections));
     my %lt = &Apache::lonlocal::texthash (
-                                          currone  => 'Disallowed:',
-                                          currmult => 'Disallowed:',
-                                          add      => 'Disallow more:',
-                                          del      => 'Delete?',
-                                          sec      => 'Sections:',
+                                          currone => 'Disallowed:',
+                                          curmult => 'Disallowed:',
+                                          add     => 'Disallow more:',
+                                          del     => 'Delete?',
+                                          sec     => 'Sections:',
                                          );
 
     foreach my $item (@{$ordered}) {
@@ -2305,6 +2295,16 @@ sub print_printouts {
             text => '<b>'.&mt($itemtext->{'disableexampointprint'}).'</b>',
             input => 'radio',
                                  },
+        canuse_pdfforms => {
+            text  => '<b>'.&mt($itemtext->{'canuse_pdfforms'}).'</b>',
+            input => 'selectbox',
+            options => {
+                         1    => &mt('Yes'),
+                         0    => &mt('No'),
+                       },
+            order => ['1','0'],
+            nullval => 'None specified - use domain default',
+                    }
     );
     return &make_item_rows($cdom,\%items,$ordered,$settings,$rowtotal,$crstype);
 }