|
version 1.56, 2004/10/21 06:37:36
|
version 1.59, 2005/01/10 19:21:57
|
|
Line 120 sub prep_image {
|
Line 120 sub prep_image {
|
| my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$respid.submission"}); |
my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$respid.submission"}); |
| #draws 2 xs on the image at the clicked location |
#draws 2 xs on the image at the clicked location |
| #one in white and then one in red on top of the one in white |
#one in white and then one in red on top of the one in white |
| if (defined($x) && $x=~/\S/ && defined($y) && $y =~/\S/) { |
if (defined($x) && $x=~/\S/ && defined($y) && $y =~/\S/ && !&Apache::response::show_answer()) { |
| my $length = 6; |
my $length = 6; |
| my $width = 1; |
my $width = 1; |
| my $extrawidth = 2; |
my $extrawidth = 2; |
|
Line 340 sub start_foil {
|
Line 340 sub start_foil {
|
| if ($target eq 'web' || $target eq 'grade' || $target eq 'tex' || |
if ($target eq 'web' || $target eq 'grade' || $target eq 'tex' || |
| $target eq 'analyze') { |
$target eq 'analyze') { |
| my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
| if ($name eq '') { $name=$Apache::lonxml::curdepth; } |
if (!$name) { |
| |
&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction."); |
| |
$name=$Apache::lonxml::curdepth; |
| |
} |
| if (defined($Apache::response::foilnames{$name})) { |
if (defined($Apache::response::foilnames{$name})) { |
| &Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name)); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to imageresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework