Diff for /rat/lonpage.pm between versions 1.69 and 1.70

version 1.69, 2005/03/01 00:40:05 version 1.70, 2005/04/07 06:56:27
Line 31  package Apache::lonpage; Line 31  package Apache::lonpage;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Apache::lonnet();  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonxml();  use Apache::lonxml();
 use Apache::lonlocal;  use Apache::lonlocal;
Line 63  sub tracetable { Line 63  sub tracetable {
     my ($sofar,$rid,$beenhere)=@_;      my ($sofar,$rid,$beenhere)=@_;
     my $further=$sofar;      my $further=$sofar;
     my $randomout=0;      my $randomout=0;
     unless ($ENV{'request.role.adv'}) {      unless ($env{'request.role.adv'}) {
         $randomout = $hash{'randomout_'.$rid};          $randomout = $hash{'randomout_'.$rid};
     }      }
     unless ($beenhere=~/\&$rid\&/) {      unless ($beenhere=~/\&$rid\&/) {
Line 138  sub handler { Line 138  sub handler {
 # ------------------------------------------- Set document type for header only  # ------------------------------------------- Set document type for header only
   
   if ($r->header_only) {    if ($r->header_only) {
        if ($ENV{'browser.mathml'}) {         if ($env{'browser.mathml'}) {
            &Apache::loncommon::content_type($r,'text/xml');             &Apache::loncommon::content_type($r,'text/xml');
        } else {         } else {
            &Apache::loncommon::content_type($r,'text/html');              &Apache::loncommon::content_type($r,'text/html'); 
Line 151  sub handler { Line 151  sub handler {
                                           ['forceselect','launch']);                                            ['forceselect','launch']);
   my $number_of_columns = 1;    my $number_of_columns = 1;
   my $requrl=$r->uri;      my $requrl=$r->uri;  
   my $target = $ENV{'form.grade_target'};    my $target = $env{'form.grade_target'};
 #  &Apache::lonnet::logthis("Got a target of $target");  #  &Apache::lonnet::logthis("Got a target of $target");
   if ($target eq 'meta') {    if ($target eq 'meta') {
       &Apache::loncommon::content_type($r,'text/html');        &Apache::loncommon::content_type($r,'text/html');
Line 159  sub handler { Line 159  sub handler {
       return OK;        return OK;
   }    }
 # ----------------------------------------------------------------- Tie db file  # ----------------------------------------------------------------- Tie db file
   if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) {    if (($env{'request.course.fn'}) && (!$env{'form.forceselect'})) {
       my $fn=$ENV{'request.course.fn'};        my $fn=$env{'request.course.fn'};
       if (-e "$fn.db") {        if (-e "$fn.db") {
           if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {            if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
 # ------------------------------------------------------------------- Hash tied  # ------------------------------------------------------------------- Hash tied
Line 236  sub handler { Line 236  sub handler {
       my $prefix=$_.'_';        my $prefix=$_.'_';
                               my %posthash=('request.prefix' => $prefix,                                my %posthash=('request.prefix' => $prefix,
     'symb' => $symb);      'symb' => $symb);
       if ($ENV{'form.grade_target'} eq 'tex') {        if ($env{'form.grade_target'} eq 'tex') {
   $posthash{'grade_target'}=$ENV{'form.grade_target'};    $posthash{'grade_target'}=$env{'form.grade_target'};
   $posthash{'textwidth'}=$ENV{'form.textwidth'};    $posthash{'textwidth'}=$env{'form.textwidth'};
   $posthash{'problem_split'}=$ENV{'form.problem_split'};    $posthash{'problem_split'}=$env{'form.problem_split'};
   $posthash{'latex_type'}=$ENV{'form.latex_type'};    $posthash{'latex_type'}=$env{'form.latex_type'};
   $posthash{'rndseed'}=$ENV{'form.rndseed'};    $posthash{'rndseed'}=$env{'form.rndseed'};
       }        }
                               if (($ENV{'form.'.$prefix.'submit'})                                 if (($env{'form.'.$prefix.'submit'}) 
                                || ($ENV{'form.all_submit'})) {                                 || ($env{'form.all_submit'})) {
                                foreach (keys %ENV) {                                 foreach (keys %env) {
   if ($_=~/^form.$prefix/) {    if ($_=~/^form.$prefix/) {
       my $name=$_;        my $name=$_;
                                       $name=~s/^form.$prefix//;                                        $name=~s/^form.$prefix//;
                                       $posthash{$name}=$ENV{$_};                                        $posthash{$name}=$env{$_};
                                   }                                    }
                                }                                 }
       }        }
Line 442  sub handler { Line 442  sub handler {
                                   '</img></a>';                                    '</img></a>';
                               if (                                if (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&   ($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/-)) {   ($hash{'src_'.$rid} !~ m-^/uploaded/-)) {
   my ($mapid,$resid)=split(/\./,$rid);    my ($mapid,$resid)=split(/\./,$rid);
                                  my $symb=                                   my $symb=
Line 496  sub handler { Line 496  sub handler {
   unless ($target eq 'tex') {    unless ($target eq 'tex') {
       $r->print('</font>');        $r->print('</font>');
                                   }                                    }
                                   if ($ENV{'course.'.                                    if ($env{'course.'.
                                       $ENV{'request.course.id'}.                                        $env{'request.course.id'}.
                                       '.pageseparators'} eq 'yes') {                                        '.pageseparators'} eq 'yes') {
                                       unless($target eq 'tex') {                                        unless($target eq 'tex') {
                                           $r->print('<hr />');                                            $r->print('<hr />');

Removed from v.1.69  
changed lines
  Added in v.1.70


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>