|
version 1.56, 2004/10/21 06:37:36
|
version 1.57, 2004/11/13 16:28:21
|
|
Line 1
|
Line 1
|
| |
|
| # The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
| # image click response style |
# image click response style |
| # |
# |
|
Line 131 sub prep_image {
|
Line 130 sub prep_image {
|
| |
|
| $x{"cgi.$id.OBJTYPE"}.='LINE:'; |
$x{"cgi.$id.OBJTYPE"}.='LINE:'; |
| $i=$x{"cgi.$id.OBJCOUNT"}++; |
$i=$x{"cgi.$id.OBJCOUNT"}++; |
| $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($ymin),($xmax),($ymax), |
$x{"cgi.$id.OBJ$i"}=join(':',(($x),($ymin),($x),($ymax), |
| "FFFFFF",($width+$extrawidth))); |
"FFFFFF",($width+$extrawidth))); |
| $x{"cgi.$id.OBJTYPE"}.='LINE:'; |
$x{"cgi.$id.OBJTYPE"}.='LINE:'; |
| $i=$x{"cgi.$id.OBJCOUNT"}++; |
$i=$x{"cgi.$id.OBJCOUNT"}++; |
| $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($ymax),($xmax),($ymin), |
$x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($y),($xmax),($y), |
| "FFFFFF",($width+$extrawidth))); |
"FFFFFF",($width+$extrawidth))); |
| $x{"cgi.$id.OBJTYPE"}.='LINE:'; |
$x{"cgi.$id.OBJTYPE"}.='LINE:'; |
| $i=$x{"cgi.$id.OBJCOUNT"}++; |
$i=$x{"cgi.$id.OBJCOUNT"}++; |
| $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($ymin),($xmax),($ymax), |
$x{"cgi.$id.OBJ$i"}=join(':',(($x),($ymin),($x),($ymax), |
| "FF0000",($width))); |
"FF0000",($width))); |
| $x{"cgi.$id.OBJTYPE"}.='LINE:'; |
$x{"cgi.$id.OBJTYPE"}.='LINE:'; |
| $i=$x{"cgi.$id.OBJCOUNT"}++; |
$i=$x{"cgi.$id.OBJCOUNT"}++; |
| $x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($ymax),($xmax),($ymin), |
$x{"cgi.$id.OBJ$i"}=join(':',(($xmin),($y),($xmax),($y), |
| "FF0000",($width))); |
"FF0000",($width))); |
| } |
} |
| if ($mode eq 'answer') { |
if ($mode eq 'answer') { |
![[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