version 1.183, 2006/05/30 12:46:09
|
version 1.187, 2006/06/28 20:56:00
|
Line 63 sub initlittle {
|
Line 63 sub initlittle {
|
'docs' => 'Course Documents', |
'docs' => 'Course Documents', |
'exit' => 'Exit', |
'exit' => 'Exit', |
'launch' => 'Launch Remote Control', |
'launch' => 'Launch Remote Control', |
'groups' => 'Groups'); |
'groups' => 'Course Groups', |
|
'gdoc' => 'Group Documents', |
|
'teams' => 'Teams', |
|
); |
} |
} |
|
|
# ============================= This gets called at the top of the body section |
# ============================= This gets called at the top of the body section |
Line 172 ENDMAINMENU
|
Line 175 ENDMAINMENU
|
<td> |
<td> |
<a href="/adm/logout" target="_top">$lt{'exit'}</a> |
<a href="/adm/logout" target="_top">$lt{'exit'}</a> |
</td> |
</td> |
<td align="right"> |
<td "LC_top_nav_logo"> |
<img align="right" src="$logo" alt="Logo" /> |
<img align="right" src="$logo" alt="Logo" /> |
<b>LON-CAPA</b> |
<b>LON-CAPA</b> |
</td> |
</td> |
Line 191 ENDINLINEMENU
|
Line 194 ENDINLINEMENU
|
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<td><a href="$link" target="_top">$lt{'nav'}</a></td> |
<td><a href="$link" target="_top">$lt{'nav'}</a></td> |
ENDNAV |
ENDNAV |
|
my $is_group = (&Apache::loncommon::course_type() eq 'Group'); |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'}; |
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<td><a href="/adm/coursedocs" target="_top">$lt{'docs'}</a></td> |
<td><a href="/adm/coursedocs" target="_top">$text</a></td> |
ENDDOCS |
ENDDOCS |
} |
} |
if ($showgroups) { |
if ($showgroups) { |
|
my $text = ($is_group) ? $lt{'teams'} : $lt{'groups'}; |
$groups =(<<ENDGROUPS); |
$groups =(<<ENDGROUPS); |
<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td> |
<td><a href="/adm/coursegroups" target="_top">$text</a></td> |
ENDGROUPS |
ENDGROUPS |
} |
} |
if ( |
if ( |
Line 921 sub rawconfig {
|
Line 927 sub rawconfig {
|
my $con=($env{'request.state'} eq 'construct'); |
my $con=($env{'request.state'} eq 'construct'); |
my $rol=$env{'request.role'}; |
my $rol=$env{'request.role'}; |
my $requested_domain = $env{'request.role.domain'}; |
my $requested_domain = $env{'request.role.domain'}; |
foreach (@desklines) { |
foreach my $line (@desklines) { |
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_); |
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$line); |
$prt=~s/\$uname/$uname/g; |
$prt=~s/\$uname/$uname/g; |
$prt=~s/\$udom/$udom/g; |
$prt=~s/\$udom/$udom/g; |
$prt=~s/\$crs/$crs/g; |
$prt=~s/\$crs/$crs/g; |
$prt=~s/\$requested_domain/$requested_domain/g; |
$prt=~s/\$requested_domain/$requested_domain/g; |
|
my $type = &Apache::loncommon::course_type(); |
|
if ($type eq 'Group') { |
|
$desc = &convert_menu_function($desc,$type); |
|
} |
if ($pro eq 'clear') { |
if ($pro eq 'clear') { |
$output.=&clear($row,$col); |
$output.=&clear($row,$col); |
} elsif ($pro eq 'any') { |
} elsif ($pro eq 'any') { |
Line 1255 sub get_nav_status {
|
Line 1265 sub get_nav_status {
|
return $navstatus; |
return $navstatus; |
} |
} |
|
|
|
#FIXME this needs to move into mydesktab and the other locations |
|
# the text is generated |
|
sub convert_menu_function { |
|
my ($rolename,$type) = @_; |
|
if ($type eq 'Group') { |
|
$rolename =~ s/student/member/g; |
|
$rolename =~ s/group/team/g; |
|
$rolename =~ s/course/group/g; |
|
$rolename =~ s/Course/Group/g; |
|
} |
|
return $rolename; |
|
} |
|
|
|
|
# ================================================================ Main Program |
# ================================================================ Main Program |
|
|
BEGIN { |
BEGIN { |