[LON-CAPA-cvs] cvs: loncom /interface courseprefs.pm

www www@source.lon-capa.org
Fri, 14 Jan 2011 00:18:47 -0000


www		Fri Jan 14 00:18:47 2011 EDT

  Modified files:              
    /loncom/interface	courseprefs.pm 
  Log:
  Messing with the randomization and receipts is "advanced"
  
  
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.40 loncom/interface/courseprefs.pm:1.41
--- loncom/interface/courseprefs.pm:1.40	Thu Jan 13 22:49:47 2011
+++ loncom/interface/courseprefs.pm	Fri Jan 14 00:18:47 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.40 2011/01/13 22:49:47 www Exp $
+# $Id: courseprefs.pm,v 1.41 2011/01/14 00:18:47 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1708,8 +1708,7 @@
                    text => '<b>'.&mt($itemtext->{'cloners'}).'</b><br />'.
                            &mt('Owner and Coordinators included automatically'),
                    input => 'textbox',
-                   size  => '40',
-                   advanced => 1
+                   size  => '40'
                          },
         'rolenames'  => { 
                    text  => '<b>'.&mt($itemtext->{'rolenames'}).'</b><br />'.
@@ -3251,6 +3250,7 @@
                                 '64bit5' => '64bit5',
                               },
                    order => ['32bit','64bit','64bit2','64bit3','64bit4','64bit5'],
+                   advanced => 1
                  },
         'receiptalg'  => {
                    text => '<b>'.&mt($itemtext->{'receiptalg'}).'</b><br />'.
@@ -3262,6 +3262,7 @@
                                 receipt3 => 'receipt3',
                               },
                    order => ['receipt','receipt2','receipt3'],
+                   advanced => 1
                  },
         'disablesigfigs' => {
                    text => '<b>'.&mt($itemtext->{'disablesigfigs'}).'</b>',
@@ -3533,7 +3534,11 @@
         my $count = 0;
         foreach my $item (@{$ordered}) {
             $count ++;
-            $datatable .= &item_table_row_start($items->{$item}{text},$count);
+            if (exists $items->{$item}{advanced} && $items->{$item}{advanced} == 1) {
+                $datatable .= &item_table_row_start($items->{$item}{text},$count,"advanced");
+            } else {
+                $datatable .= &item_table_row_start($items->{$item}{text},$count);
+            }
             if ($item eq 'nothideprivileged') {
                 $datatable .= &nothidepriv_row($cdom,$item,$settings,$crstype);
             } elsif ($item eq 'print_header_format') {