loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.28, 2002/02/26 21:01:33
+version 1.30, 2002/04/02 21:33:06
  Line 172  sub handler {
              $requrl=~/\.(\w+)$/;
              if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
  # ------------------------------------- This is serious stuff, get symb and log
- 		my $symb=&Apache::lonnet::symbread;
+ 		my $query=$r->args;
+                 my $symb;
+                 if ($query) {
+ 		    &Apache::loncommon::get_unprocessed_cgi($query,['symb']);
+                 }
+                 if ($ENV{'form.symb'}) {
+ 		    $symb=$ENV{'form.symb'};
+                     my ($map,$mid,$murl)=split(/\_\_\_/,$symb);
+                     &Apache::lonnet::symblist($map,$murl => $mid,
+                                             'last_known' => $murl);
+                 } else {
+ 	            $symb=&Apache::lonnet::symbread;
+                 }
                  $ENV{'request.symb'}=$symb;
                  &Apache::lonnet::courseacclog($symb);
              } else {