modules/gci/lonwelcome.pm - view

File: [LON-CAPA] / modules / gci / lonwelcome.pm
Revision 1.1: download - view: text, annotated - select for diffs
Sun Dec 5 17:49:20 2010 UTC (13 years, 4 months ago) by gci
Branches: MAIN
CVS tags: HEAD

- Customization for GCI_3.
  - Suport for multiple Concept Inventories.

1: # The LearningOnline Network 2: # Login Screen 3: # 4: # $Id: lonwelcome.pm,v 1.1 2010/12/05 17:49:20 gci Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: 29: package Apache::lonwelcome; 30: 31: use strict; 32: use Apache::Constants qw(:common); 33: use Apache::lonnet; 34: use Apache::loncommon(); 35: use Apache::lonlocal; 36: use lib '/home/httpd/lib/perl/'; 37: use LONCAPA; 38: use HTML::Entities(); 39: 40: sub handler { 41: my $r = shift; 42: 43: &Apache::loncommon::no_cache($r); 44: &Apache::lonlocal::get_language_handle($r); 45: &Apache::loncommon::content_type($r,'text/html'); 46: $r->send_http_header; 47: return OK if $r->header_only; 48: 49: my $domain = &Apache::lonnet::default_login_domain(); 50: my %longname = ( 51: GCI => 'Geoscience Concept Inventory', 52: SLCI => 'Science Literacy Concept Inventory', 53: ); 54: my %allnums = &Apache::loncommon::get_faculty_cnums(); 55: my ($inventory,$uc_inventory,$testdom); 56: if ($domain =~ /^(\w+ci)test$/) { 57: $inventory = $1; 58: $testdom = $domain; 59: } else { 60: $inventory = $domain; 61: $testdom = $domain.'test'; 62: } 63: $uc_inventory = uc($inventory); 64: my $css_url = "/css/$domain/portal.css"; 65: my $title = &mt('Welcome to the [_1] WebCenter',$uc_inventory); 66: 67: my $acknowledgements; 68: if ($domain eq 'gci') { 69: $acknowledgements = (<<"ENDACK"); 70: <font size="-2"><span style="font-family: Helvetica,Arial,sans-serif;">Development 71: of GCI v.1.0 was funded by NSF through grants DUE-0127765, DUE-0350395, 72: and DGE-9906479.<br />The current project to revise and expand the GCI 73: is funded by NSF through grant DUE-0717790.<br />We thank all GCI v.1.0 74: users who graciously provided constructive feedback and encouraged us 75: in this new initiative.<br />Any opinions, findings, and conclusions or 76: recommendations expressed in this material are those of the author(s) 77: <br />and do not necessarily reflect the views of the National Science Foundation.</span></font> 78: ENDACK 79: } 80: 81: $r->print(&Apache::loncommon::xml_begin(). 82: '<head>'. 83: '<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'. 84: '<title>'.$title.'</title>'. 85: '<link rel="stylesheet" type="text/css" href="'.$css_url.'" />'. 86: '</head>'. 87: '<body link="#4c748c" vlink="#4c748c" style="margin-top: 0" alink="#CC0000" bgcolor="#4c748c" text="#000000">'); 88: $r->print(<<"END"); 89: <br /> 90: <div align="center"> 91: <table class="LC_portalbox"> 92: <tr> 93: <td align="left" valign="top" width="11"> 94: <img name="login_r1_c1" src="/images/login/$domain/r1_c1.png" width="11" height="11" border="0" alt="" /> 95: </td> 96: <td width="450" valign="top"> 97: <table class="LC_portalbox_left"> 98: <tr> 99: <td width="411" align="left"><br /><img src="/images/login/$domain/logo_smrnd.png" width="411" height="51" alt="$uc_inventory" align="left" /></td> 100: </tr> 101: <tr> 102: <td> 103: <div align="left" style="display:block; margin-top:5px; margin-bottom:5px; margin-left:0px; margin-right:0px; width:440px; height:5px;"> 104: <div class="divider"> 105: </div> 106: </div> 107: </td> 108: </tr> 109: </table> 110: <table class="LC_portalbox_left"> 111: <tr> 112: <td height="10" colspan="4"> </td> 113: </tr> 114: <tr> 115: <td width="10"> </td> 116: <td valign="top" width="430" align="left"> 117: <span style="font-family: Helvetica,Arial,sans-serif;">The $longname{$uc_inventory} ($uc_inventory) is a assessment tool grounded in alternative conceptions research. The $uc_inventory can be used to diagnose or evaluate student conceptions for classroom or research purposes. 118: </span><br /><br /> 119: <table class="LC_login"> 120: <tr> 121: <td align="left" valign="top" width="11" height="11"><img src="/images/login/$domain/r2_c4.png" width="11" height="11" border="0" alt="" /></td> 122: <td> </td> 123: <td align="right" valign="top" width="11" height="11"><img src="/images/login/$domain/r2_c6.png" width="11" height="11" border="0" alt="" /></td> 124: </tr> 125: <tr> 126: <td> </td> 127: <td align="center" valign="middle"><span style="white-space: nowrap;"><a href="/adm/login" style="color: #ffffff">Log-in to $uc_inventory WebCenter</a></span></td> 128: <td> </td> 129: </tr> 130: <tr> 131: <td align="left" valign="bottom" width="11" height="11"><img src="/images/login/$domain/r8_c4.png" width="11" height="11" border="0" alt="" /></td> 132: <td> </td> 133: <td align="right" valign="bottom" width="11" height="11"><img src="/images/login/$domain/r8_c6.png" width="11" height="11" border="0" alt="" /></td> 134: </tr> 135: </table> 136: </td> 137: </tr> 138: </table> 139: </td> 140: <td align="right" valign="top" width="11"><img src="/images/login/$domain/r1_c7.png" width="11" height="11" border="0" alt="" /></td> 141: </tr> 142: <tr><td colspan="3"> </td></tr> 143: <tr> 144: <td colspan="3"> 145: <div align="left"> 146: <table border="0" cellspacing="0" cellpadding="0"> 147: <tr> 148: <td width="10"> </td> 149: <td><font size="-1"><span style="font-family: Helvetica,Arial,sans-serif;"> 150: Contact <a href="mailto:korte\@lite.msu.edu">Gerd Kortemeyer</a> to comment on $uc_inventory WebCenter functionality.<br /> 151: Contact <a href="mailto:libarkin\@msu.edu">Julie Libarkin</a> if you have additional questions or comments about the $uc_inventory.</span></font> 152: <br /> 153: <br /> 154: $acknowledgements 155: </td> 156: <td width="10"> </td> 157: </tr> 158: </table> 159: </div> 160: </td> 161: </tr> 162: <tr> 163: <td align="left" valign="bottom" width="11"><img src="/images/login/$domain/r9_c1.png" width="11" height="11" border="0" alt="" /></td> 164: <td width="450"> </td> 165: <td align="right" valign="bottom" width="11"><img src="/images/login/$domain/r9_c7.png" width="11" height="11" border="0" alt="" /></td> 166: </tr> 167: </table> 168: </div> 169: <br clear="all" /> 170: <br /> 171: </body> 172: </html> 173: 174: END 175: return OK; 176: } 177: 178: 1;