Diff for /rat/lonpageflip.pm between versions 1.86 and 1.87

version 1.86, 2014/12/11 13:16:49 version 1.87, 2015/03/14 21:56:13
Line 36  use LONCAPA; Line 36  use LONCAPA;
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonuserstate;
 use Apache::lonlocal;  use Apache::lonlocal;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
Line 269  sub handler { Line 270  sub handler {
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);
   if (($env{'form.postdata'})&&($env{'request.course.fn'})) {    if (($env{'form.postdata'})&&($env{'request.course.fn'})) {
       $env{'form.postdata'}=~/(\w+)\:(.*)/;        $env{'form.postdata'}=~/(\w+)\:(.*)/;
   
         if ($env{'request.course.id'}) {
             # Check if course needs to be re-initialized
             my $loncaparev = $r->dir_config('lonVersion');
             my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
             if ($result eq 'switch') {
                 &Apache::loncommon::content_type($r,'text/html');
                 $r->send_http_header;
                 $r->print(&Apache::loncommon::check_release_result(@reinit));
                 return OK;
             } elsif ($result eq 'update') {
                 my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                 my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                 my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
                 if ($ferr) {
                     my $requrl = $r->uri;
                     $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
                     $env{'user.reinit'} = 1;
                     return HTTP_NOT_ACCEPTABLE;
                 }
             }
         }
   
       my $direction=$1;        my $direction=$1;
       my $currenturl=$2;        my $currenturl=$2;
       if ($currenturl=~m|^/enc/|) {        if ($currenturl=~m|^/enc/|) {

Removed from v.1.86  
changed lines
  Added in v.1.87


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