rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.31 and 1.39

version 1.31, 2002/02/14 20:45:16	version 1.39, 2002/05/27 12:04:36
Line 34	Line 34
# 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	# 12/16 Scott Harrison
	# YEAR=2002
	# 03/19 Gerd Kortemeyer
#	#
###	###

Line 46 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 149 sub handler {	Line 152 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['forceselect','launch']);

my $requrl=$r->uri;	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)) {
Line 329 sub handler {	Line 336 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=~	$allscript=~
s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;	s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
if ($allscript) {	if ($allscript) {
$r->print("\n<script language='JavaScript'>\n".	$r->print("\n<script language='JavaScript'>\n".
$allscript."\n</script>\n");	$allscript."\n</script>\n");
}	}
$r->print(&Apache::lonxml::registerurl(1));	$r->print(&Apache::lonxml::registerurl(1,undef));
$r->print("\n</head>\n");	$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.'" onUnload="'.&Apache::lonxml::unloadevents.'">');
'<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.	}
'" onUnload="'.&Apache::lonxml::unloadevents.'">');
}
# ------------------------------------------------------------------ Start form	# ------------------------------------------------------------------ Start form
if ($nforms) {	if ($nforms) {
$r->print('<form method="post" action="'.	$r->print('<form method="post" action="'.
$requrl.'">');	$requrl.'">');
}	}
# ----------------------------------------------------------------- Start table	# ----------------------------------------------------------------- Start table
$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++) {
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 373 sub handler {	Line 382 sub handler {
my $metainfo='<a href="'.	my $metainfo='<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>';	'</img></a><a href="/adm/evaluate?postdata='.
	&Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid}))
	.'" target="LONcatInfo">'.
	'<img src="/adm/lonMisc/eval_button.gif" border=0>'.
	'</img></a>';
if (	if (
($hash{'src_'.$rid}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) &&	($hash{'src_'.$rid}=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) &&
(&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) {
Line 383 sub handler {	Line 396 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('>'.$ssibody{$rid}.'</font>');	}
} elsif ($cellemb{$rid} eq 'img') {	$r->print('>');
	}
	$r->print($ssibody{$rid});
	unless ($target eq 'tex') {
	$r->print('</font>');
	}
	} 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>');
	}
}	}
$r->print('</tr>');	unless ($target eq 'tex') {
	$r->print('</tr>');
	}
}	}
}	}
$r->print("\n</table>");	unless ($target eq 'tex') {
	$r->print("\n</table>");
	}
# ---------------------------------------------------------------- Submit, etc.	# ---------------------------------------------------------------- Submit, etc.
if ($nforms) {	if ($nforms) {
$r->print(	$r->print(
Line 443 sub handler {	Line 471 sub handler {
} 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 456 sub handler {	Line 484 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.31
changed lines
	Added in v.1.39