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

Diff for /loncom/homework/imageresponse.pm between versions 1.24 and 1.25

version 1.24, 2003/02/25 16:09:01 version 1.25, 2003/05/05 18:24:50
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
 #FIXME assumes multiple possbile submissions but only one is possible currently  #FIXME LATER assumes multiple possible submissions but only one is possible 
   #currently
   
 package Apache::imageresponse;  package Apache::imageresponse;
 use strict;  use strict;
Line 233  sub end_foil { Line 234  sub end_foil {
   
 sub start_text {  sub start_text {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   if ($target eq 'web' || $target eq 'tex') { &Apache::lonxml::startredirection; }    my $result='';
   return '';    if ($target eq 'web' || $target eq 'tex') { 
        &Apache::lonxml::startredirection; 
     } elsif ($target eq 'edit') {
       my $descr=$$parser[$#$parser]->get_text("/text");
       $result=&Apache::edit::tag_start($target,$token,'Task Description').
    &Apache::edit::editfield($token->[1],$descr,'Text',60,2).
           &Apache::edit::end_row().&Apache::edit::start_spanning_row();     
     } elsif ($target eq "modified") {
       my $bgimg=$$parser[$#$parser]->get_text("/text");
       $result=$token->[4].&Apache::edit::modifiedfield($token);
       &Apache::lonxml::debug($result);
     }
     return $result;
 }  }
   
 sub end_text {  sub end_text {
Line 253  sub end_text { Line 266  sub end_text {
   
 sub start_image {  sub start_image {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   if ($target eq 'web' || $target eq 'tex') { &Apache::lonxml::startredirection; }    my $result='';
   return '';    if ($target eq 'web' || $target eq 'tex') { 
         &Apache::lonxml::startredirection; 
     } elsif ($target eq 'edit') {
       my $bgimg=$$parser[$#$parser]->get_text("/image");
       $result=&Apache::edit::tag_start($target,$token,'Clickable Image').
    &Apache::edit::editline($token->[1],$bgimg,'Image Source File',40);
       $result.=&Apache::edit::browse(undef,'textnode').' ';
       $result.=&Apache::edit::search(undef,'textnode').
           &Apache::edit::end_row().&Apache::edit::start_spanning_row();     
     } elsif ($target eq "modified") {
       my $bgimg=$$parser[$#$parser]->get_text("/image");
       $result=$token->[4].&Apache::edit::modifiedfield($token);
       &Apache::lonxml::debug($result);
     }
     return $result;
 }  }
   
 sub end_image {  sub end_image {
Line 347  $Apache::response::foilgroup{"$name.imag Line 374  $Apache::response::foilgroup{"$name.imag
   
 sub start_rectangle {  sub start_rectangle {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   if ($target eq 'web' || $target eq 'grade' || $target eq 'tex') { &Apache::lonxml::startredirection; }    my $result='';
   return '';    if ($target eq 'web' || $target eq 'grade' || $target eq 'tex') { 
        &Apache::lonxml::startredirection; 
     } elsif ($target eq 'edit') {
       my $coords=$$parser[$#$parser]->get_text("/rectangle");
       $result=&Apache::edit::tag_start($target,$token,'Rectangle').
    &Apache::edit::editline($token->[1],$coords,'Coordinate Pairs',40).
           &Apache::edit::end_row().&Apache::edit::start_spanning_row();     
     } elsif ($target eq "modified") {
       my $coords=$$parser[$#$parser]->get_text("/rectangle");
       $result=$token->[4].&Apache::edit::modifiedfield($token);
       &Apache::lonxml::debug($result);
     }
     return $result;
 }  }
   
 sub grade_rectangle {  sub grade_rectangle {
Removed from v.1.24  
changed lines
  Added in v.1.25

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