--- loncom/auth/lonroles.pm 2010/10/06 18:46:53 1.240.2.18 +++ loncom/auth/lonroles.pm 2010/12/05 16:15:02 1.240.2.19 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.240.2.18 2010/10/06 18:46:53 raeburn Exp $ +# $Id: lonroles.pm,v 1.240.2.19 2010/12/05 16:15:02 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -593,16 +593,11 @@ ENDENTERKEY my ($crumbtext,$pagetitle,$recent,$show_course); $show_course=&Apache::loncommon::show_course(); - my $noscript=''.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'
'.&mt('As this is not the case, most functionality in the system will be unavailable.').'

'; + my $noscript='
'.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.').'
'.&mt('As this is not the case, most functionality in the system will be unavailable.').'

'; if ($custommenu) { - my $brcrum = {'bread_crumbs' => 1}; - if ($env{'form.destinationurl'} eq '/adm/gci_info') { - undef($brcrum); - } - my $start_page = &Apache::loncommon::start_page('Main Menu',undef,$brcrum); + my $start_page = &Apache::loncommon::start_page('Main Menu'); $r->print(<<"ENDCUSTOM"); $start_page -
@@ -622,18 +617,17 @@ ENDCUSTOM text => $crumbtext,}, ]; my $args; - if (($env{'user.domain'} eq 'gcitest') && (!$numdc)) { - $args = {bread_crumbs => $brcrum, - bread_crumbs_nomenu => 1}; - } else { + if ($numdc) { $args = {bread_crumbs => $brcrum}; + } else { + $args = {bread_crumbs => $brcrum, + bread_crumbs_menulink => '_nomenu'}; } my $start_page=&Apache::loncommon::start_page($pagetitle,undef,$args); my $swinfo=&Apache::lonmenu::rawconfig(); $standby=~s/\n/\\n/g; $r->print(< @@ -766,14 +760,6 @@ ENDHEADER $current = 'cc./'.$env{'course.'.$env{'request.course.id'}.'.domain'}. '/'.$env{'course.'.$env{'request.course.id'}.'.num'}; } - my $switcher_js = &Apache::loncommon::gcitest_switcher_js($current,$numcourses); - $r->print(<<"ENDSCRIPT"); - -ENDSCRIPT } $r->print(&Apache::lonmenu::inlinemenu('gcicustom',$switcher). &Apache::loncommon::end_page()); @@ -820,8 +806,8 @@ ENDSCRIPT if ($show_course) { if ($env{'user.domain'} eq 'gcitest') { $r->print('

'.&mt('Currently no active Concept Tests').'

'); - } else { - $r->print('

'.&mt('Currently no active courses or communities').'

'); + } elsif ($env{'user.domain'} eq 'gci') { + $r->print('

'.&mt('Currently not assigned as a GCI contributor').'

'); } } else { $r->print('

'.&mt('Currently no active roles, courses or communities').'

'); @@ -993,6 +979,8 @@ ENDSCRIPT sub gci_info_page { return <<"END"; +
+

Welcome to the Geoscience Concept Inventory WebCenter

Use the tabs to navigate the WebCenter and... @@ -1005,7 +993,7 @@ Use the tabs to navigate the WebCenter a

For more information about writing and reviewing Concept Inventory questions please refer to the GCI Workbook. - +

END } @@ -1311,10 +1299,15 @@ sub findcourse_advice { } else { $r->print(&mt('If you were expecting to see an active role listed for a particular course, that course may not have been created yet.').'
'); } - $r->print('

'.&mt('Self-Enrollment').'

'. - '

'.&mt('The [_1]Course/Community Catalog[_2] provides information about all [_3] classes for which LON-CAPA courses have been created, as well as any communities in the domain.','','',$domdesc).'
'); - $r->print(&mt('You can search for courses and communities which permit self-enrollment, if you would like to enroll in one.').'

'. - &Apache::loncoursequeueadmin::queued_selfenrollment()); + my $queued = &Apache::loncoursequeueadmin::queued_selfenrollment(); + if ($queued) { + $r->print($queued); + } else { + $r->print(&mt('You have no request for contributor access pending approval by the GCI WebCenter team.').''); + } return; }