version 1.267, 2007/04/07 00:12:42
|
version 1.273, 2007/08/31 19:32:57
|
Line 188 sub proctor_checked_in {
|
Line 188 sub proctor_checked_in {
|
return 0; |
return 0; |
} |
} |
|
|
$Apache::lonxml::browse=''; |
|
sub check_ip_acc { |
sub check_ip_acc { |
my ($acc)=@_; |
my ($acc)=@_; |
&Apache::lonxml::debug("acc is $acc"); |
&Apache::lonxml::debug("acc is $acc"); |
Line 196 sub check_ip_acc {
|
Line 195 sub check_ip_acc {
|
return 1; |
return 1; |
} |
} |
my $allowed=0; |
my $allowed=0; |
my $ip=$ENV{'REMOTE_ADDR'}; |
my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'}; |
|
|
my $name; |
my $name; |
foreach my $pattern (split(',',$acc)) { |
foreach my $pattern (split(',',$acc)) { |
$pattern =~ s/^\s*//; |
$pattern =~ s/^\s*//; |
Line 861 sub editxmlmode {
|
Line 861 sub editxmlmode {
|
if ($cols > 80) { $cols = 80; } |
if ($cols > 80) { $cols = 80; } |
if ($cols < 70) { $cols = 70; } |
if ($cols < 70) { $cols = 70; } |
if ($rows < 20) { $rows = 20; } |
if ($rows < 20) { $rows = 20; } |
|
my $js = |
|
&Apache::edit::js_change_detection(). |
|
&Apache::loncommon::resize_textarea_js(); |
|
my $only_body = ($env{'environment.remote'} eq 'off')? 0 : 1; |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page(&mt("EditXML [_1]",$file), |
&Apache::loncommon::start_page(&mt("EditXML [_1]",$file),$js, |
&Apache::edit::js_change_detection(), |
{'no_auto_mt_title' => 1, |
{'no_auto_mt_title' => 1,}); |
'only_body' => $only_body, |
|
'add_entries' => { |
|
'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')], |
|
'onload' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')], |
|
}}); |
|
|
$result.=$start_page. |
$result.=$start_page. |
&renderpage($request,$file,['no_output_web'],1). |
&renderpage($request,$file,['no_output_web'],1). |
Line 881 sub editxmlmode {
|
Line 889 sub editxmlmode {
|
<input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /> |
<input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /> |
<hr /> |
<hr /> |
' . $xml_help . ' |
' . $xml_help . ' |
<textarea '.&Apache::edit::element_change_detection().' style="width:100%" rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'. |
<textarea '.&Apache::edit::element_change_detection(). |
&HTML::Entities::encode($problem,'<>&"').'</textarea><br /> |
' rows="'.$rows.'" cols="'.$cols.'" style="width:100%" '. |
<input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes').'" /> |
' name="editxmltext" id="LC_editxmltext">'. |
<input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /> |
&HTML::Entities::encode($problem,'<>&"').'</textarea> |
|
<div id="LC_aftertextarea"> |
|
<input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes').'" /> |
|
<input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /> |
|
</div> |
</form>'.&Apache::loncommon::end_page(); |
</form>'.&Apache::loncommon::end_page(); |
&Apache::lonxml::add_messages(\$result); |
&Apache::lonxml::add_messages(\$result); |
$request->print($result); |
$request->print($result); |
Line 901 sub renderpage {
|
Line 913 sub renderpage {
|
my @targets = @{$targets || [&get_target()]}; |
my @targets = @{$targets || [&get_target()]}; |
&Apache::lonhomework::showhashsubset(\%env,'form.'); |
&Apache::lonhomework::showhashsubset(\%env,'form.'); |
&Apache::lonxml::debug("Running targets ".join(':',@targets)); |
&Apache::lonxml::debug("Running targets ".join(':',@targets)); |
|
|
my $overall_result; |
my $overall_result; |
foreach my $target (@targets) { |
foreach my $target (@targets) { |
# FIXME need to do something intelligent when a problem goes |
# FIXME need to do something intelligent when a problem goes |
Line 938 sub renderpage {
|
Line 951 sub renderpage {
|
&Apache::lonxml::debug("Should be parsing now"); |
&Apache::lonxml::debug("Should be parsing now"); |
$result .= &Apache::lonxml::xmlparse($request, $target, $problem, |
$result .= &Apache::lonxml::xmlparse($request, $target, $problem, |
&setup_vars($target),%mystyle); |
&setup_vars($target),%mystyle); |
undef($Apache::lonhomework::parsing_a_problem); |
&finished_parsing(); |
if (!$output) { $result = ''; } |
if (!$output) { $result = ''; } |
#$request->print("Result follows:"); |
#$request->print("Result follows:"); |
if ($target eq 'modified') { |
if ($target eq 'modified') { |
Line 969 sub renderpage {
|
Line 982 sub renderpage {
|
} |
} |
} |
} |
|
|
|
sub finished_parsing { |
|
undef($Apache::lonhomework::parsing_a_problem); |
|
undef($Apache::lonhomework::parsing_a_task); |
|
} |
|
|
# with no arg it returns a HTML <option> list of the template titles |
# with no arg it returns a HTML <option> list of the template titles |
# with one arg it returns the filename associated with the arg passed |
# with one arg it returns the filename associated with the arg passed |
sub get_template_list { |
sub get_template_list { |
Line 977 sub get_template_list {
|
Line 995 sub get_template_list {
|
my @allnames; |
my @allnames; |
&Apache::lonxml::debug("Looking for :$extension:"); |
&Apache::lonxml::debug("Looking for :$extension:"); |
foreach my $file (</home/httpd/html/res/adm/includes/templates/*.$extension>) { |
foreach my $file (</home/httpd/html/res/adm/includes/templates/*.$extension>) { |
|
&Apache::lonxml::debug("Looking at $file"); |
my $name=&Apache::lonnet::metadata($file,'title'); |
my $name=&Apache::lonnet::metadata($file,'title'); |
|
&Apache::lonxml::debug("Got a name $name"); |
if ($namewanted && ($name eq $namewanted)) { |
if ($namewanted && ($name eq $namewanted)) { |
$result=$file; |
$result=$file; |
last; |
last; |
Line 1047 $errormsg
|
Line 1067 $errormsg
|
return ''; |
return ''; |
} |
} |
|
|
|
sub update_construct_style { |
|
if ($env{'request.state'} eq "construct" |
|
&& $env{'form.problemmode'} eq &mt('View') |
|
&& defined($env{'form.submitted'}) |
|
&& !defined($env{'form.resetdata'}) |
|
&& !defined($env{'form.newrandomization'})) { |
|
if ((!$env{'form.style_file'} && $env{'construct.style'}) |
|
||$env{'form.clear_style_file'}) { |
|
&Apache::lonnet::delenv('construct\\.style'); |
|
} elsif ($env{'form.style_file'} |
|
&& $env{'construct.style'} ne $env{'form.style_file'}) { |
|
&Apache::lonnet::appenv('construct.style' => |
|
$env{'form.style_file'}); |
|
} |
|
} |
|
} |
|
|
|
|
sub handler { |
sub handler { |
#my $t0 = [&gettimeofday()]; |
#my $t0 = [&gettimeofday()]; |
my $request=$_[0]; |
my $request=$_[0]; |
Line 1097 sub handler {
|
Line 1135 sub handler {
|
} elsif ($env{'form.problemmode'} eq &mt('Calculate answers')) { |
} elsif ($env{'form.problemmode'} eq &mt('Calculate answers')) { |
&analyze($request,$file); |
&analyze($request,$file); |
} else { |
} else { |
|
&update_construct_style(); |
&renderpage($request,$file); |
&renderpage($request,$file); |
} |
} |
} else { |
} else { |