--- loncom/homework/edit.pm 2003/11/24 21:54:39 1.72
+++ 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.72 2003/11/24 21:54:39 albertel Exp $
+# $Id: edit.pm,v 1.75 2004/01/09 23:22:18 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -677,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;
@@ -696,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)