Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.37 and 1.43

version 1.37, 2002/05/20 19:05:11	version 1.43, 2002/07/01 15:02:19
Line 48 use Apache::loncommon();	Line 48 use Apache::loncommon();
use Apache::lonxml();	use Apache::lonxml();
use HTML::TokeParser;	use HTML::TokeParser;
use GDBM_File;	use GDBM_File;
	use Apache::lonsequence;

# -------------------------------------------------------------- Module Globals	# -------------------------------------------------------------- Module Globals
my %hash;	my %hash;
Line 146 sub handler {	Line 147 sub handler {
if ($ENV{'browser.mathml'}) {	if ($ENV{'browser.mathml'}) {
$r->content_type('text/xml');	$r->content_type('text/xml');
} else {	} else {
$r->content_type('text/html');	$r->content_type('text/html');
}	}
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['forceselect','launch']);
	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'};
# ----------------------------------------------------------------- Tie db file	# ----------------------------------------------------------------- Tie db file
if ($ENV{'request.course.fn'}) {	if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
my $fn=$ENV{'request.course.fn'};	my $fn=$ENV{'request.course.fn'};
if (-e "$fn.db") {	if (-e "$fn.db") {
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) {	if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) {
Line 362 sub handler {	Line 366 sub handler {
if ($nforms) {	if ($nforms) {
$r->print('<form method="post" action="'.	$r->print('<form method="post" action="'.
$requrl.'">');	$requrl.'">');
}	}
	} else {
	$r->print('\documentclass[letterpaper]{article}
	\newcommand{\keephidden}[1]{}
	\usepackage[dvips]{graphicx}
	\usepackage{epsfig}
	\usepackage{calc}
	\usepackage{longtable}
	\begin{document}');
	}
# ----------------------------------------------------------------- Start table	# ----------------------------------------------------------------- Start table
	if ($target eq 'tex') {
	$r->print('\begin{longtable}INSERTTHEHEADOFLONGTABLE\endfirsthead\endhead ');
	if ($number_of_columns le $lcm) {$number_of_columns=$lcm;};
	} else {
$r->print('<table cols="'.$lcm.'" border="0">');	$r->print('<table cols="'.$lcm.'" border="0">');
}	}
for ($i=0;$i<=$#rows;$i++) {	for ($i=0;$i<=$#rows;$i++) {
Line 397 sub handler {	Line 414 sub handler {
'<img src="/adm/lonMisc/subm_button.gif" border=0>'.	'<img src="/adm/lonMisc/subm_button.gif" border=0>'.
'</img></a>'.	'</img></a>'.
'<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).	'<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
'&command=viewgrades" target="LONcatInfo">'.	'&command=gradingmenu" target="LONcatInfo">'.
'<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.	'<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.
'</img></a>'.	'</img></a>'.
'<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb).	'<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb).
Line 434 sub handler {	Line 451 sub handler {
$r->print($ssibody{$rid});	$r->print($ssibody{$rid});
unless ($target eq 'tex') {	unless ($target eq 'tex') {
$r->print('</font>');	$r->print('</font>');
	}
	if ($ENV{'course.'.
	$ENV{'request.course.id'}.
	'.pageseparators'} eq 'yes') {
	unless($target eq 'tex') {
	$r->print('<hr />');
	} else {
	$r->print('\hline');
	}
}	}
} elsif ($cellemb{$rid} eq 'img') {	} elsif ($cellemb{$rid} eq 'img') {
$r->print('>'.$metainfo.'<img src="'.	$r->print('>'.$metainfo.'<img src="'.
Line 444 sub handler {	Line 470 sub handler {
}	}
unless ($target eq 'tex') {	unless ($target eq 'tex') {
$r->print('</td>');	$r->print('</td>');
	} else {
	for (my $incol=1;$incol<=$avespan;$incol++) {
	$r->print(' & ');
	}
}	}
}	}
unless ($target eq 'tex') {	unless ($target eq 'tex') {
$r->print('</tr>');	$r->print('</tr>');
	} else {
	$r->print('REMOVETHEHEADOFLONGTABLE\\\\');
}	}
}	}
}	}
unless ($target eq 'tex') {	unless ($target eq 'tex') {
$r->print("\n</table>");	$r->print("\n</table>");
	} else {
	$r->print('\end{longtable}');
}	}
# ---------------------------------------------------------------- Submit, etc.	# ---------------------------------------------------------------- Submit, etc.
if ($nforms) {	if ($nforms) {
Line 460 sub handler {	Line 494 sub handler {
'<input name="all_submit" value="Submit All" type="'.	'<input name="all_submit" value="Submit All" type="'.
(($nforms>1)?'submit':'hidden').'"></input></form>');	(($nforms>1)?'submit':'hidden').'"></input></form>');
}	}
$r->print('</body>'.&Apache::lonxml::xmlend());	unless ($target eq 'tex') {
	$r->print('</body>'.&Apache::lonxml::xmlend());
	} else {
	$r->print('\end{document}'.$number_of_columns);
	}
# -------------------------------------------------------------------- End page	# -------------------------------------------------------------------- End page
}	}
# ------------------------------------------------------------- End render page	# ------------------------------------------------------------- End render page
} else {	} else {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
$r->print('<html><body>Page undefined.</body></html>');	&Apache::lonsequence::viewmap($r,$requrl);
}	}
# ------------------------------------------------------------------ Untie hash	# ------------------------------------------------------------------ Untie hash
unless (untie(%hash)) {	unless (untie(%hash)) {
Line 480 sub handler {	Line 518 sub handler {
}	}
}	}
}	}
$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";	$r->content_type('text/html');
return HTTP_NOT_ACCEPTABLE;	$r->send_http_header;
	&Apache::lonsequence::viewmap($r,$requrl);
	return OK;
}	}

1;	1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.37
changed lines
	Added in v.1.43