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

Diff for /loncom/homework/imageresponse.pm between versions 1.43 and 1.46

version 1.43, 2004/01/09 23:22:19 version 1.46, 2004/01/28 20:00:26
Line 33  package Apache::imageresponse; Line 33  package Apache::imageresponse;
 use strict;  use strict;
 use Image::Magick;  use Image::Magick;
 use Apache::randomlylabel;  use Apache::randomlylabel;
   use Apache::londefdef;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
   
 BEGIN {  BEGIN {
Line 469  sub end_image { Line 470  sub end_image {
  $Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';   $Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
     }      }
  } else {   } else {
     my $temp_file;      #care about eps dynamical generation
     my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";      $Apache::response::foilgroup{"$name.image"}='\vskip 0 mm '.&Apache::londefdef::eps_generation($src,$file,$width_param);
     $temp_file = Apache::File->new('>>'.$filename);   
     print $temp_file "$src\n";  
     $Apache::response::foilgroup{"$name.image"} ='\vskip 0 mm \graphicspath{{/home/httpd/prtspool/}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';  
  }   }
     }       } 
     return $result;      return $result;
Line 489  sub start_rectangle { Line 487  sub start_rectangle {
  my $coords=&Apache::lonxml::get_all_text('/rectangle',$parser);   my $coords=&Apache::lonxml::get_all_text('/rectangle',$parser);
  $result=&Apache::edit::tag_start($target,$token,'Rectangle').   $result=&Apache::edit::tag_start($target,$token,'Rectangle').
     &Apache::edit::editline($token->[1],$coords,'Coordinate Pairs',40).      &Apache::edit::editline($token->[1],$coords,'Coordinate Pairs',40).
     &Apache::edit::entercoordpair(undef,'textnode').      &Apache::edit::entercoord(undef,'textnode',undef,undef,'box').
     &Apache::edit::end_row();      &Apache::edit::end_row();
     } elsif ($target eq "modified") {      } elsif ($target eq "modified") {
    &Apache::edit::deletecoorddata();
  $result=$token->[4].&Apache::edit::modifiedfield('/rectangle',$parser);   $result=$token->[4].&Apache::edit::modifiedfield('/rectangle',$parser);
     }      }
     return $result;      return $result;
Line 540  sub start_polygon { Line 539  sub start_polygon {
  my $coords=&Apache::lonxml::get_all_text('/polygon',$parser);   my $coords=&Apache::lonxml::get_all_text('/polygon',$parser);
  $result=&Apache::edit::tag_start($target,$token,'Polygon').   $result=&Apache::edit::tag_start($target,$token,'Polygon').
     &Apache::edit::editline($token->[1],$coords,'Coordinate list',40).      &Apache::edit::editline($token->[1],$coords,'Coordinate list',40).
     &Apache::edit::entercoordpolygon(undef,'textnode').      &Apache::edit::entercoord(undef,'textnode',undef,undef,'polygon').
     &Apache::edit::end_row();      &Apache::edit::end_row();
     } elsif ($target eq "modified") {      } elsif ($target eq "modified") {
  $result=$token->[4].&Apache::edit::modifiedfield('/polygon',$parser);   $result=$token->[4].&Apache::edit::modifiedfield('/polygon',$parser);
Removed from v.1.43  
changed lines
  Added in v.1.46

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