--- modules/gci/londocsgci.pm	2010/09/19 14:48:53	1.13
+++ modules/gci/londocsgci.pm	2010/11/29 04:33:35	1.16
@@ -2,7 +2,7 @@
 # Custom Edit Course Routines for Assembly of Valid Concept Tests from
 # Geoscience Concept Inventory. 
 #
-# $Id: londocsgci.pm,v 1.13 2010/09/19 14:48:53 gci Exp $
+# $Id: londocsgci.pm,v 1.16 2010/11/29 04:33:35 gci Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -115,7 +115,7 @@ sub setdefaults {
         $revreqs{$prereqs{$item}} = $item;
     }
     @defchosen=('01','02','03','07','12','18','26','32','37','38','47','54','63','66','2004_73');
-    @development = ('001','002','003','004','005','006','007','008','009','010','011','012','013','014','015','016','017','018','019','020','021','022');
+    @development = ('001','002','003','004','005','006','007','008','009','010','011','012','013','014','015','016','017','018','019','020','021','022','023','024','025','026','027');
 }
 
 sub checkvalid {
@@ -219,25 +219,35 @@ sub listresources {
       } else {
           $r->print('<fieldset><legend>'.&mt('Modify Test').'</legend>'.
                     &mt('Currently no student submissions have been recorded, so you may modify the contents of the Concept Test.').
-                    '<br /><form name="changetest" method="post" action="/adm/coursedocs">'.
+                    '<br /><br /><form name="changetest" method="post" action="/adm/coursedocs">'.
                     '<input type="hidden" name="concepttest" value="editmyown" />'.
                     '<input type="submit" name="modifytest" value="'.&mt('Edit Concept Test').'" /></form></fieldset></p>');
       }
       my ($crsparms,$ineffect,$parmlev) = &current_parms($cdom,$cnum);
       my $formname = 'datesform';
       my $datebutton = &mt('Save');
+      my $hide_timezone = 1;
       my $startform =
           &Apache::lonhtmlcommon::date_setter($formname,'opendate',
-                                              $crsparms->{'opendate'});
+                                              $crsparms->{'opendate'},'','','',
+                                              '','','','','',$hide_timezone);
       my $endform =
           &Apache::lonhtmlcommon::date_setter($formname,'duedate',
-                                                           $crsparms->{'duedate'});
+                                              $crsparms->{'duedate'},'','','',
+                                              '','','','','',$hide_timezone);
+      my $includeempty = 1;
+      my $timezone = &Apache::lonlocal::gettimezone();
+      my $tzform = &Apache::loncommon::select_timezone('timezone',$timezone,
+                                                       undef,$includeempty);
       $r->print('<p><fieldset><legend>'.&mt('Test Availability').'</legend>'.
                 &mt('Open and close dates for test items for the concept test are currently set as follows:').
-                '<br />'.
+                '<br /><br />'.
                 '<form name="'.$formname.'" method="post" '.
                 'action="/adm/coursedocs">'.
                 &Apache::lonhtmlcommon::start_pick_box().
+                &Apache::lonhtmlcommon::row_title(&mt('Time zone')).
+                $tzform.
+                &Apache::lonhtmlcommon::row_closure(1).         
                 &Apache::lonhtmlcommon::row_title(&mt('Open date')).
                 $startform.
                 &Apache::lonhtmlcommon::row_closure(1).
@@ -282,6 +292,7 @@ sub editor {
     $r->print(&display_questions(\@devitems,'development',$devleg,\%chosenitems));
     $r->print('<input type="hidden" name="phase" value="storemap" />'.
               '<input type="hidden" name="context" value="'.$context.'" />'.
+              '<input type="hidden" name="concepttest" value="'.$env{'form.concepttest'}.'" />'.
               '<input type="submit" value="'.&mt('Store Problem Selection').'" />'.
               '</form>');
     &Apache::lonnet::delenv('request.gcicontext');
@@ -546,8 +557,18 @@ sub current_parms {
 sub store_dates_parms {
     my ($cdom,$cnum) = @_;
     my $topsymb = '___0___uploaded/'.$cdom.'/'.$cnum.'/default.sequence';
+    my $tz_change; 
+    my $timezone =  &Apache::lonlocal::gettimezone();
+    if ($env{'form.timezone'} ne '') {
+        if (&Apache::lonlocal::gettimezone($env{'form.timezone'}) ne 'local') {
+            if ($timezone ne $env{'form.timezone'}) {
+                $tz_change = 1;
+                $timezone = $env{'form.timezone'};
+            }
+        }
+    }
     my ($opendate,$duedate) = 
-        &Apache::lonuserutils::get_dates_from_form('opendate','duedate');
+        &Apache::lonuserutils::get_dates_from_form('opendate','duedate',$timezone);
     my %dates = (
                   opendate => {
                                value => $opendate,
@@ -565,11 +586,14 @@ sub store_dates_parms {
                                    '0_'.$date,14,$dates{$date}{'value'},
                                    $dates{$date}{'type'},undef,$cdom);
     }
+    if ($tz_change) {
+        &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.timezone' => $timezone});
+    }
     my $output = &mt('Open and Close dates set for test items').'<ul>'.
                  '<li>'.&mt('Concept Test Questions open:').' '.
-                        &Apache::lonlocal::locallocaltime($opendate).'</li>'.
+                        &Apache::lonlocal::locallocaltime($opendate,$timezone).'</li>'.
                  '<li>'.&mt('Concept Test Questions close:').' '.
-                        &Apache::lonlocal::locallocaltime($duedate).'</li>'.
+                        &Apache::lonlocal::locallocaltime($duedate,$timezone).'</li>'.
                  '</ul>';
     return $output;
 }