[BACK]Return to lonwelcome.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / modules / gci
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.

# The LearningOnline Network
# Login Screen
#
# $Id: lonwelcome.pm,v 1.1 2010/12/05 17:49:20 gci Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#

package Apache::lonwelcome;

use strict;
use Apache::Constants qw(:common);
use Apache::lonnet;
use Apache::loncommon();
use Apache::lonlocal;
use lib '/home/httpd/lib/perl/';
use LONCAPA;
use HTML::Entities();

sub handler {
    my $r = shift;

    &Apache::loncommon::no_cache($r);
    &Apache::lonlocal::get_language_handle($r);
    &Apache::loncommon::content_type($r,'text/html');
    $r->send_http_header;
    return OK if $r->header_only;

    my $domain = &Apache::lonnet::default_login_domain();
    my %longname = (
                     GCI  => 'Geoscience Concept Inventory',
                     SLCI => 'Science Literacy Concept Inventory',
                   );
    my %allnums = &Apache::loncommon::get_faculty_cnums();
    my ($inventory,$uc_inventory,$testdom);
    if ($domain =~ /^(\w+ci)test$/) {
        $inventory = $1;
        $testdom = $domain;
    } else {
        $inventory = $domain;
        $testdom = $domain.'test';
    }
    $uc_inventory = uc($inventory);
    my $css_url = "/css/$domain/portal.css";
    my $title = &mt('Welcome to the [_1] WebCenter',$uc_inventory);

    my $acknowledgements;
    if ($domain eq 'gci') {
        $acknowledgements = (<<"ENDACK");
<font size="-2"><span style="font-family: Helvetica,Arial,sans-serif;">Development
      of GCI v.1.0 was funded by NSF through grants DUE-0127765, DUE-0350395,
      and DGE-9906479.<br />The current project to revise and expand the GCI
      is funded by NSF through grant DUE-0717790.<br />We thank all GCI v.1.0
      users who graciously provided constructive feedback and encouraged us
      in this new initiative.<br />Any opinions, findings, and conclusions or
      recommendations expressed in this material are those of the author(s)
      <br />and do not necessarily reflect the views of the National Science Foundation.</span></font>
ENDACK
    }

    $r->print(&Apache::loncommon::xml_begin().
                 '<head>'.
                 '<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'.
                 '<title>'.$title.'</title>'.
                 '<link rel="stylesheet" type="text/css" href="'.$css_url.'" />'.
                 '</head>'.
                 '<body link="#4c748c" vlink="#4c748c"  style="margin-top: 0" alink="#CC0000"  bgcolor="#4c748c" text="#000000">');
    $r->print(<<"END");
<br />
<div align="center">
<table class="LC_portalbox">
  <tr>
    <td align="left" valign="top" width="11">
     <img name="login_r1_c1" src="/images/login/$domain/r1_c1.png" width="11" height="11" border="0" alt="" />
    </td>
    <td width="450" valign="top">
      <table class="LC_portalbox_left">
        <tr>
          <td width="411" align="left"><br /><img src="/images/login/$domain/logo_smrnd.png" width="411" height="51" alt="$uc_inventory" align="left" /></td>
        </tr>
        <tr>
         <td>
          <div align="left" style="display:block; margin-top:5px; margin-bottom:5px; margin-left:0px; margin-right:0px; width:440px; height:5px;">
           <div class="divider">
            </div>
          </div>
        </td>
       </tr>
      </table>
      <table class="LC_portalbox_left">
       <tr>
        <td height="10" colspan="4">&nbsp;</td>
       </tr>
       <tr>
        <td width="10">&nbsp;</td>
        <td valign="top" width="430" align="left">
        <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.
</span><br /><br />
         <table class="LC_login">
           <tr>
             <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>
             <td>&nbsp;</td>
             <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>
           </tr>
           <tr>
             <td>&nbsp;</td>
             <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>
             <td>&nbsp;</td>
           </tr>
           <tr>
             <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>
             <td>&nbsp;</td>
             <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>
           </tr>
         </table>
        </td>
       </tr>
      </table>
    </td>
    <td align="right" valign="top" width="11"><img src="/images/login/$domain/r1_c7.png" width="11" height="11" border="0" alt="" /></td>
  </tr>
  <tr><td colspan="3">&nbsp;</td></tr>
  <tr>
    <td colspan="3">
      <div align="left">
      <table border="0" cellspacing="0" cellpadding="0">
        <tr>
         <td width="10">&nbsp;</td>
         <td><font size="-1"><span style="font-family: Helvetica,Arial,sans-serif;">
Contact <a href="mailto:korte\@lite.msu.edu">Gerd Kortemeyer</a> to comment on $uc_inventory WebCenter functionality.<br />
    Contact <a href="mailto:libarkin\@msu.edu">Julie Libarkin</a> if you have additional questions or comments about the $uc_inventory.</span></font>
<br />
<br />
$acknowledgements
         </td>
         <td width="10">&nbsp;</td>
       </tr>
     </table>
     </div>
   </td>
  </tr>
  <tr>
    <td align="left" valign="bottom" width="11"><img src="/images/login/$domain/r9_c1.png" width="11" height="11" border="0" alt="" /></td>
    <td width="450">&nbsp;</td>
    <td align="right" valign="bottom" width="11"><img src="/images/login/$domain/r9_c7.png" width="11" height="11" border="0" alt="" /></td>
  </tr>
</table>
</div>
<br clear="all" />
<br />
</body>
</html>

END
    return OK;
}

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