- -ENDMAINMENU - if ($registration) { $output.=&innerregister($forcereg,$target); } - return $output."
"; - } elsif ($ENV{'environment.remote'} eq 'off') { + } + if ($env{'request.course.id'}) { +# +# We are in a course +# + $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my %coursegroups; + my $viewgrps_permission = + &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); + if (!$viewgrps_permission) { + %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$cdom,$cnum); + } + if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) { + $showgroups = 1; + } + $role_selector = &roles_selector($cdom,$cnum); + if ($role_selector) { + $roles = ''.$role_selector.' '.$lt{'other'}.''; + } + } + + if ($env{'environment.remote'} eq 'off') { # Remote Control is switched off # figure out colors - my %lt=&initlittle(); - my $function='student'; - if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { - $function='coordinator'; - } - if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { - $function='admin'; - } - if (($ENV{'request.role'}=~/^(au|ca)/) || - ($ENV{'request.noversionuri'}=~/^(\/priv|\~)/)) { - $function='author'; - } + my %lt=&initlittle(); + my $domain=&Apache::loncommon::determinedomain(); - $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); - $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); - $font=&Apache::loncommon::designparm($function.'.font',$domain); + my $function=&Apache::loncommon::get_users_function(); my $link=&Apache::loncommon::designparm($function.'.link',$domain); my $alink=&Apache::loncommon::designparm($function.'.alink',$domain); my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain); my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); + + if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') { + return (<
+ENDINLINEMENU + } + $roles = ''.$lt{'roles'}.''; # Do we have a NAV link? - if ($ENV{'request.course.id'}) { - $navmaps=(<
| -$lt{'main'} - | + +- -$lt{'launch'} | -
-
-LON-CAPA |
-
| ';
+
+ if (&Apache::lonmsg::newmail() && !$noremote) {
+ # We have new mail and remote is up
+ $newmail= 'swmenu.setstatus("you have","messages");';
+ }
+
+ my ($breadcrumb,$separator);
+ if ($noremote
+ && ($env{'request.symb'})
+ && ($env{'request.course.id'})) {
+
+ my ($mapurl,$rid,$resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
+ my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
+
+ my $maptitle = &Apache::lonnet::gettitle($mapurl);
+ my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
+ my $contentstext;
+ if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {
+ $contentstext = &mt('Community Contents');
+ } else {
+ $contentstext = &mt('Course Contents');
+ }
+ my @crumbs;
+ unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')
+ && ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
+ my $link = "javascript:gopost('/adm/navmaps','')";
+ if ($env{'environment.remotenavmap'} eq 'on') {
+ $link = "javascript:gonav('/adm/navmaps','')"
+ }
+ @crumbs = ({text => Apache::loncommon::course_type()
+ . ' Contents',
+ href => $link});
+ }
+ if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {
+ push(@crumbs, {text => '...',
+ no_mt => 1});
+ }
+
+ push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle
+ && $maptitle ne 'default.sequence'
+ && $maptitle ne $coursetitle);
+
+ push @crumbs, {text => $restitle, no_mt => 1} if $restitle;
+
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
+ #$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
+ unless (($env{'request.state'} eq 'edit') || ($newmail) ||
+ ($env{'request.state'} eq 'construct') ||
+ ($env{'form.register'})) {
+ $separator = &Apache::loncommon::head_subbox();
+ }
+ #
}
- if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
- my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});
- $newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
- my $maptitle=&Apache::lonnet::gettitle($mapurl);
- my $restitle=&Apache::lonnet::gettitle($resurl);
- if ($maptitle) {
- $newmail.=', '.$maptitle;
- }
- if ($restitle) {
- $newmail.=': '.$restitle;
- }
- $newmail.=' ';
- }
- if (&Apache::lonmsg::newmail()) {
- $newmail=($textual?
- 'You have new messages ': - 'swmenu.setstatus("you have","messages");'); - } - if ($noremote) { - $newmail.=' |
$link
+ENDREMOTEFORM +} + +sub get_menu_name { + my $hostid = $Apache::lonnet::perlvar{'lonHostID'}; + $hostid =~ s/\W//g; + return 'LCmenu'.$hostid; +} + sub reopenmenu { - if (($ENV{'browser.interface'} eq 'textual') || - ($ENV{'environment.remote'} eq 'off')) { return ''; } - my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; + if ($env{'environment.remote'} eq 'off') { return ''; } + my $menuname = &get_menu_name(); my $nothing = &Apache::lonhtmlcommon::javascript_nothing(); return('window.open('.$nothing.',"'.$menuname.'","",false);'); } -# =============================================================== Open the menu sub open { my $returnval=''; - if (($ENV{'browser.interface'} eq 'textual') || - ($ENV{'environment.remote'} eq 'off')) { return ''; } - my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; - unless (shift eq 'unix') { -# resizing does not work on linux because of virtual desktop sizes - $returnval.=(<". - $desc.' '.$text.''; - } } else { # Inline Remote + if ($env{'environment.icons'} ne 'classic') { + $img=~s/\.gif$/\.png/; + } if ($nobreak==2) { return ''; } my $text=$top.' '.$bot; $text=~s/\s*\-\s*//gs; + my $pic= - '
'.
+ '
'.&mt('Management').'
'. + ''.
+ '
'.
+ '- '.
+ '
- '.&mt('Concept Test Contents').' '. + '
- '.&mt('Display the table of contents for your Concept Test.').' '. + '
- '.&mt('Assemble Concept Test').' '. + '
- '.&mt('If no students have attempted the Concept Test you will be able to modify it. You can also change the start and end date of the test itself.').' '. + '
- '.&mt('Enrollment and Student Activity').' '. + '
- '.&mt('Display or download a course roster, and view information about completion status and last login. You can also add new students, or change access dates for existing students.').'
- '.
+ '
- '.&mt("What's New?").' '. + '
- '.&mt('View information about changes in your Concept Test course.').' '. + '
- '.&mt('Prepare Printable Concept Test').' '. + '
- '.&mt('Create a PDF which you can send to a printer to create a hardcopy of the Concept Test.').' '. + '
- '.&mt('Concept Test Statistics').' '. + '
- '.&mt('After the closing date of the Concept Test you can view and download statistics for the test, as well as anonymized submission data.').' '; + if ($canreq) { + $output .= '
- '.&mt('Create New Test').' '. + '
- '. + &mt('Create a new Concept Test Course Container. Choose GCI questions to include in the test and upload a student roster.').' '; + } + $output .= '
'; + } else { + my $navtext = &mt('Table of Contents'); + my $navdesc = &mt('Display Table of Contents for Geoscience Concept Inventory'); + if ($env{'request.role.domain'} eq 'gcitest') { + $navtext = &mt('Display Test Contents'); + $navdesc = &mt('Display the table of contents for this Concept Test'); + } + my $navlink; + if ($env{'environment.remotenavmap'} eq 'on') { + $navlink = "javascript:gonav('/adm/navmaps');" + } else { + $navlink = '/adm/navmaps'; + } + $output .= + '
'.
+ '
'.&mt('Utilities').'
'. + ''.
+ '
';
+ if ($canreq) {
+ $output .= '- '.
+ '
- '.$navtext.' '. + '
- '. + ''.$navdesc.'
'.
+ '
';
+ }
+ $output .= '- '.
+ '
- '.$createtext.' '. + '
- '.&mt('Create a new Concept Test Course Container').'. '.&mt('Choose GCI questions to include in the test and upload a student roster.').'
'; + } + } elsif ($switcher || $canreq) { + $output .= '
'. + '
'.
+ '
'.&mt('Utilities').'
'. + ''.
+ '
';
+ if ($switcher) {
+ $output .= '- ';
+ if ($canreq) {
+ $output .= '
- '.$createtext.' '. + '
- '.&mt('Create a new Concept Test Course Container. Choose GCI questions to include in the test and upload a student roster.').'
'.
+ '
';
+ }
+ $output .= '- ';
+ }
+ }
+ if ($switcher) {
+ $output .= '
- '.&mt('Select Concept Test').' '. + '
- '.$switcher.'
'; + } + } elsif ($context eq 'gcinorole') { + my $queued = &Apache::loncoursequeueadmin::queued_selfenrollment('notitle'); + if ($queued) { + $output .= + '
'.
+ '
';
+ }
+ } else {
+ # calling rawconfig with "1" will evaluate mydesk.tab,
+ # even if there is no active remote control
+ &rawconfig(1);
+ $output=''.&mt('Pending Enrollment Requests').'
'. + $queued. + '| ';
+ for (my $row=1; $row<=8; $row++) {
+ foreach my $cat (keys(%category_members)) {
+ if ($category_positions{$cat} ne "$col,$row") { next; }
+ $output.=' ';
+ $output.=' ';
+ }
+ }
+ $output.="'.&mt($category_names{$cat}).''; + $output.=' | ";
+ }
+ $output.="