rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.35 and 1.51

version 1.35, 2002/03/26 23:12:57	version 1.51, 2003/04/18 13:58:44
Line 33	Line 33
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16,	# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16,
# YEAR=2001	# YEAR=2001
# 08/13/01,08/30,10/1 Gerd Kortemeyer	# 08/13/01,08/30,10/1 Gerd Kortemeyer
# 12/16 Scott Harrison
# YEAR=2002	# YEAR=2002
# 03/19 Gerd Kortemeyer	# 03/19 Gerd Kortemeyer
#	#
Line 46 use Apache::Constants qw(:common :http);	Line 45 use Apache::Constants qw(:common :http);
use Apache::lonnet();	use Apache::lonnet();
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonxml();	use Apache::lonxml();
	use Apache::lonmenu;
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;
}	}

my $requrl=$r->uri;	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['forceselect','launch']);
	my $number_of_columns = 1;
	my $requrl=$r->uri;
	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)) {
# ------------------------------------------------------------------- Hash tied	# ------------------------------------------------------------------- Hash tied
my $firstres=$hash{'map_start_'.$requrl};	my $firstres=$hash{'map_start_'.$requrl};
my $lastres=$hash{'map_finish_'.$requrl};	my $lastres=$hash{'map_finish_'.$requrl};
Line 166 sub handler {	Line 171 sub handler {

@rows=();	@rows=();

&tracetable(0,$firstres,'&'.$lastres.'&');	&tracetable(0,$firstres,'&');
if ($hash{'src_'.$lastres}) {
my $brepriv=
&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres});
if (($brepriv eq '2') \|\| ($brepriv eq 'F')) {
$rows[$#rows+1]=''.$lastres;
}
}

# ------------------------------------------------------------ Add to symb list	# ------------------------------------------------------------ Add to symb list

Line 241 sub handler {	Line 239 sub handler {
}	}
}	}
my $output=Apache::lonnet::ssi($src,%posthash);	my $output=Apache::lonnet::ssi($src,%posthash);
	$output=~
	s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
	if ($target eq 'tex') {
	$output =~ s/^([^&]+)\\begin{document}//;
	$output =~ s/\\end{document}//;
	$output = '\parbox{\minipagewidth}{ '.$output.' }';
	#some additional cleanup necessary for LateX (due to limitations of table environment
	$output =~ s/(\\vskip\s\d+mm)\s(\\\\)+/$1/g;
	}
