[LON-CAPA-cvs] cvs: loncom /homework edit.pm imageresponse.pm insertlist.tab

[albertel]

albertel		Mon Jun  9 18:42:50 2003 EDT

  Modified files:              
    /loncom/homework	edit.pm insertlist.tab imageresponse.pm 
  Log:
  - takes care of BUG#1676, image click fully editable now
  
  
  
Index: loncom/homework/edit.pm
diff -u loncom/homework/edit.pm:1.53 loncom/homework/edit.pm:1.54
--- loncom/homework/edit.pm:1.53	Wed Jun  4 19:04:34 2003
+++ loncom/homework/edit.pm	Mon Jun  9 18:42:49 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.53 2003/06/04 23:04:34 albertel Exp $
+# $Id: edit.pm,v 1.54 2003/06/09 22:42:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -308,6 +308,16 @@
 <essayresponse>
     <textfield></textfield>
 </essayresponse>';
+}
+
+sub insert_imageresponse {
+  return '
+<imageresponse max="1">
+    <foilgroup>
+    </foilgroup>
+    <hintgroup>
+    </hintgroup>
+</imageresponse>';
 }
 
 sub insert_optionresponse {
Index: loncom/homework/insertlist.tab
diff -u loncom/homework/insertlist.tab:1.36 loncom/homework/insertlist.tab:1.37
--- loncom/homework/insertlist.tab:1.36	Mon May 12 13:02:43 2003
+++ loncom/homework/insertlist.tab	Mon Jun  9 18:42:49 2003
@@ -15,7 +15,7 @@
 imageresponse::foil,Image response foil,#99ff88,Apache::imageresponse::insert_foil
 imageresponse::foilgroup,Collection of Imageresponse foils,#55cc55,default
 imageresponse::image,Imageresponse Image,#aaFFcc,default
-imageresponse,Response: Click on Image,#ccFFaa,Apache::imageresponse::insert_imageresponse
+imageresponse,Response: Click on Image,#ccFFaa,Apache::edit::insert_imageresponse
 imageresponse::rectangle,Rectangular area in image,#ccFFdd,default
 imageresponse::text,Text to describe option,#ddFFee,default
 datasubmission,Stored Entry Field,#1144dd,default,no
Index: loncom/homework/imageresponse.pm
diff -u loncom/homework/imageresponse.pm:1.30 loncom/homework/imageresponse.pm:1.31
--- loncom/homework/imageresponse.pm:1.30	Mon Jun  9 18:31:56 2003
+++ loncom/homework/imageresponse.pm	Mon Jun  9 18:42:49 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # image click response style
 #
-# $Id: imageresponse.pm,v 1.30 2003/06/09 22:31:56 albertel Exp $
+# $Id: imageresponse.pm,v 1.31 2003/06/09 22:42:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -216,6 +216,16 @@
       $result=&Apache::edit::end_table();
   }
   return $result;
+}
+
+sub insert_foil {
+    return '
+       <foil>
+           <image></image>
+           <text></text>
+           <rectangle></rectangle>
+       </foil>
+';
 }
 
 $Apache::imageresponse::curname='';