[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom(GCI_3) /auth lonroles.pm  /interface lonmenu.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2009-12-24 18:28:58
Message-ID: cvsraeburn1261679338 () cvsserver
[Download RAW message or body]

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}) {


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs


[prev in list] [next in list] [prev in thread] [next in thread]