--- loncom/homework/lonsimpleproblemedit.pm 2003/09/09 19:39:04 1.5
+++ loncom/homework/lonsimpleproblemedit.pm 2003/09/21 21:40:06 1.6
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Simple Problem Parameter Setting "Editor"
#
-# $Id: lonsimpleproblemedit.pm,v 1.5 2003/09/09 19:39:04 www Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.6 2003/09/21 21:40:06 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,7 +133,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;
}
@@ -142,7 +143,7 @@ sub handler {
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;
@@ -212,7 +213,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 +231,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 +245,8 @@ ENDDOCUMENT
'
|