[BACK]Return to lonroles.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.240.2.21 and 1.240.2.22

version 1.240.2.21, 2010/12/05 16:35:58 version 1.240.2.22, 2010/12/05 17:22:18
Line 743  ENDHEADER Line 743  ENDHEADER
         }          }
     }      }
     if ($custommenu) {      if ($custommenu) {
         if ($env{'form.destinationurl'} eq '/adm/gci_info') {          if ($env{'form.destinationurl'} eq '/adm/ci_info') {
             $r->print(&gci_info_page()).              $r->print(&ci_info_page()).
             &Apache::loncommon::end_page();              &Apache::loncommon::end_page();
             return OK;              return OK;
         }          }
Line 760  ENDHEADER Line 760  ENDHEADER
                   &Apache::loncommon::end_page());                    &Apache::loncommon::end_page());
         return OK;          return OK;
     } else {      } else {
         if ($env{'form.destinationurl'} eq '/adm/gci_info') {          if ($env{'form.destinationurl'} eq '/adm/ci_info') {
             delete($env{'form.destinationurl'});              delete($env{'form.destinationurl'});
         }          }
     }      }
Line 972  ENDHEADER Line 972  ENDHEADER
     return OK;      return OK;
 }  }
   
 sub gci_info_page {  sub ci_info_page {
     return <<"END";      my %longname = (
                        GCI  => 'Geoscience Concept Inventory',
                        SLCI => 'Science Literacy Concept Inventory',
                      );
       my $inventory = uc($env{'user.domain'});
       my %features = (
                        review => 'Review and comment on existing $inventory questions',
                        submit     => "Submit $inventory questions of your own",
                        managetest => 'Create an online test for your students',
                        tutorial   => 'View tutorials on creating online tests',
                      );
       my $tabs = &Apache::loncommon::ci_tabs($env{'user.domain'});
       my %info = (
                    GCI => '<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>.</p>',
                  ); 
       my $output = <<"END";
 <br clear="all">  <br clear="all">
 <div>  <div>
 <h2>Welcome to the Geoscience Concept Inventory WebCenter</h2>  <h2>Welcome to the $longname{$inventory} WebCenter</h2>
 <p>  <p>
 Use the tabs to navigate the WebCenter and...  Use the tabs to navigate the WebCenter and...
 <ul>  <ul>
 <li>Review and comment on existing GCI questions</li>  END
 <li>Submit GCI questions of your own</li>      if (ref($tabs) eq 'ARRAY') {
 <li>Create an online test for your students</li>          foreach my $tab (@{$tabs}) {
 <li>View tutorials on creating online tests</li>              if ($features{$tab}) {
                   $output .= '<li>'.$features{$tab}.'</li>'."\n";
               }
           }
       }
       $output .= <<"END";
 </ul>  </ul>
 </p>  </p>
 <p>For more information about writing and reviewing Concept Inventory questions  $info{$inventory}
 please refer to the <a href="/res/gci/gci/internal/pdfs/GCIWorkbook.pdf">GCI Workbook</a>.  
 </div>  </div>
 END  END
   
 }  }
   
 sub gather_roles {  sub gather_roles {
Removed from v.1.240.2.21  
changed lines
  Added in v.1.240.2.22

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>