--- loncom/interface/lonparmset.pm 2003/09/09 18:46:28 1.125
+++ loncom/interface/lonparmset.pm 2003/10/01 21:10:17 1.127
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.125 2003/09/09 18:46:28 www Exp $
+# $Id: lonparmset.pm,v 1.127 2003/10/01 21:10:17 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1152,7 +1152,8 @@ ENDTABLEHEADFOUR
my $totalparms=scalar keys %name;
if ($totalparms>0) {
my $firstrow=1;
-
+ my $title=$bighash{'title_'.$rid};
+ $title=~s/\:/:/g;
$r->print('
'.
@@ -1160,7 +1161,7 @@ ENDTABLEHEADFOUR
' '.
"$bighash{'title_'.$rid}");
+ " TARGET=_self>$title");
if ($thistitle) {
$r->print(' ('.$thistitle.')');
@@ -1809,7 +1810,7 @@ sub handler {
my $r=shift;
if ($r->header_only) {
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK;
}
@@ -1820,7 +1821,7 @@ sub handler {
if (($ENV{'request.course.id'}) &&
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
|