--- loncom/auth/lonroles.pm 2009/12/20 04:11:27 1.240.2.4 +++ loncom/auth/lonroles.pm 2009/12/24 18:28:54 1.240.2.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.240.2.4 2009/12/20 04:11:27 raeburn Exp $ +# $Id: lonroles.pm,v 1.240.2.5 2009/12/24 18:28:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -722,6 +722,11 @@ ENDHEADER $refresh = $now; &Apache::lonnet::appenv({'user.refresh.time' => $refresh}); if ($custommenu) { + if ($env{'form.destinationurl'} eq '/adm/gci_info') { + $r->print(&gci_info_page()). + &Apache::loncommon::end_page(); + return OK; + } my %courses = &Apache::loncommon::existing_gcitest_courses(); $env{'browser.interface'}='faketextual'; $env{'environment.remote'}='off'; @@ -935,6 +940,23 @@ ENDSCRIPT return OK; } +sub gci_info_page { + return <<"END"; +

Welcome to the Geoscience Concept Inventory WebCenter

+

+Use the tabs to navigate the WebCenter and... +

+

+

For more information about writing and reviewing Concept Inventory questions +please refer to the GCI Workbook. + +END +} + sub gather_roles { my ($then,$refresh,$now,$reinit,$nochoose,$roletext,$sortrole,$roleclass,$futureroles,$timezones) = @_; my ($countactive,$countfuture,$inrole,$possiblerole) = (0,0,0,'');