[BACK]Return to radiobuttonresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.32 and 1.35

version 1.32, 2001/12/13 23:36:39 version 1.35, 2002/01/11 16:32:29
Line 45  sub start_radiobuttonresponse { Line 45  sub start_radiobuttonresponse {
     $result=&Apache::response::meta_package_write('radiobuttonresponse');      $result=&Apache::response::meta_package_write('radiobuttonresponse');
   } elsif ($target eq 'edit' ) {    } elsif ($target eq 'edit' ) {
     $result.=&Apache::edit::start_table($token).      $result.=&Apache::edit::start_table($token).
       '<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:".   '<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:".
  &Apache::edit::deletelist($target,$token)   &Apache::edit::deletelist($target,$token)
   ."</td><td>&nbsp</td></tr><tr><td colspan=\"3\">\n";   ."</td><td>&nbsp".&Apache::edit::end_row()
           .&Apache::edit::start_spanning_row();
   
     $result.=&Apache::edit::text_arg('Max Number Of Foils:','max',$token,'4').      $result.=&Apache::edit::text_arg('Max Number Of Foils:','max',$token,'4').
       "</td></tr>";   &Apache::edit::end_row().&Apache::edit::start_spanning_row()."\n";
     $result.="<tr><td colspan=\"3\">\n";  
   } elsif ($target eq 'modified') {    } elsif ($target eq 'modified') {
     my $constructtag=&Apache::edit::get_new_args($token,$parstack,      my $constructtag=&Apache::edit::get_new_args($token,$parstack,
  $safeeval,'max');   $safeeval,'max');
Line 65  sub end_radiobuttonresponse { Line 66  sub end_radiobuttonresponse {
   if ($target eq 'edit') { $result=&Apache::edit::end_table(); }    if ($target eq 'edit') { $result=&Apache::edit::end_table(); }
   &Apache::response::end_response;    &Apache::response::end_response;
   pop @Apache::lonxml::namespace;    pop @Apache::lonxml::namespace;
     &Apache::lonxml::deregister('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
   return $result;    return $result;
 }  }
   
Line 77  sub start_foilgroup { Line 79  sub start_foilgroup {
 }  }
   
 sub storesurvey {  sub storesurvey {
   if ( defined $ENV{'form.submitted'}) {    if ( !defined($ENV{'form.submitted'})) { return ''; }
     my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};    my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
     &Apache::lonxml::debug("Here I am!:$response:");    &Apache::lonxml::debug("Here I am!:$response:");
     if ( $response =~ /[0-9]+/) {    if ( $response !~ /[0-9]+/) { return ''; }
       my $id = $Apache::inputtags::response['-1'];    my $id = $Apache::inputtags::response['-1'];
       my @whichfoils=@{ $Apache::response::foilgroup{'names'} };    my @whichfoils=@{ $Apache::response::foilgroup{'names'} };
       my %responsehash;    my %responsehash;
       $responsehash{$whichfoils[$response]}=$response;    $responsehash{$whichfoils[$response]}=$response;
       $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=&Apache::lonnet::hash2str(%responsehash);    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=&Apache::lonnet::hash2str(%responsehash);
       $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='SUBMITTED';    $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}='SUBMITTED';
       &Apache::lonxml::debug("submitted a $response<br />\n");    &Apache::lonxml::debug("submitted a $response<br />\n");
     }  
   }  
   return '';    return '';
 }  }
   
Line 154  sub end_foilgroup { Line 154  sub end_foilgroup {
 sub getfoilcounts {  sub getfoilcounts {
   my ($parstack,$safeeval)=@_;    my ($parstack,$safeeval)=@_;
   my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');    my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
   my @names = @{ $Apache::response::foilgroup{'names'} };    my @names;
   my $truecnt=0;    my $truecnt=0;
   my $falsecnt=0;    my $falsecnt=0;
   my $name;    my $name;
     if ( $Apache::response::foilgroup{'names'} ) {
       @names= @{ $Apache::response::foilgroup{'names'} };
     }
   foreach $name (@names) {    foreach $name (@names) {
     if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {      if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
       $truecnt++;        $truecnt++;
Line 196  sub whichfoils { Line 198  sub whichfoils {
   my @truelist;    my @truelist;
   my @falselist;    my @falselist;
   
   my @names = @{ $Apache::response::foilgroup{'names'} };    my @names;
     if ( $Apache::response::foilgroup{'names'} ) {
       @names= @{ $Apache::response::foilgroup{'names'} };
     }
   foreach my $name (@names) {    foreach my $name (@names) {
     #result.="<br /><b>$name</b> is <i> $Apache::response::foilgroup{$name.'.value'} </i>";      #result.="<br /><b>$name</b> is <i> $Apache::response::foilgroup{$name.'.value'} </i>";
     if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {      if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
Line 257  sub displayfoils { Line 262  sub displayfoils {
   
 sub displayanswers {  sub displayanswers {
   my ($max,$answer)=@_;    my ($max,$answer)=@_;
   my @names = @{ $Apache::response::foilgroup{'names'} };  
   my @whichopt = &whichfoils($max,$answer);    my @whichopt = &whichfoils($max,$answer);
   my $result=&Apache::response::answer_header('radiobuttonresponse');    my $result=&Apache::response::answer_header('radiobuttonresponse');
   foreach my $name (@whichopt) {    foreach my $name (@whichopt) {
Line 276  sub start_conceptgroup { Line 280  sub start_conceptgroup {
   if ($target eq 'edit') {    if ($target eq 'edit') {
     $result.=&Apache::edit::tag_start($target,$token);      $result.=&Apache::edit::tag_start($target,$token);
     $result.=&Apache::edit::text_arg('Concept:','concept',$token,'50').      $result.=&Apache::edit::text_arg('Concept:','concept',$token,'50').
       "</td></tr><tr><td colspan=\"3\">\n";   &Apache::edit::end_row().&Apache::edit::start_spanning_row();
   } elsif ($target eq 'modified') {    } elsif ($target eq 'modified') {
     my $constructtag=&Apache::edit::get_new_args($token,$parstack,      my $constructtag=&Apache::edit::get_new_args($token,$parstack,
  $safeeval,'concept');   $safeeval,'concept');
Line 322  sub start_foil { Line 326  sub start_foil {
     $result.=&Apache::edit::text_arg('Name:','name',$token);      $result.=&Apache::edit::text_arg('Name:','name',$token);
     $result.=&Apache::edit::select_arg('Correct Option:','value',      $result.=&Apache::edit::select_arg('Correct Option:','value',
        ['unused','true','false'],$token);         ['unused','true','false'],$token);
       $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
   } elsif ($target eq 'modified') {    } elsif ($target eq 'modified') {
      my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,       my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
   'value','name');    'value','name');
Removed from v.1.32  
changed lines
  Added in v.1.35

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