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;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>