rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.53, 2003/09/22 03:02:06	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");
	if ($target eq 'meta') {
	&Apache::loncommon::content_type($r,'text/html');
	$r->send_http_header;
	return OK;
	}
# ----------------------------------------------------------------- Tie db file	# ----------------------------------------------------------------- Tie db file
if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {	if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
my $fn=$ENV{'request.course.fn'};	my $fn=$ENV{'request.course.fn'};
Line 396 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='.