[BACK]Return to londocsgci.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / modules / gci

Diff for /modules/gci/londocsgci.pm between versions 1.8 and 1.12

version 1.8, 2010/01/05 12:36:11 version 1.12, 2010/09/14 06:23:15
Line 115  sub setdefaults { Line 115  sub setdefaults {
         $revreqs{$prereqs{$item}} = $item;          $revreqs{$prereqs{$item}} = $item;
     }      }
     @defchosen=('01','02','03','07','12','18','26','32','37','38','47','54','63','66','2004_73');      @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');      @development = ('001','002','003','004','005','006','007','008','009','010','011','012','013','014','015','016','017','018','019','020','021','022');
 }  }
   
 sub checkvalid {  sub checkvalid {
Line 182  sub validcheck { Line 182  sub validcheck {
 sub listresources {  sub listresources {
    my ($r,$context,$cdom,$cnum)=@_;     my ($r,$context,$cdom,$cnum)=@_;
    my $numchosen = scalar(@chosen);     my $numchosen = scalar(@chosen);
      my $multipart = 0;
      my $composites;
      if ($numchosen > 0) {
          foreach my $key (keys(%prereqs)) {
              if (grep(/^\Q$key\E/,@chosen)) {
                  $multipart ++;
                  $numchosen --;
              }
          }
          if ($multipart) {
              $composites = &mt(' (of which [quant,_1,is a combination question,are combination questions] in which students select both an answer, and the reasoning used).',$multipart).'<br />';
          } else {
              $composites = '.&nbsp;';
          }
      }
    unless ($numchosen > 0) {     unless ($numchosen > 0) {
       $r->print('<h3>'.&mt('Create a Concept Test').'</h3>'.        $r->print('<h3>'.&mt('Create a Concept Test').'</h3>'.
                 '<p>'.&mt('Choose how the test should be built:').'<br />'.                  '<p>'.&mt('Choose how the test should be built:').'<br />'.
Line 197  sub listresources { Line 212  sub listresources {
    } else {     } else {
       my $numsub = &get_submissions_count($cdom,$cnum);        my $numsub = &get_submissions_count($cdom,$cnum);
       unless ($env{'form.phase'} eq 'storemap') {        unless ($env{'form.phase'} eq 'storemap') {
           $r->print('<p>'.&mt('This course contains a valid concept test which includes [quant,_1,question].',$numchosen).'&nbsp;<a href="/adm/navmaps" target="_coursecontents">'.&mt('Display Contents').'</a><br />');            $r->print('<p>'.&mt('This course contains a valid concept test which includes [quant,_1,question]',$numchosen).$composites.'<a href="/adm/navmaps" target="_coursecontents">'.&mt('Display Contents').'</a><br />');
       }        }
       if ($numsub > 0) {        if ($numsub > 0) {
           $r->print(&mt('As there are existing student submissions, modification of the [_1]contents[_2] of the Concept Test will result in loss of student performance data, and is [_3]not[_4] permitted.','<i>','</i>','<b>','</b>').'<br />'.&mt('Modification of open and close dates [_1]is[_2] permitted.','<b>','</b>').'</p>');            $r->print(&mt('As there are existing student submissions, modification of the [_1]contents[_2] of the Concept Test will result in loss of student performance data, and is [_3]not[_4] permitted.','<i>','</i>','<b>','</b>').'<br />'.&mt('Modification of open and close dates [_1]is[_2] permitted.','<b>','</b>').'</p>');
Line 228  sub listresources { Line 243  sub listresources {
                 &Apache::lonhtmlcommon::row_closure(1).                  &Apache::lonhtmlcommon::row_closure(1).
                 &Apache::lonhtmlcommon::row_title(&mt('Close date')).                  &Apache::lonhtmlcommon::row_title(&mt('Close date')).
                 $endform.                  $endform.
                  &Apache::lonhtmlcommon::end_pick_box().'<br />'.                   &Apache::lonhtmlcommon::row_closure(1).
                   &Apache::lonhtmlcommon::end_pick_box().'<br />'. 
                 '<input type="hidden" name="phase" value="storeparms" />'.                  '<input type="hidden" name="phase" value="storeparms" />'.
                 '<input type="submit" value="'.$datebutton.'" />'.                  '<input type="submit" value="'.$datebutton.'" />'.
                 '</form></fieldset></p>');                  '</form></fieldset></p>');
Line 294  sub display_questions { Line 310  sub display_questions {
                    'value="'.$fixed{$catname}.'" readonly="readonly" />').'</legend>';                     'value="'.$fixed{$catname}.'" readonly="readonly" />').'</legend>';
     } else {      } else {
         $output .= '<legend>'.&mt('[_1]: currently [_2] selected',$catlegend,          $output .= '<legend>'.&mt('[_1]: currently [_2] selected',$catlegend,
                    '<input type="text" name="'.$countid.'" size="1" value="'.                     '<input type="text" name="'.$countid.'" id="'.$countid.'" size="1" value="'.
                    $total.'" readonly="readonly" />').'</legend>';                     $total.'" readonly="readonly" />').'</legend>';
     }      }
     $output .= '<span id="'.$titleid.'">'.      $output .= '<span id="'.$titleid.'">'.
Line 318  sub display_questions { Line 334  sub display_questions {
         } elsif ($catname eq 'development') {          } elsif ($catname eq 'development') {
             $output .= '<input type="hidden" name="pilot'.$item.'" value="checked" />';              $output .= '<input type="hidden" name="pilot'.$item.'" value="checked" />';
         } else {          } else {
             $output .= '<input type="checkbox" name="item'.$item.'"';              $output .= '<input type="checkbox" name="item'.$item.'" id="item'.$item.'"';
             if ($chosenitems->{$item}) { $output .= ' checked="checked"'; }              if ($chosenitems->{$item}) { $output .= ' checked="checked"'; }
             $output .= ' onclick="countChecked('."'$catname'".');';              $output .= ' onclick="countChecked('."'$catname'".');';
             my $binname;              my $binname;
Line 345  sub display_questions { Line 361  sub display_questions {
         }          }
         $output .= '<b>'.$title.'</b></td>';          $output .= '<b>'.$title.'</b></td>';
         my $content=&Apache::lonindexer::showpreview($url);          my $content=&Apache::lonindexer::showpreview($url);
           my $startformtag = '<form name="lonhomework" enctype="multipart/form-data" method="post" action="'.$url.'?inhibitmenu=yes" >';
           my $endtag = '<table><tr><td><input onmouseup="javascript:setSubmittedPart';
           $content =~ s/^\Q$startformtag\E//;
           $content =~ s/\Q$endtag\E.+$//s;
         $output .= '<td> '.($content eq '' ? '&nbsp;':$content).' </td>'."\n".          $output .= '<td> '.($content eq '' ? '&nbsp;':$content).' </td>'."\n".
                    &Apache::loncommon::end_data_table_row();                     &Apache::loncommon::end_data_table_row();
     }      }
Line 591  sub builder_javascript { Line 611  sub builder_javascript {
     my $prereqjs = "      my $prereqjs = "
 function checkPrereqs(caller,item,prereq,binname) {  function checkPrereqs(caller,item,prereq,binname) {
     var changedPrereq = 0;      var changedPrereq = 0;
     if (document.selecteditems.elements['item'+item].checked == false) {      element = document.getElementById('item'+item);
       if (element.checked == false) {
         return;          return;
     } else {      } else {
         if (!document.selecteditems.elements['item'+prereq].checked) {          prereqelement = document.getElementById('item'+prereq);
             document.selecteditems.elements['item'+prereq].checked = true;          if (!prereqelement.checked) {
               prereqelement.checked = true;
             changedPrereq = 1;              changedPrereq = 1;
             countChecked(binname);              countChecked(binname);
         }          }
Line 680  function countChecked(binname) { Line 702  function countChecked(binname) {
             if (document.selecteditems.elements[i].value == binname) {              if (document.selecteditems.elements[i].value == binname) {
                 var itemname = document.selecteditems.elements[i].name;                  var itemname = document.selecteditems.elements[i].name;
                 var itemnum = itemname.substr(9);                  var itemnum = itemname.substr(9);
                 if (document.selecteditems.elements['item'+itemnum].checked) {                  element = document.getElementById('item'+itemnum);
                   if (element.checked) {
                     count ++;                      count ++;
                 }                  }
             }              }
         }          }
     }      }
     document.selecteditems.elements['GCI_'+binname+'_count'].value = count;      countelement = document.getElementById('GCI_'+binname+'_count');
       countelement.value = count;
 }  }
   
 function validTestCheck() {  function validTestCheck() {
Line 694  function validTestCheck() { Line 718  function validTestCheck() {
     for (var i=0; i<11; i++) {      for (var i=0; i<11; i++) {
         var binname = 'GCI_bin'+i+'_count';          var binname = 'GCI_bin'+i+'_count';
         var j = i+1;          var j = i+1;
         if (document.selecteditems.elements[binname].value < 1) {          countelement = document.getElementById(binname);        
           if (countelement.value < 1) {
             empty = empty +' '+j;              empty = empty +' '+j;
         }          }
     }      }
Line 711  function setDocsPhase() { Line 736  function setDocsPhase() {
             if (document.choices.concepttest[i].checked) {              if (document.choices.concepttest[i].checked) {
                 if (document.choices.concepttest[i].value == 'defchosen') {                  if (document.choices.concepttest[i].value == 'defchosen') {
                     document.choices.phase.value = 'storemap';                      document.choices.phase.value = 'storemap';
                     alert("Setting value for phase to "+document.choices.phase.value);  
   
                 }                  }
             }              }
         }          }
Removed from v.1.8  
changed lines
  Added in v.1.12

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