version 1.296, 2009/10/28 09:01:59
|
version 1.302, 2009/11/18 04:59:56
|
Line 230 sub secondary_menu {
|
Line 230 sub secondary_menu {
|
next if $$menuitem[4] =~ /^(no|)remotenavCommunity$/ |
next if $$menuitem[4] =~ /^(no|)remotenavCommunity$/ |
&& $crstype ne 'Community'; |
&& $crstype ne 'Community'; |
next if $$menuitem[4] =~ /showgroups$/ |
next if $$menuitem[4] =~ /showgroups$/ |
&& $canviewgrps |
&& !$canviewgrps |
&& !%groups; |
&& !%groups; |
|
|
if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
# special treatment for role selector |
# special treatment for role selector |
my $roles_selector = roles_selector( |
my $roles_selector = &roles_selector( |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.num'} ); |
$env{'course.' . $env{'request.course.id'} . '.num'} ); |
|
|
Line 545 sub innerregister {
|
Line 545 sub innerregister {
|
|
|
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
my @crumbs = ({text => "Course Contents", |
my $contentstext; |
|
if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') { |
|
$contentstext = &mt('Community Contents'); |
|
} else { |
|
$contentstext = &mt('Course Contents'); |
|
} |
|
my @crumbs = ({text => $contentstext, |
href => "Javascript:gonav('/adm/navmaps')"}); |
href => "Javascript:gonav('/adm/navmaps')"}); |
|
|
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
Line 561 sub innerregister {
|
Line 567 sub innerregister {
|
|
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0); |
#$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0); |
unless (($env{'request.state'} eq 'edit') || ($newmail) || |
unless (($env{'request.state'} eq 'edit') || ($newmail) || |
($env{'request.state'} eq 'construct') || |
($env{'request.state'} eq 'construct') || |
($env{'form.register'})) { |
($env{'form.register'})) { |
Line 683 sub innerregister {
|
Line 689 sub innerregister {
|
} |
} |
# Finally, turn the button on or off |
# Finally, turn the button on or off |
if ($cfile && !$const_space) { |
if ($cfile && !$const_space) { |
$editbutton=&switch |
my $nocrsedit; |
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]', |
# Suppress display where CC has switched to student role. |
|
if ($env{'request.course.id'}) { |
|
unless(&Apache::lonnet::allowed('mdc', |
|
$env{'request.course.id'})) { |
|
$nocrsedit = 1; |
|
} |
|
} |
|
if ($nocrsedit) { |
|
$editbutton=&clear(6,1); |
|
} else { |
|
$editbutton=&switch |
|
('','',6,1,'pcstr.gif','edit[_1]','resource[_2]', |
"go('".$cfile."');","Edit this resource"); |
"go('".$cfile."');","Edit this resource"); |
$noeditbutton = 0; |
$noeditbutton = 0; |
|
} |
} elsif ($editbutton eq '') { |
} elsif ($editbutton eq '') { |
$editbutton=&clear(6,1); |
$editbutton=&clear(6,1); |
} |
} |
Line 811 ENDMENUITEMS
|
Line 829 ENDMENUITEMS
|
my $addremote=0; |
my $addremote=0; |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} } |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} } |
my $inlinebuttons=''; |
my $inlinebuttons=''; |
if ($addremote) { |
if ($addremote) { |
# Registered, textual output |
|
if ($env{'environment.icons'} eq 'iconsonly') { |
#SD START (work in progress!) |
$inlinebuttons=(<<ENDARROWSINLINE); |
# Arrows for navigation |
<tr><td> |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'A', $inlineremote[21] ); |
$inlineremote[21] $inlineremote[23] |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'A', $inlineremote[23] ); |
ENDARROWSINLINE |
if(hidden_button_check() ne 'yes'){ |
if (&hidden_button_check() ne 'yes') { |
# notes |
$inlinebuttons .= (<<ENDINLINEICONS); |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[93]); |
$inlineremote[61] $inlineremote[63] |
# bookmark |
$inlineremote[71] $inlineremote[72] $inlineremote[73] |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[91]); |
$inlineremote[81] $inlineremote[82] $inlineremote[83] |
# evaluate |
$inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr> |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[81]); |
ENDINLINEICONS |
# feedback |
} |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[82]); |
} else { |
# print |
if ($inlineremote[21] ne '' || $inlineremote[23] ne '') { |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[83]); |
$inlinebuttons=(<<ENDFIRSTLINE); |
# metadata |
<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr> |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[63]); |
ENDFIRSTLINE |
|
} |
# ? |
if (&hidden_button_check() ne 'yes') { |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[61]); |
foreach my $row (6..9) { |
# ? |
if ($inlineremote[${row}.'1'] ne '' |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[71]); |
|| $inlineremote[$row.'2'] ne '' |
# ? |
|| $inlineremote[$row.'3'] ne '') { |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[72]); |
$inlinebuttons .= <<"ENDLINE"; |
# ? |
<tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr> |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[73]); |
ENDLINE |
# ? |
} |
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[92]); |
} |
|
} |
} |
} |
|
} |
#SD END |
|
# # Registered, textual output |
|
# if ( $env{'environment.icons'} eq 'iconsonly' ) { |
|
# $inlinebuttons = (<<ENDARROWSINLINE); |
|
#<tr><td> |
|
#$inlineremote[21] $inlineremote[23] |
|
#ENDARROWSINLINE |
|
# if ( &hidden_button_check() ne 'yes' ) { |
|
# $inlinebuttons .= (<<ENDINLINEICONS); |
|
#$inlineremote[61] $inlineremote[63] |
|
#$inlineremote[71] $inlineremote[72] $inlineremote[73] |
|
#$inlineremote[81] $inlineremote[82] $inlineremote[83] |
|
#$inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr> |
|
#ENDINLINEICONS |
|
# } |
|
# } else { # not iconsonly |
|
# if ( $inlineremote[21] ne '' || $inlineremote[23] ne '' ) { |
|
# $inlinebuttons = (<<ENDFIRSTLINE); |
|
#<tr><td>$inlineremote[21]</td><td> </td><td>$inlineremote[23]</td></tr> |
|
#ENDFIRSTLINE |
|
# } |
|
# if ( &hidden_button_check() ne 'yes' ) { |
|
# foreach my $row ( 6 .. 9 ) { |
|
# if ( $inlineremote[ ${row} . '1' ] ne '' |
|
# || $inlineremote[ $row . '2' ] ne '' |
|
# || $inlineremote[ $row . '3' ] ne '' ) |
|
# { |
|
# $inlinebuttons .= <<"ENDLINE"; |
|
#<tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr> |
|
#ENDLINE |
|
# } |
|
# } |
|
# } |
|
# } |
|
} |
|
#SD see below |
|
$breadcrumb = &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0); |
$result =(<<ENDREGTEXT); |
$result =(<<ENDREGTEXT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
</script> |
</script> |
$timesync |
$timesync |
$breadcrumb |
$breadcrumb |
$tablestart |
<!--$tablestart--!> |
$inlinebuttons |
<!--$inlinebuttons--!> |
$tableend |
<!--$tableend --!> |
$newmail |
$newmail |
$separator |
<!--$separator--!> |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
Line 1239 sub switch {
|
Line 1293 sub switch {
|
$inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>'; |
$inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>'; |
} else { |
} else { |
$inlineremote[$idx]= |
$inlineremote[$idx]= |
'<a class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic. |
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic. |
'<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>'; |
'<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>'; |
} |
} |
} |
} |
Line 1604 function go(url) {
|
Line 1658 function go(url) {
|
} |
} |
} |
} |
|
|
|
function gotop(url) { |
|
if (url!='' && url!= null) { |
|
top.location.href = url; |
|
} |
|
} |
|
|
function gopost(url,postdata) { |
function gopost(url,postdata) { |
if (url!='') { |
if (url!='') { |
this.document.server.action=url; |
this.document.server.action=url; |
Line 1788 sub hidden_button_check {
|
Line 1848 sub hidden_button_check {
|
|
|
sub roles_selector { |
sub roles_selector { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'}; |
my $crstype = &Apache::loncommon::course_type(); |
if ($crstype eq '') { |
|
$crstype = 'Course'; |
|
} |
|
my $now = time; |
my $now = time; |
my (%courseroles,%seccount); |
my (%courseroles,%seccount); |
my $is_cc; |
my $is_cc; |
my $role_selector; |
my $role_selector; |
if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) { |
my $ccrole; |
my ($start,$end) = split(/\./,$env{'user.role.cc./'.$cdom.'/'.$cnum}); |
if ($crstype eq 'Community') { |
|
$ccrole = 'co'; |
|
} else { |
|
$ccrole = 'cc'; |
|
} |
|
if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) { |
|
my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}); |
|
|
if ((($start) && ($start<0)) || |
if ((($start) && ($start<0)) || |
(($end) && ($end<$now)) || |
(($end) && ($end<$now)) || |
Line 1847 sub roles_selector {
|
Line 1910 sub roles_selector {
|
} else { |
} else { |
$switchtext = &mt('Switch course role to...') |
$switchtext = &mt('Switch course role to...') |
} |
} |
my @roles_order = ('cc','in','ta','ep','ad','st'); |
my @roles_order = ($ccrole,'in','ta','ep','ad','st'); |
if (keys(%courseroles) > 1) { |
if (keys(%courseroles) > 1) { |
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles); |
$role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles); |
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles"> |
$role_selector .= '<form name="rolechooser" method="post" action="/adm/roles"> |
Line 1855 sub roles_selector {
|
Line 1918 sub roles_selector {
|
$role_selector .= '<option value="">'.$switchtext.'</option>'; |
$role_selector .= '<option value="">'.$switchtext.'</option>'; |
foreach my $role (@roles_order) { |
foreach my $role (@roles_order) { |
if (defined($courseroles{$role})) { |
if (defined($courseroles{$role})) { |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; |
$role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role,$crstype).'</option>'; |
} |
} |
} |
} |
foreach my $role (sort(keys(%courseroles))) { |
foreach my $role (sort(keys(%courseroles))) { |