version 1.244.2.15, 2010/05/23 19:16:02
|
version 1.244.2.16, 2010/05/23 20:46:51
|
Line 174 sub initlittle {
|
Line 174 sub initlittle {
|
'login' => 'Log In', |
'login' => 'Log In', |
'launch' => 'Launch Remote Control', |
'launch' => 'Launch Remote Control', |
'groups' => 'Groups', |
'groups' => 'Groups', |
'gdoc' => 'Community Documents', |
|
); |
); |
if (&Apache::loncommon::course_type() eq 'Community') { |
if (&Apache::loncommon::course_type() eq 'Community') { |
$lt{'nav'} = &mt('Community Contents'); |
$lt{'nav'} = &mt('Community Contents'); |
Line 247 ENDNAV
|
Line 246 ENDNAV
|
<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a> |
<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a> |
ENDRELOAD |
ENDRELOAD |
} |
} |
my $is_community = |
|
(&Apache::loncommon::course_type() eq 'Community'); |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
my $text = ($is_community) ? $lt{'gdoc'} : $lt{'docs'}; |
|
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<a href="/adm/coursedocs" target="_top">$text</a> |
<a href="/adm/coursedocs" target="_top">$lt{'docs'}</a> |
ENDDOCS |
ENDDOCS |
} |
} |
if ($showgroups) { |
if ($showgroups) { |
Line 317 ENDINLINEMENU
|
Line 313 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_community = |
|
(&Apache::loncommon::course_type() eq 'Community'); |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
my $text = ($is_community) ? $lt{'gdoc'} : $lt{'docs'}; |
|
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<td><a href="/adm/coursedocs" target="_top">$text</a></td> |
<td><a href="/adm/coursedocs" target="_top">$lt{'docs'}</a></td> |
ENDDOCS |
ENDDOCS |
} |
} |
if ($showgroups) { |
if ($showgroups) { |
Line 1255 sub rawconfig {
|
Line 1248 sub rawconfig {
|
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line); |
my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=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; |
|
if ($prt =~ /\$crs/) { |
if ($prt =~ /\$crs/) { |
next unless ($env{'request.course.id'}); |
next unless ($env{'request.course.id'}); |
next if ($crstype eq 'Community'); |
next if ($crstype eq 'Community'); |