# 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");
Development
of GCI v.1.0 was funded by NSF through grants DUE-0127765, DUE-0350395,
and DGE-9906479. The current project to revise and expand the GCI
is funded by NSF through grant DUE-0717790. We thank all GCI v.1.0
users who graciously provided constructive feedback and encouraged us
in this new initiative. Any opinions, findings, and conclusions or
recommendations expressed in this material are those of the author(s)
and do not necessarily reflect the views of the National Science Foundation.
ENDACK
}
$r->print(&Apache::loncommon::xml_begin().
''.
''.
''.$title.''.
''.
''.
'');
$r->print(<<"END");
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.
Contact Gerd Kortemeyer to comment on $uc_inventory WebCenter functionality.
Contact Julie Libarkin if you have additional questions or comments about the $uc_inventory.
