--- rat/lonpage.pm 2004/12/10 19:59:55 1.64
+++ rat/lonpage.pm 2005/06/29 19:20:10 1.72
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Page Handler
#
-# $Id: lonpage.pm,v 1.64 2004/12/10 19:59:55 albertel Exp $
+# $Id: lonpage.pm,v 1.72 2005/06/29 19:20:10 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,24 +25,13 @@
#
# http://www.lon-capa.org/
#
-# (TeX Content Handler
-#
-# YEAR=2000
-# 05/29/00,05/30 Gerd Kortemeyer)
-# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
-# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16,
-# YEAR=2001
-# 08/13/01,08/30,10/1 Gerd Kortemeyer
-# YEAR=2002
-# 03/19 Gerd Kortemeyer
-#
###
package Apache::lonpage;
use strict;
use Apache::Constants qw(:common :http);
-use Apache::lonnet();
+use Apache::lonnet;
use Apache::loncommon();
use Apache::lonxml();
use Apache::lonlocal;
@@ -74,7 +63,7 @@ sub tracetable {
my ($sofar,$rid,$beenhere)=@_;
my $further=$sofar;
my $randomout=0;
- unless ($ENV{'request.role.adv'}) {
+ unless ($env{'request.role.adv'}) {
$randomout = $hash{'randomout_'.$rid};
}
unless ($beenhere=~/\&$rid\&/) {
@@ -149,7 +138,7 @@ sub handler {
# ------------------------------------------- Set document type for header only
if ($r->header_only) {
- if ($ENV{'browser.mathml'}) {
+ if ($env{'browser.mathml'}) {
&Apache::loncommon::content_type($r,'text/xml');
} else {
&Apache::loncommon::content_type($r,'text/html');
@@ -162,7 +151,7 @@ sub handler {
['forceselect','launch']);
my $number_of_columns = 1;
my $requrl=$r->uri;
- my $target = $ENV{'form.grade_target'};
+ my $target = $env{'form.grade_target'};
# &Apache::lonnet::logthis("Got a target of $target");
if ($target eq 'meta') {
&Apache::loncommon::content_type($r,'text/html');
@@ -170,8 +159,8 @@ sub handler {
return OK;
}
# ----------------------------------------------------------------- Tie db file
- if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {
- my $fn=$ENV{'request.course.fn'};
+ if (($env{'request.course.fn'}) && (!$env{'form.forceselect'})) {
+ my $fn=$env{'request.course.fn'};
if (-e "$fn.db") {
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
# ------------------------------------------------------------------- Hash tied
@@ -192,7 +181,7 @@ sub handler {
if ($rows[$i]) {
my @colcont=split(/\&/,$rows[$i]);
foreach (@colcont) {
- $symbhash{$hash{'src_'.$_}}='';
+ $symbhash{$hash{'src_'.$_}}=['page','notasymb'];
}
}
}
@@ -246,23 +235,34 @@ sub handler {
my $prefix=$_.'_';
my %posthash=('request.prefix' => $prefix,
+ 'LONCAPA_INTERNAL_no_discussion' => 'true',
'symb' => $symb);
- if ($ENV{'form.grade_target'} eq 'tex') {
- $posthash{'grade_target'}=$ENV{'form.grade_target'};
- $posthash{'textwidth'}=$ENV{'form.textwidth'};
- $posthash{'problem_split'}=$ENV{'form.problem_split'};
- $posthash{'latex_type'}=$ENV{'form.latex_type'};
- $posthash{'rndseed'}=$ENV{'form.rndseed'};
+ if ($env{'form.grade_target'} eq 'tex') {
+ $posthash{'grade_target'}=$env{'form.grade_target'};
+ $posthash{'textwidth'}=$env{'form.textwidth'};
+ $posthash{'problem_split'}=$env{'form.problem_split'};
+ $posthash{'latex_type'}=$env{'form.latex_type'};
+ $posthash{'rndseed'}=$env{'form.rndseed'};
}
- if (($ENV{'form.'.$prefix.'submit'})
- || ($ENV{'form.all_submit'})) {
- foreach (keys %ENV) {
- if ($_=~/^form.$prefix/) {
- my $name=$_;
- $name=~s/^form.$prefix//;
- $posthash{$name}=$ENV{$_};
- }
- }
+ my $submitted=exists($env{'form.all_submit'});
+ if (!$submitted) {
+ foreach my $key (keys(%env)) {
+ if ($key=~/^form.\Q$prefix\Esubmit_/) {
+ $submitted=1;last;
+ }
+ }
+ }
+ if ($submitted) {
+ foreach my $key (keys(%env)) {
+ if ($key=~/^form.\Q$prefix\E/) {
+ my $name=$key;
+ $name=~s/^form.\Q$prefix\E//;
+ $posthash{$name}=$env{$key};
+ }
+ }
+ if (exists($env{'form.all_submit'})) {
+ $posthash{'all_submit'}='yes';
+ }
}
my $output=Apache::lonnet::ssi($src,%posthash);
$output=~s|//(\s*)?\s||gs;
@@ -434,11 +434,14 @@ sub handler {
my $rid=$colcont[$j];
my $metainfo = '';
my $esrc=&Apache::lonnet::declutter($hash{'src_'.$rid});
+ my ($mapid,$resid)=split(/\./,$rid);
+ my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});
if ($hash{'encrypted_'.$rid}) {
+ $symb=&Apache::lonenc::encrypted($symb);
$esrc=&Apache::lonenc::encrypted($esrc);
}
unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) {
- $metainfo =''.
+ $metainfo =''.
''.
''.
'';
@@ -450,7 +453,7 @@ sub handler {
'';
if (
($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
- (&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) &&
+ (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) &&
($hash{'src_'.$rid} !~ m-^/uploaded/-)) {
my ($mapid,$resid)=split(/\./,$rid);
my $symb=
@@ -504,8 +507,8 @@ sub handler {
unless ($target eq 'tex') {
$r->print('');
}
- if ($ENV{'course.'.
- $ENV{'request.course.id'}.
+ if ($env{'course.'.
+ $env{'request.course.id'}.
'.pageseparators'} eq 'yes') {
unless($target eq 'tex') {
$r->print('