loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.10, 2001/06/12 22:42:55	version 1.11, 2001/06/16 18:35:27
Line 44 sub tag_end {	Line 44 sub tag_end {
} else {	} else {
if ($description ne '') { $result.="</td></tr><tr><td>$description"; }	if ($description ne '') { $result.="</td></tr><tr><td>$description"; }
}	}
$result.="</td></tr>".&end_table()."\n";	$result.="</td><td> </td><td> </td></tr>".&end_table()."\n";
}	}
return $result;	return $result;
}	}
Line 64 sub start_table {	Line 64 sub start_table {
$color = $Apache::edit::colorlist[$Apache::edit::colordepth];	$color = $Apache::edit::colorlist[$Apache::edit::colordepth];
}	}
$Apache::edit::colordepth++;	$Apache::edit::colordepth++;
my $result="<table bgcolor=\"$color\" width=\"100%\" border=\"2\">";	my $result="<table bgcolor=\"$color\" width=\"100%\" border=\"10\">";
return $result;	return $result;
}	}

Line 116 sub insertlist {	Line 116 sub insertlist {
<select name=\"insert_$Apache::lonxml::curdepth\">	<select name=\"insert_$Apache::lonxml::curdepth\">
$optionlist	$optionlist
</select>"	</select>"
	} else {
	$result=" ";
}	}
}	}
return $result;	return $result;