loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/edit.pm between versions 1.53 and 1.57

version 1.53, 2003/06/04 23:04:34	version 1.57, 2003/06/30 20:41:35
Line 75 sub tag_end {	Line 75 sub tag_end {
my ($target,$token,$description) = @_;	my ($target,$token,$description) = @_;
my $result='';	my $result='';
if ($target eq 'edit') {	if ($target eq 'edit') {
my $tag=$token->[1];	$result.="</td></tr>".&end_table()."\n";
if (!defined($description)) {
$result.="</td></tr><tr><td></$tag></td><td colspan=\"2\"> </td>";
} else {
if ($description ne '') { $result.="</td></tr><tr><td>$description</td><td colspan=\"2\"> </td>"; }
}
$result.="</tr>".&end_table()."\n";
}	}
return $result;	return $result;
}	}
Line 310 sub insert_essayresponse {	Line 304 sub insert_essayresponse {
</essayresponse>';	</essayresponse>';
}	}

	sub insert_imageresponse {
	return '
	<imageresponse max="1">
	<foilgroup>
	</foilgroup>
	<hintgroup>
	</hintgroup>
	</imageresponse>';
	}

sub insert_optionresponse {	sub insert_optionresponse {
return '	return '
<optionresponse max="10">	<optionresponse max="10">
Line 514 sub text_arg {	Line 518 sub text_arg {
my $arg=$token->[2]{$name};	my $arg=$token->[2]{$name};
$result=$description.' <input name="'.&html_element_name($name).	$result=$description.' <input name="'.&html_element_name($name).
'" type="text" value="'.$arg.'" size="'.$size.'" />';	'" type="text" value="'.$arg.'" size="'.$size.'" />';
return $result;	return '<nobr>'.$result.'</nobr>';
}	}

sub select_arg {	sub select_arg {
Line 536 sub select_arg {	Line 540 sub select_arg {
$optionlist.="<option $value >$option</option>\n";	$optionlist.="<option $value >$option</option>\n";
}	}
}	}
$result.=$description.' <select name="'.&html_element_name($name).	$result.='<nobr>'.$description.' <select name="'.
'">	&html_element_name($name).'">
'.$optionlist.'	'.$optionlist.'
</select>';	</select></nobr>';
return $result;	return $result;
}	}

Line 573 sub select_or_text_arg {	Line 577 sub select_or_text_arg {
} else {	} else {
$result.=&text_arg($description,$name,$token,$size);	$result.=&text_arg($description,$name,$token,$size);
}	}
return $result;	return '<nobr>'.$result.'</nobr>';
}	}

#----------------------------------------------------- image coordinates	#----------------------------------------------------- image coordinates
Line 647 sub browse {	Line 651 sub browse {
$Apache::lonxml::curdepth);	$Apache::lonxml::curdepth);
}	}
my $result = <<"ENDBUTTON";	my $result = <<"ENDBUTTON";
<a href=\"javascript:openbrowser('$form','$element')\"\>Browse</a>	<a href=\"javascript:openbrowser('$form','$element')\"\>Select</a>
ENDBUTTON	ENDBUTTON
return $result;	return $result;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.53
changed lines
	Added in v.1.57