version 1.15, 2010/11/16 02:28:10
|
version 1.16, 2010/11/29 04:33:35
|
Line 219 sub listresources {
|
Line 219 sub listresources {
|
} else { |
} else { |
$r->print('<fieldset><legend>'.&mt('Modify Test').'</legend>'. |
$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.'). |
&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="hidden" name="concepttest" value="editmyown" />'. |
'<input type="submit" name="modifytest" value="'.&mt('Edit Concept Test').'" /></form></fieldset></p>'); |
'<input type="submit" name="modifytest" value="'.&mt('Edit Concept Test').'" /></form></fieldset></p>'); |
} |
} |
my ($crsparms,$ineffect,$parmlev) = ¤t_parms($cdom,$cnum); |
my ($crsparms,$ineffect,$parmlev) = ¤t_parms($cdom,$cnum); |
my $formname = 'datesform'; |
my $formname = 'datesform'; |
my $datebutton = &mt('Save'); |
my $datebutton = &mt('Save'); |
|
my $hide_timezone = 1; |
my $startform = |
my $startform = |
&Apache::lonhtmlcommon::date_setter($formname,'opendate', |
&Apache::lonhtmlcommon::date_setter($formname,'opendate', |
$crsparms->{'opendate'}); |
$crsparms->{'opendate'},'','','', |
|
'','','','','',$hide_timezone); |
my $endform = |
my $endform = |
&Apache::lonhtmlcommon::date_setter($formname,'duedate', |
&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>'. |
$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:'). |
&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" '. |
'<form name="'.$formname.'" method="post" '. |
'action="/adm/coursedocs">'. |
'action="/adm/coursedocs">'. |
&Apache::lonhtmlcommon::start_pick_box(). |
&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')). |
&Apache::lonhtmlcommon::row_title(&mt('Open date')). |
$startform. |
$startform. |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
Line 547 sub current_parms {
|
Line 557 sub current_parms {
|
sub store_dates_parms { |
sub store_dates_parms { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
my $topsymb = '___0___uploaded/'.$cdom.'/'.$cnum.'/default.sequence'; |
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) = |
my ($opendate,$duedate) = |
&Apache::lonuserutils::get_dates_from_form('opendate','duedate'); |
&Apache::lonuserutils::get_dates_from_form('opendate','duedate',$timezone); |
my %dates = ( |
my %dates = ( |
opendate => { |
opendate => { |
value => $opendate, |
value => $opendate, |
Line 566 sub store_dates_parms {
|
Line 586 sub store_dates_parms {
|
'0_'.$date,14,$dates{$date}{'value'}, |
'0_'.$date,14,$dates{$date}{'value'}, |
$dates{$date}{'type'},undef,$cdom); |
$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>'. |
my $output = &mt('Open and Close dates set for test items').'<ul>'. |
'<li>'.&mt('Concept Test Questions open:').' '. |
'<li>'.&mt('Concept Test Questions open:').' '. |
&Apache::lonlocal::locallocaltime($opendate).'</li>'. |
&Apache::lonlocal::locallocaltime($opendate,$timezone).'</li>'. |
'<li>'.&mt('Concept Test Questions close:').' '. |
'<li>'.&mt('Concept Test Questions close:').' '. |
&Apache::lonlocal::locallocaltime($duedate).'</li>'. |
&Apache::lonlocal::locallocaltime($duedate,$timezone).'</li>'. |
'</ul>'; |
'</ul>'; |
return $output; |
return $output; |
} |
} |