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

Diff for /loncom/homework/inputtags.pm between versions 1.105 and 1.109

version 1.105, 2003/06/19 21:41:02 version 1.109, 2003/07/15 21:26:23
Line 144  sub start_textfield { Line 144  sub start_textfield {
     } else {      } else {
       $result=$token->[4];        $result=$token->[4];
     }      }
       my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser);
     $result.=&Apache::edit::modifiedfield();      $result.=&Apache::edit::modifiedfield();
   } elsif ($target eq 'tex') {    } elsif ($target eq 'tex') {
       my $number_of_lines = &Apache::lonxml::get_param('rows',$parstack,$safeeval);        my $number_of_lines = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
Line 342  sub decideoutput { Line 343  sub decideoutput {
   } else {    } else {
       $message = "<b>You are correct.</b>";        $message = "<b>You are correct.</b>";
   }    }
   $message.=' Your receipt is '.&Apache::lonnet::receipt;            unless ($ENV{'course.'.
      $ENV{'request.course.id'}.
      '.disable_receipt_display'} eq 'yes') { 
         $message.='<br />Your receipt is '.&Apache::lonnet::receipt().
     &Apache::loncommon::help_open_topic('Receipt');
     }
       }        }
       $bgcolor=$possiblecolors{'correct'};        $bgcolor=$possiblecolors{'correct'};
       $button=0;        $button=0;
Line 358  sub decideoutput { Line 364  sub decideoutput {
   $bgcolor=$possiblecolors{'charged_try'};    $bgcolor=$possiblecolors{'charged_try'};
   $button=1;    $button=1;
       } else {        } else {
   $message = "<b>You are correct.</b> Your receipt is ".    $message = "<b>You are correct.</b>";
    &Apache::lonnet::receipt;            unless ($ENV{'course.'.
      $ENV{'request.course.id'}.
      '.disable_receipt_display'} eq 'yes') { 
                 $message.='<br />Your receipt is '.&Apache::lonnet::receipt().
     &Apache::loncommon::help_open_topic('Receipt');
     }
   $bgcolor=$possiblecolors{'correct'};    $bgcolor=$possiblecolors{'correct'};
   $button=0;    $button=0;
   $previousmsg='';    $previousmsg='';
Line 373  sub decideoutput { Line 384  sub decideoutput {
       $bgcolor=$possiblecolors{'not_charged_try'};        $bgcolor=$possiblecolors{'not_charged_try'};
       $button = 1;        $button = 1;
   } elsif ($award eq 'ERROR') {    } elsif ($award eq 'ERROR') {
       $message = 'An error occured while trying to grade answer.';        $message = 'An error occured while grading your answer.';
       $bgcolor=$possiblecolors{'not_charged_try'};        $bgcolor=$possiblecolors{'not_charged_try'};
       $button = 1;        $button = 1;
   } elsif ($award eq 'TOO_LONG') {    } elsif ($award eq 'TOO_LONG') {
Removed from v.1.105  
changed lines
  Added in v.1.109

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