--- loncom/auth/lonacc.pm 2008/12/31 20:22:12 1.124 +++ loncom/auth/lonacc.pm 2009/07/23 18:45:39 1.127 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # -# $Id: lonacc.pm,v 1.124 2008/12/31 20:22:12 raeburn Exp $ +# $Id: lonacc.pm,v 1.127 2009/07/23 18:45:39 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -278,6 +278,18 @@ sub sso_login { my ($user) = ($r->user =~ m/([a-zA-Z0-9_\-@.]*)/); + my $query = $r->args; + my %form; + if ($query) { + my @items = ('role','symb'); + &Apache::loncommon::get_unprocessed_cgi($query,\@items); + foreach my $item (@items) { + if (defined($env{'form.'.$item})) { + $form{$item} = $env{'form.'.$item}; + } + } + } + my $domain = $r->dir_config('lonDefDomain'); my $home=&Apache::lonnet::homeserver($user,$domain); if ($home !~ /(con_lost|no_host|no_such_host)/) { @@ -302,6 +314,11 @@ sub sso_login { 'server' => $r->dir_config('lonHostID'), 'sso.login' => 1 ); + foreach my $item ('role','symb') { + if (exists($form{$item})) { + $info{$item} = $form{$item}; + } + } if ($r->dir_config("ssodirecturl") == 1) { $info{'origurl'} = $r->uri; } @@ -449,6 +466,7 @@ sub handler { if ($env{'request.course.id'}) { &Apache::lonnet::countacc($requrl); $requrl=~/\.(\w+)$/; + my $query=$r->args; if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || ($requrl=~/^\/adm\/.*\/(aboutme|navmaps|smppg|bulletinboard)(\?|$ )/x) || ($requrl=~/^\/adm\/wrapper\//) || @@ -456,7 +474,6 @@ sub handler { ($requrl=~m|\.problem/smpedit$|) || ($requrl=~/^\/public\/.*\/syllabus$/)) { # ------------------------------------- This is serious stuff, get symb and log - my $query=$r->args; my $symb; if ($query) { &Apache::loncommon::get_unprocessed_cgi($query,['symb']); @@ -503,6 +520,18 @@ sub handler { # ------------------------------------------------------- This is other content &Apache::lonnet::courseacclog($requrl); } + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};; + my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};; + if ($requrl =~ m{^/+uploaded/\Q$cdom\E/\Q$cnum\E/docs/.+\.html?$}) { + if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { + if ($query) { + &Apache::loncommon::get_unprocessed_cgi($query,['forceedit']); + if ($env{'form.forceedit'}) { + $env{'request.state'} = 'edit'; + } + } + } + } } return OK; }