rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.54, 2003/10/21 20:40:10	version 1.55, 2004/02/24 19:14:42
Line 158 sub handler {	Line 158 sub handler {
my $number_of_columns = 1;	my $number_of_columns = 1;
my $requrl=$r->uri;	my $requrl=$r->uri;
my $target = $ENV{'form.grade_target'};	my $target = $ENV{'form.grade_target'};
&Apache::lonnet::logthis("Got a target of $target");	# &Apache::lonnet::logthis("Got a target of $target");
if ($target eq 'meta') {	if ($target eq 'meta') {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
Line 402 sub handler {	Line 402 sub handler {
my $avespan=$lcm/($#colcont+1);	my $avespan=$lcm/($#colcont+1);
for ($j=0;$j<=$#colcont;$j++) {	for ($j=0;$j<=$#colcont;$j++) {
my $rid=$colcont[$j];	my $rid=$colcont[$j];
my $metainfo='<a href="'.	my $metainfo='<a name="'.
	&Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid})).'" />'.
	'<a href="'.
$metalink{$rid}.'" target="LONcatInfo">'.	$metalink{$rid}.'" target="LONcatInfo">'.
'<img src="/adm/lonMisc/cat_button.gif" border=0>'.	'<img src="/adm/lonMisc/cat_button.gif" border=0>'.
'</img></a><a href="/adm/evaluate?postdata='.	'</img></a><a href="/adm/evaluate?postdata='.