--- loncom/homework/lonsimpleproblemedit.pm 2003/07/16 15:19:56 1.4
+++ loncom/homework/lonsimpleproblemedit.pm 2003/11/04 16:44:50 1.7
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Simple Problem Parameter Setting "Editor"
#
-# $Id: lonsimpleproblemedit.pm,v 1.4 2003/07/16 15:19:56 www Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.7 2003/11/04 16:44:50 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -32,6 +32,7 @@ use strict;
use Apache::Constants qw(:common :http);
use Apache::loncommon;
use Apache::lonnet;
+use Apache::lonlocal;
my %qparms;
my $prefix;
@@ -132,17 +133,17 @@ 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;
}
# -------------------------------------------------------------------- Allowed?
- unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+ unless (&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'})) {
return HTTP_NOT_ACCEPTABLE;
}
# ----------------------------------------------------------------- Send header
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
# ----------------------------------------------------- Figure out where we are
my $uri=$r->uri;
@@ -167,6 +168,7 @@ sub handler {
}
$ENV{'form.options'}="('".join("','",keys %curoptions)."')";
}
+ $ENV{'form.hiddenparts'}='!'.$ENV{'form.questiontype'};
foreach (keys %ENV) {
if ($_=~/^form\.(\w+)$/) {
my $parm=$1;
@@ -212,7 +214,8 @@ ENDDOCUMENT
unless ($questiontypes{$qtype}) { $qtype='radio'; }
$r->print('Question Type: '.&Apache::loncommon::select_form
($qtype,'questiontype',%questiontypes).
-'
'); + '
'); # Question Text $r->print(&questiontext()); # Radio, Option === @@ -229,7 +232,8 @@ ENDDOCUMENT unless ($randomizes{$randomize}) { $randomize='yes'; } $r->print( '
Max number of foils displayed: '. + ' | ||||
'.&mt('Max number of foils displayed'). +': '. &Apache::loncommon::select_form ($randomize,'randomize',%randomizes). ' | ||||
');
@@ -242,7 +246,8 @@ ENDDOCUMENT
'
|