version 1.17, 2006/08/11 19:30:52
|
version 1.18, 2006/08/11 22:08:06
|
Line 31 use HTML::Parser;
|
Line 31 use HTML::Parser;
|
use Time::Local; |
use Time::Local; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::loncreatecourse; |
|
use Apache::loncreateuser; |
|
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
use strict; |
use strict; |
Line 497 sub build_course {
|
Line 495 sub build_course {
|
return; |
return; |
} |
} |
|
|
&Apache::loncreatecourse::construct_course($courseargs,$logmsg,\$courseid,\$crsudom,\$crsunum,$udom,$uname); |
&Apache::loncommon::construct_course($courseargs,$logmsg,\$courseid,\$crsudom,\$crsunum,$udom,$uname); |
} else { |
} else { |
return; |
return; |
} |
} |
Line 555 sub build_course {
|
Line 553 sub build_course {
|
if ($usec ne '') { |
if ($usec ne '') { |
$url .= '/'.$usec; |
$url .= '/'.$usec; |
} |
} |
$$output .= &Apache::loncreateuser::commit_standardrole($userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
$$output .= &Apache::loncommon::commit_standardrole($userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
} |
} |
} |
} |
if (@{$$details{$num}{'users'}{$userkey}{'roles'}} > 1) { |
if (@{$$details{$num}{'users'}{$userkey}{'roles'}} > 1) { |
Line 569 sub build_course {
|
Line 567 sub build_course {
|
if ($usec ne '') { |
if ($usec ne '') { |
$url .= '/'.$usec; |
$url .= '/'.$usec; |
} |
} |
$$output .= &Apache::loncreateuser::commit_studentrole(\$stulogmsg,$userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
$$output .= &Apache::loncommon::commit_studentrole(\$stulogmsg,$userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
} else { |
} else { |
foreach my $usec (@{$$details{$num}{'users'}{$userkey}{$curr_role}{'usec'}}) { |
foreach my $usec (@{$$details{$num}{'users'}{$userkey}{$curr_role}{'usec'}}) { |
$url = '/'.$crsudom.'/'.$crsunum; |
$url = '/'.$crsudom.'/'.$crsunum; |
if ($usec ne '') { |
if ($usec ne '') { |
$url .= '/'.$usec; |
$url .= '/'.$usec; |
} |
} |
$$output .= &Apache::loncreateuser::commit_standardrole($userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
$$output .= &Apache::loncommon::commit_standardrole($userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
} |
} |
} |
} |
} |
} |
Line 592 sub build_course {
|
Line 590 sub build_course {
|
if ($usec ne '') { |
if ($usec ne '') { |
$url .= '/'.$usec; |
$url .= '/'.$usec; |
} |
} |
$$output .= &Apache::loncreateuser::commit_studentrole(\$stulogmsg,$userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
$$output .= &Apache::loncommon::commit_studentrole(\$stulogmsg,$userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
} else { |
} else { |
if (@{$$details{$num}{'users'}{$userkey}{$curr_role}{'usec'}} > 0) { |
if (@{$$details{$num}{'users'}{$userkey}{$curr_role}{'usec'}} > 0) { |
foreach my $usec (@{$$details{$num}{'users'}{$userkey}{$curr_role}{'usec'}}) { |
foreach my $usec (@{$$details{$num}{'users'}{$userkey}{$curr_role}{'usec'}}) { |
Line 600 sub build_course {
|
Line 598 sub build_course {
|
if ($usec ne '') { |
if ($usec ne '') { |
$url .= '/'.$usec; |
$url .= '/'.$usec; |
} |
} |
my $stdresult = &Apache::loncreateuser::commit_standardrole($userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
my $stdresult = &Apache::loncommon::commit_standardrole($userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,$usec); |
$$output .= $stdresult; |
$$output .= $stdresult; |
} |
} |
} else { |
} else { |
$url = '/'.$crsudom.'/'.$crsunum; |
$url = '/'.$crsudom.'/'.$crsunum; |
$$output .= &Apache::loncreateuser::commit_standardrole($userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,''); |
$$output .= &Apache::loncommon::commit_standardrole($userdom,$username,$url,$curr_role,$start,$end,$crsudom,$crsunum,''); |
} |
} |
} |
} |
} |
} |