[LON-CAPA-cvs] cvs: loncom(GCI_3) /auth lonroles.pm /interface lonmenu.pm

raeburn raeburn@source.lon-capa.org
Thu, 24 Dec 2009 18:28:58 -0000


raeburn		Thu Dec 24 18:28:58 2009 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/auth	lonroles.pm 
    /loncom/interface	lonmenu.pm 
  Log:
  - Customization for GCI_3
    - Welcome page after successful log-in.
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.240.2.4 loncom/auth/lonroles.pm:1.240.2.5
--- loncom/auth/lonroles.pm:1.240.2.4	Sun Dec 20 04:11:27 2009
+++ loncom/auth/lonroles.pm	Thu Dec 24 18:28:54 2009
@@ -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 @@
     $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 @@
     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,'');
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.309.2.4 loncom/interface/lonmenu.pm:1.309.2.5
--- loncom/interface/lonmenu.pm:1.309.2.4	Tue Dec 15 05:25:07 2009
+++ loncom/interface/lonmenu.pm	Thu Dec 24 18:28:58 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.309.2.4 2009/12/15 05:25:07 raeburn Exp $
+# $Id: lonmenu.pm,v 1.309.2.5 2009/12/24 18:28:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -296,6 +296,9 @@
                   'managetest' => '/adm/menu',
                 );
     my $current = 'managetest';
+    if ($env{'form.destinationurl'} eq '/adm/gci_info') {
+        undef($current);
+    }
     foreach my $key (keys(%courses)) {
         $links{$key} = "javascript:switchpage('$key');";
         if ($env{'request.course.id'} eq $courses{$key}) {