Diff for /modules/gci/londocsgci.pm between versions 1.15 and 1.16

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) = &current_parms($cdom,$cnum);        my ($crsparms,$ineffect,$parmlev) = &current_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;
 }  }

Removed from v.1.15  
changed lines
  Added in v.1.16


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>