[LON-CAPA-cvs] cvs: modules /albertel walk_course.pl

[albertel]

albertel		Tue Oct 10 17:53:28 2006 EDT

  Modified files:              
    /modules/albertel	walk_course.pl 
  Log:
  - better divison of labor
  
  
Index: modules/albertel/walk_course.pl
diff -u modules/albertel/walk_course.pl:1.1 modules/albertel/walk_course.pl:1.2
--- modules/albertel/walk_course.pl:1.1	Thu Oct  5 14:58:00 2006
+++ modules/albertel/walk_course.pl	Tue Oct 10 17:53:28 2006
@@ -1,7 +1,7 @@
 use Time::HiRes;
 use lib '/home/httpd/lib/perl';
 use LONCAPA;
-use Apache::lonauthinternals();
+use Apache::loncommon();
 use Apache::lonnet;
 use Apache::lonuserstate();
 use Apache::lonnavmaps();
@@ -13,8 +13,8 @@
 sub main {
     my $home = &Apache::lonnet::homeserver($username,$domain);
     my $cookie = 
-	&Apache::lonauthinternals::success(undef, $username, $domain,
-					   $home,'noredirect');
+	&Apache::loncommon::init_user_environment(undef, $username, $domain,
+					          $home);
     print(" got cookie $cookie \n");
     print(" got seesion env?  (".scalar(keys(%env)).")\n");
     my ($furl,$ferr) =