my $parser=HTML::TokeParser->new(\$output);	my $parser=HTML::TokeParser->new(\$output);
my $token;	my $token;
my $thisdir=$src;	my $thisdir=$src;
Line 331 sub handler {	Line 338 sub handler {
# ------------------------------------------------------------------ Build page	# ------------------------------------------------------------------ Build page

# ---------------------------------------------------------------- Send headers	# ---------------------------------------------------------------- Send headers
if ($isxml) {	unless ($target eq 'tex') {
$r->content_type('text/xml');	if ($isxml) {
$r->send_http_header;	$r->content_type('text/xml');
$r->print($xmlheader);	$r->send_http_header;
} else {	$r->print($xmlheader);
$r->content_type('text/html');	} else {
$r->send_http_header;	$r->content_type('text/html');
$r->print('<html>');	$r->send_http_header;
}	$r->print('<html>');
	}
# ------------------------------------------------------------------------ Head	# ------------------------------------------------------------------------ Head
$r->print("\n<head>\n".$allmeta);	$r->print("\n<head>\n".$allmeta);
$allscript=~	if ($allscript) {
s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;	$r->print("\n<script language='JavaScript'>\n".
if ($allscript) {	$allscript."\n</script>\n");
$r->print("\n<script language='JavaScript'>\n".	}
$allscript."\n</script>\n");	$r->print(&Apache::lonmenu::registerurl(1,undef));
}	$r->print("\n</head>\n");
$r->print(&Apache::lonxml::registerurl(1,undef));
$r->print("\n</head>\n");
# ------------------------------------------------------------------ Start body	# ------------------------------------------------------------------ Start body
if ($isxml) {	if ($isxml) {
$r->print($xmlbody);	$r->print($xmlbody);
} else {	} else {
$r->print(	$r->print(
'<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.	'<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonmenu::loadevents.
'" onUnload="'.&Apache::lonxml::unloadevents.'">');	'" onUnload="'.&Apache::lonmenu::unloadevents.'">'.
}	&Apache::lonmenu::menubuttons(undef,$target,1)
	);
	}
# ------------------------------------------------------------------ Start form	# ------------------------------------------------------------------ Start form
if ($nforms) {	if ($nforms) {
$r->print('<form method="post" action="'.	$r->print('<form method="post" action="'.
$requrl.'">');	$requrl.'">');
}	}
	} else {
	$r->print('\documentclass{article}
	\newcommand{\keephidden}[1]{}
	\usepackage[dvips]{graphicx}
	\usepackage{epsfig}
	\usepackage{calc}
	\usepackage{longtable}
	\begin{document}');
	}
# ----------------------------------------------------------------- Start table	# ----------------------------------------------------------------- Start table
$r->print('<table cols="'.$lcm.'" border="0">');	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">');
	}
for ($i=0;$i<=$#rows;$i++) {	for ($i=0;$i<=$#rows;$i++) {
if ($rows[$i]) {	if ($rows[$i]) {
$r->print("\n<tr>");	unless ($target eq 'tex') {
	$r->print("\n<tr>");
	}
my @colcont=split(/\&/,$rows[$i]);	my @colcont=split(/\&/,$rows[$i]);
my $avespan=$lcm/($#colcont+1);	my $avespan=$lcm/($#colcont+1);
for ($j=0;$j<=$#colcont;$j++) {	for ($j=0;$j<=$#colcont;$j++) {
Line 389 sub handler {	Line 413 sub handler {
'___'.$resid.'___'.	'___'.$resid.'___'.
&Apache::lonnet::declutter($hash{'src_'.$rid});	&Apache::lonnet::declutter($hash{'src_'.$rid});
$metainfo.=	$metainfo.=
'<a href="/adm/grades?symb='.$symb.	'<a href="/adm/grades?symb='.&Apache::lonnet::escape($symb).
'&command=submission" target="LONcatInfo">'.	'&command=submission" target="LONcatInfo">'.
'<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='.$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='.$symb.'" target="LONcatInfo">'.	'<a href="/adm/parmset?symb='.&Apache::lonnet::escape($symb).
	'" target="LONcatInfo">'.
'<img src="/adm/lonMisc/pprm_button.gif" border=0>'.	'<img src="/adm/lonMisc/pprm_button.gif" border=0>'.
'</img></a>';	'</img></a>';
}	}
$metainfo.='<br></br>';	$metainfo.='<br></br>';
$r->print('<td colspan="'.$avespan.'"');	unless ($target eq 'tex') {
	$r->print('<td colspan="'.$avespan.'"');
	}
if ($cellemb{$rid} eq 'ssi') {	if ($cellemb{$rid} eq 'ssi') {
if ($ssibgcolor{$rid}) {	unless ($target eq 'tex') {
$r->print(' bgcolor="'.	if ($ssibgcolor{$rid}) {
$ssibgcolor{$rid}.'"');	$r->print(' bgcolor="'.
}	$ssibgcolor{$rid}.'"');
$r->print('>'.$metainfo.'<font');	}
if ($ssitext{$rid}) {	$r->print('>'.$metainfo.'<font');
$r->print(' text="'.$ssitext{$rid}.'"');
}	if ($ssitext{$rid}) {
if ($ssilink{$rid}) {	$r->print(' text="'.$ssitext{$rid}.'"');
$r->print(' link="'.$ssilink{$rid}.'"');	}
}	if ($ssilink{$rid}) {
if ($ssitext{$rid}) {	$r->print(' link="'.$ssilink{$rid}.'"');
$r->print(' vlink="'.$ssivlink{$rid}.'"');	}
}	if ($ssitext{$rid}) {
if ($ssialink{$rid}) {	$r->print(' vlink="'.$ssivlink{$rid}.'"');
$r->print(' alink="'.$ssialink{$rid}.'"');	}
	if ($ssialink{$rid}) {
	$r->print(' alink="'.$ssialink{$rid}.'"');
	}
	$r->print('>');
	}
	$r->print($ssibody{$rid});
	unless ($target eq 'tex') {
	$r->print('</font>');
}	}
	if ($ENV{'course.'.
$r->print('>'.$ssibody{$rid}.'</font>');	$ENV{'request.course.id'}.
} elsif ($cellemb{$rid} eq 'img') {	'.pageseparators'} eq 'yes') {
	unless($target eq 'tex') {
	$r->print('<hr />');
	} else {
	$r->print('\hline');
	}
	}
	} elsif ($cellemb{$rid} eq 'img') {
$r->print('>'.$metainfo.'<img src="'.	$r->print('>'.$metainfo.'<img src="'.
$hash{'src_'.$rid}.'"></img>');	$hash{'src_'.$rid}.'"></img>');
} elsif ($cellemb{$rid} eq 'emb') {	} elsif ($cellemb{$rid} eq 'emb') {
$r->print('>'.$metainfo.'<embed src="'.	$r->print('>'.$metainfo.'<embed src="'.
$hash{'src_'.$rid}.'"></embed>');	$hash{'src_'.$rid}.'"></embed>');
}	}
$r->print('</td>');	unless ($target eq 'tex') {
	$r->print('</td>');
	} else {
	for (my $incol=1;$incol<=$avespan;$incol++) {
	$r->print(' & ');
	}
	}
}	}
$r->print('</tr>');	unless ($target eq 'tex') {
	$r->print('</tr>');
	} else {
	$r->print('REMOVETHEHEADOFLONGTABLE\\\\');
	}
}	}
}	}
$r->print("\n</table>");	unless ($target eq 'tex') {
	$r->print("\n</table>");
	} else {
	$r->print('\end{longtable}\strut');
	}
# ---------------------------------------------------------------- Submit, etc.	# ---------------------------------------------------------------- Submit, etc.
if ($nforms) {	if ($nforms) {
$r->print(	$r->print(
'<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 462 sub handler {	Line 522 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>

Removed from v.1.35
changed lines
	Added in v.1.51