version 1.240.2.9, 2010/01/15 05:30:21
|
version 1.240.2.13, 2010/01/18 17:08:57
|
Line 723 ENDHEADER
|
Line 723 ENDHEADER
|
|
|
$refresh = $now; |
$refresh = $now; |
&Apache::lonnet::appenv({'user.refresh.time' => $refresh}); |
&Apache::lonnet::appenv({'user.refresh.time' => $refresh}); |
|
if (!$countactive && !$countfuture) { |
|
if (&Apache::loncommon::new_roles_update()) { |
|
($countactive,$countfuture,$inrole,$possiblerole) = |
|
&gather_roles($then,$refresh,$now,$reinit,$nochoose,\%roletext,\%sortrole, |
|
\%roleclass,\%futureroles,\%timezones); |
|
} |
|
} |
if ($custommenu) { |
if ($custommenu) { |
if ($env{'form.destinationurl'} eq '/adm/gci_info') { |
if ($env{'form.destinationurl'} eq '/adm/gci_info') { |
$r->print(&gci_info_page()). |
$r->print(&gci_info_page()). |
Line 735 ENDHEADER
|
Line 742 ENDHEADER
|
my $numcourses = keys(%courses); |
my $numcourses = keys(%courses); |
my $switcher; |
my $switcher; |
if ($numcourses > 0) { |
if ($numcourses > 0) { |
$switcher = &Apache::lonmainmenu::gcitest_switcher(%courses); |
$switcher = &Apache::lonmainmenu::gcitest_switcher('cc',%courses); |
my $current; |
my $current; |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$current = 'cc./'.$env{'course.'.$env{'request.course.id'}.'.domain'}. |
$current = 'cc./'.$env{'course.'.$env{'request.course.id'}.'.domain'}. |
Line 1072 sub gather_roles {
|
Line 1079 sub gather_roles {
|
} elsif ($trest) { |
} elsif ($trest) { |
my $tcourseid=$tdom.'_'.$trest; |
my $tcourseid=$tdom.'_'.$trest; |
$ttype = &Apache::loncommon::course_type($tcourseid); |
$ttype = &Apache::loncommon::course_type($tcourseid); |
$trole = &Apache::lonnet::plaintext($role,$ttype); |
$trole = &Apache::lonnet::plaintext($role,$ttype,$tcourseid); |
if ($env{'course.'.$tcourseid.'.description'}) { |
if ($env{'course.'.$tcourseid.'.description'}) { |
$twhere=$env{'course.'.$tcourseid.'.description'}; |
$twhere=$env{'course.'.$tcourseid.'.description'}; |
$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey; |
$sortkey=$role."\0".$tdom."\0".$twhere."\0".$envkey; |
Line 1091 sub gather_roles {
|
Line 1098 sub gather_roles {
|
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom). |
&Apache::loncommon::syllabuswrapper(&mt('Syllabus'),$trest,$tdom). |
'</span>'; |
'</span>'; |
$ttype = $newhash{'type'}; |
$ttype = $newhash{'type'}; |
$trole = &Apache::lonnet::plaintext($role,$ttype); |
$trole = &Apache::lonnet::plaintext($role,$ttype,$tcourseid); |
} else { |
} else { |
$twhere=&mt('Currently not available'); |
$twhere=&mt('Currently not available'); |
$env{'course.'.$tcourseid.'.description'}=$twhere; |
$env{'course.'.$tcourseid.'.description'}=$twhere; |
Line 1712 sub display_cc_role {
|
Line 1719 sub display_cc_role {
|
$twhere=&mt('Currently not available'); |
$twhere=&mt('Currently not available'); |
$env{'course.'.$tcourseid.'.description'}=$twhere; |
$env{'course.'.$tcourseid.'.description'}=$twhere; |
} |
} |
my $trole = &Apache::lonnet::plaintext($ccrole,$ttype); |
my $trole = &Apache::lonnet::plaintext($ccrole,$ttype,$tcourseid); |
$twhere.="<br />".&mt('Domain').":".$1; |
$twhere.="<br />".&mt('Domain').":".$1; |
($roletext,$roletext_end) = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,''); |
($roletext,$roletext_end) = &build_roletext($trolecode,$1,$2,'is',$tryagain,$advanced,'',$tbg,$trole,$twhere,'','','',1,''); |
} |
} |