--- modules/gci/londocsgci.pm 2010/09/14 06:23:15 1.12 +++ 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.12 2010/09/14 06:23:15 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('
'.&mt('Modify Test').''. &mt('Currently no student submissions have been recorded, so you may modify the contents of the Concept Test.'). - '
'. + '

'. ''. '

'); } my ($crsparms,$ineffect,$parmlev) = ¤t_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('

'.&mt('Test Availability').''. &mt('Open and close dates for test items for the concept test are currently set as follows:'). - '
'. + '

'. '
'. &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(''. ''. + ''. ''. '
'); &Apache::lonnet::delenv('request.gcicontext'); @@ -316,7 +327,7 @@ sub display_questions { $output .= ''. ''. &mt('Show').' ...
'. - '
'. + '