--- loncom/homework/edit.pm 2003/11/05 21:53:48 1.71
+++ loncom/homework/edit.pm 2004/01/09 23:22:18 1.75
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# edit mode helpers
#
-# $Id: edit.pm,v 1.71 2003/11/05 21:53:48 www Exp $
+# $Id: edit.pm,v 1.75 2004/01/09 23:22:18 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -348,6 +348,23 @@ sub insert_optionresponse {
';
}
+sub insert_organicresponse {
+ return '
+
+
+
+
+
+
+';
+}
+
+sub insert_organicstructure {
+ return '
+
+';
+}
+
sub insert_radiobuttonresponse {
return '
@@ -360,6 +377,17 @@ sub insert_radiobuttonresponse {
';
}
+sub insert_reactionresponse {
+ return '
+
+
+
+
+
+
+';
+}
+
sub insert_rankresponse {
return '
@@ -649,7 +677,7 @@ sub select_or_text_arg {
}
$optionlist.="\n";
+ ">".&mt('Type-in value')."\n";
#
my $element=&html_element_name($name);
my $selectelement='select_list_'.$element;
@@ -668,7 +696,7 @@ sub select_or_text_arg {
$description
Click Coordinate Pa
ENDBUTTON
return $result;
}
+
+# coordinate polygon (x1,y1)-(x2,y2)...
+sub entercoordpolygon {
+ my ($id,$mode,$width,$height) = @_;
+ unless ($Apache::edit::bgimgsrc) { return ''; }
+ my $bgfile=&Apache::lonnet::escape($Apache::edit::bgimgsrc);
+ my $form = 'lonhomework';
+ my $element;
+ if (! defined($mode) || $mode eq 'attribute') {
+ $element = &Apache::lonnet::escape("$id\_$Apache::lonxml::curdepth");
+ } elsif ($mode eq 'textnode') { # for data between ...
+ $element = &Apache::lonnet::escape('homework_edit_'.
+ $Apache::lonxml::curdepth);
+ }
+ my $id=&Apache::loncommon::get_cgi_id();
+ my %data=("cgi.$id.mode" =>'polygon',
+ "cgi.$id.formname" =>$form,
+ "cgi.$id.file" =>$bgfile,
+ "cgi.$id.formcoord" =>$element);
+ if ($height) {
+ $data{"cgi.$id.formheight"}=$height.'_'.$Apache::edit::bgimgsrccurdepth;
+ }
+ if ($width) {
+ $data{"cgi.$id.formwidth"}=$width.'_'.$Apache::edit::bgimgsrccurdepth;
+ }
+ &Apache::lonnet::appenv(%data);
+ my $result='Create Polygon Data';
+ return $result;
+}
#----------------------------------------------------- browse
sub browse {
# insert a link to call up the filesystem browser (lonindexer)