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.59

version 1.53, 2003/06/04 23:04:34	version 1.59, 2003/08/04 22:07:29
Line 63 sub tag_start {	Line 63 sub tag_start {
&deletelist($target,$token)	&deletelist($target,$token)
."</td>	."</td>
<td>".	<td>".
&insertlist($target,$token).&end_row().&start_spanning_row();	&insertlist($target,$token);
#<td>".	#<td>".
# &movebuttons($target,$token).	# &movebuttons($target,$token).
# "</tr><tr><td colspan=\"3\">\n";	# "</tr><tr><td colspan=\"3\">\n";
	my @help;# = Apache::lonxml::helpinfo($token);
	if ($help[0]) {
	$result .= '<td align="right" valign="top">' .
	Apache::loncommon::help_open_topic(@help) .
	'</td>';
	} else { $result .= "<td> </td>"; }
	$result .= &end_row().&start_spanning_row();
}	}
return $result;	return $result;
}	}
Line 75 sub tag_end {	Line 82 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 125 sub end_table {	Line 126 sub end_table {
return $result;	return $result;
}	}

sub start_spanning_row { return '<tr><td colspan="3" bgcolor="#DDDDDD">';}	sub start_spanning_row { return '<tr><td colspan="4" bgcolor="#DDDDDD">';}
sub start_row { return '<tr><td bgcolor="#DDDDDD">'; }	sub start_row { return '<tr><td bgcolor="#DDDDDD">'; }
sub end_row { return '</td></tr>'; }	sub end_row { return '</td></tr>'; }

Line 310 sub insert_essayresponse {	Line 311 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 525 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 547 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 584 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 658 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.59