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

Diff for /loncom/homework/hint.pm between versions 1.34 and 1.36

version 1.34, 2003/02/07 22:03:21 version 1.36, 2003/02/23 20:37:56
Line 98  sub start_numericalhint { Line 98  sub start_numericalhint {
     $result.=&Apache::edit::text_arg('Name:','name',$token);      $result.=&Apache::edit::text_arg('Name:','name',$token);
     $result.=&Apache::edit::text_arg('Answer:','answer',$token);      $result.=&Apache::edit::text_arg('Answer:','answer',$token);
     if ($token->[1] eq 'numericalhint') {      if ($token->[1] eq 'numericalhint') {
       $result.=&Apache::edit::text_arg('Unit:','unit',$token,5);        $result.=&Apache::edit::text_arg('Unit:','unit',$token,5).
       $result.=&Apache::edit::text_arg('Format:','format',$token,4);                           &Apache::loncommon::help_open_topic('Physical_Units');
         $result.=&Apache::edit::text_arg('Format:','format',$token,4).
                 &Apache::loncommon::help_open_topic('Numerical_Response_Format');
     } elsif ($token->[1] eq 'stringhint') {      } elsif ($token->[1] eq 'stringhint') {
       $result.=&Apache::edit::select_arg('Type:','type',['cs','ci','mc'],$token);        $result.=&Apache::edit::select_arg('Type:','type',['cs','ci','mc'],$token);
     } elsif ($token->[1] eq 'formulahint') {      } elsif ($token->[1] eq 'formulahint') {
Line 162  sub end_numericalhint { Line 164  sub end_numericalhint {
     if ($ad eq 'EXACT_ANS' || $ad eq 'APPROX_ANS') { push (@Apache::hint::which,$name); }      if ($ad eq 'EXACT_ANS' || $ad eq 'APPROX_ANS') { push (@Apache::hint::which,$name); }
     $result='';      $result='';
   } elsif ($target eq 'meta') {    } elsif ($target eq 'meta') {
     $result=&Apache::response::meta_package_write('numericalhint');      $result=&Apache::response::meta_package_write($token->[1]);
   } elsif ($target eq 'edit') {    } elsif ($target eq 'edit') {
     $result.='</td></tr>'.&Apache::edit::end_table;      $result.='</td></tr>'.&Apache::edit::end_table;
   }    }
Line 171  sub end_numericalhint { Line 173  sub end_numericalhint {
 }  }
   
 sub start_stringhint {  sub start_stringhint {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      return &start_numericalhint(@_);
   my $result;  
   if ($target eq 'meta') {  
     $result=&Apache::response::meta_package_write('stringhint');  
   } else {  
     $result.=&start_numericalhint(@_);  
   }  
   return $result;  
 }  }
   
 sub end_stringhint {  sub end_stringhint {
   return end_numericalhint(@_);      return &end_numericalhint(@_);
 }  }
   
 sub start_formulahint {  sub start_formulahint {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      return &start_numericalhint(@_);
   my $result;  
   if ($target eq 'meta') {  
     $result=&Apache::response::meta_package_write('formulahint');  
   } else {  
     $result.=&start_numericalhint(@_);  
   }  
   return $result;  
 }  }
   
 sub end_formulahint {  sub end_formulahint {
   return end_numericalhint(@_);      return end_numericalhint(@_);
 }  }
   
 # a part shows if it is on, if no specific parts are on, then default shows  # a part shows if it is on, if no specific parts are on, then default shows
Removed from v.1.34  
changed lines
  Added in v.1.36

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