Annotation of modules/gci/lonwelcome.pm, revision 1.1
1.1 ! gci 1: # The LearningOnline Network
! 2: # Login Screen
! 3: #
! 4: # $Id: lonwelcome.pm,v 1.1 2010/12/5 02:00:00 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>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonwelcome.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / modules / gci