--- loncom/interface/lonparmset.pm 2003/09/05 03:47:47 1.124
+++ loncom/interface/lonparmset.pm 2003/10/08 18:08:11 1.128
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.124 2003/09/05 03:47:47 www Exp $
+# $Id: lonparmset.pm,v 1.128 2003/10/08 18:08:11 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -937,18 +937,19 @@ sub assessparms {
$r->print("\n");
$r->print('');
-
- $r->print('
Select Enclosing Map or Folder | ');
- $r->print(' |
\n");
+ if ($parmlev ne 'general') {
+ $r->print('Select Enclosing Map or Folder | ');
+ $r->print(' |
\n");
+ }
} else {
- my ($map,$id,$resource)=split(/___/,$pssymb);
+ my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
$r->print("Specific Resource | $resource | ");
$r->print(' | ');
$r->print('
');
@@ -1152,7 +1153,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 +1162,7 @@ ENDTABLEHEADFOUR
' '.
"$bighash{'title_'.$rid}");
+ " TARGET=_self>$title");
if ($thistitle) {
$r->print(' ('.$thistitle.')');
@@ -1809,7 +1811,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 +1822,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'};
|