loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.107, 2007/06/19 19:41:52	version 1.110, 2007/09/07 00:39:21
Line 686 sub rebuild_tag {	Line 686 sub rebuild_tag {
my $result;	my $result;
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
$result = '<'.$token->[1];	$result = '<'.$token->[1];
while (my ($key,$val)= each(%{$token->[2]})) {	foreach my $attribute (@{ $token->[3] }) {
$val=~s:^\s+\|\s+$::g;	my $value = $token->[2]{$attribute};
$val=~s:"::g; #"	$value =~s/^\s+\|\s+$//g;
&Apache::lonxml::debug("setting :$key: to :$val:");	$value =~s/\"//g;
$result.=' '.$key.'="'.$val.'"';	&Apache::lonxml::debug("setting :$attribute: to :$value:");
	$result.=' '.$attribute.'="'.$value.'"';
}	}
if ($token->[4] =~ m:/>$:) {	if ($token->[4] =~ m:/>$:) {
$result.=' />';	$result.=' />';
Line 932 sub browse {	Line 933 sub browse {
my $titleelement;	my $titleelement;
if ($titleid) {	if ($titleid) {
$titleelement=",'$only','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'";	$titleelement=",'$only','','".&escape("$titleid\_$Apache::lonxml::curdepth")."'";
	} else {
	$titleelement=",'$only'";
}	}
my $result = <<"ENDBUTTON";	my $result = <<"ENDBUTTON";
<a href=\"javascript:openbrowser('$form','$element'$titleelement)\"\>Select</a>	<a href=\"javascript:openbrowser('$form','$element'$titleelement)\"\>Select</a>