--- loncom/interface/lonparmset.pm 2003/09/05 03:47:47 1.124 +++ 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.124 2003/09/05 03:47:47 www Exp $ +# $Id: lonparmset.pm,v 1.127 2003/10/01 21:10:17 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -948,7 +948,7 @@ sub assessparms { } $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 +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'};