loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.240.2.4, 2009/12/20 04:11:27
+version 1.240.2.5, 2009/12/24 18:28:54
  Line 722  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';
- Line 935  ENDSCRIPT
+ Line 940  ENDSCRIPT
      return OK;
  }
+ sub gci_info_page {
+     return <<"END";
+ <h2>Welcome to the Geoscience Concept Inventory WebCenter</h2>
+ <p>
+ Use the tabs to navigate the WebCenter and...
+ <ul>
+ <li>Review and comment on existing GCI questions</li>
+ <li>Submit a GCI question of your own</li>
+ <li>Create an online test for your students</li>
+ </ul>
+ </p>
+ <p>For more information about writing and reviewing Concept Inventory questions
+ please refer to the <a href="/res/gci/gci/internal/pdfs/GCIWorkbook.pdf">GCI Workbook</a>.
+ END
+ }
  sub gather_roles {
      my ($then,$refresh,$now,$reinit,$nochoose,$roletext,$sortrole,$roleclass,$futureroles,$timezones) = @_;
      my ($countactive,$countfuture,$inrole,$possiblerole) = (0,0,0,'');