--- loncom/interface/lonparmset.pm	2008/05/28 23:53:35	1.396
+++ loncom/interface/lonparmset.pm	2008/05/31 23:53:18	1.399
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.396 2008/05/28 23:53:35 bisitz Exp $
+# $Id: lonparmset.pm,v 1.399 2008/05/31 23:53:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2339,6 +2339,8 @@ sub crsenv {
 	     'texengine'
 	         => '<b>'.&mt('Force all students in the course to use a specific math rendering engine.').'</b><br />'
                    .'('.&mt('[_1], [_2] (Convert to Images), [_3] (TeX to HTML), or blank for student\'s preference','"<tt>jsMath</tt>"','"<tt>mimetex</tt>"','"<tt>tth</tt>"').')',
+             'timezone'
+                 => '<b>'.&mt('Timezone in which the course takes place').'</b>'
 
              ); 
         my @Display_Order = ('url','description','courseid','cloners','grading',
@@ -2353,6 +2355,7 @@ sub crsenv {
                              'allow_limited_html_in_feedback',
                              'allow_discussion_post_editing',
                              'languages',
+                             'timezone',
 			     'nothideprivileged',
                              'rndseed',
                              'receiptalg',
@@ -2397,6 +2400,13 @@ sub crsenv {
                                                         $values{$parameter},
                                                         $onchange).
                                                         '</td>';
+            } elsif ($parameter eq 'timezone') {
+                my $includeempty = 1;
+                my $timezone = &Apache::lonlocal::gettimezone();
+                $output .= '<td>'.
+                    &Apache::loncommon::select_timezone($parameter.'_value',
+                                                        $timezone,
+                                                        $onchange,$includeempty).'</td>';
             } else {
                 $output .= '<td>'.
                     &Apache::lonhtmlcommon::textbox($parameter.'_value',