Commit bc007848 authored by Xavier Guimard's avatar Xavier Guimard

LEMONLDAP::NG : little error in v0.8 upload


git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/trunk@64 1dbb9719-a921-0410-b57f-c3a383c2c641
parent 028dfe7a
......@@ -14,7 +14,6 @@ META.yml Module meta-data (added by MakeMaker)
README
t/Lemonldap-NG-Handler-CDA.t
t/Lemonldap-NG-Handler-Proxy.t
t/Lemonldap-NG-Handler-SharedConf-DBI.t
t/Lemonldap-NG-Handler-SharedConf.t
t/Lemonldap-NG-Handler-Simple.t
t/Lemonldap-NG-Handler-Vhost.t
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Handler-SharedConf.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 1;
BEGIN { use_ok('Lemonldap::NG::Handler::SharedConf::DBI') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
......@@ -72,8 +72,7 @@ sub print_css {
sub print_libjs {
my $self = shift;
print $self->header( $self->{jsFile},
-type => 'application/x-javascript' );
print $self->header_public( $self->{jsFile}, -type => 'application/x-javascript' );
open F, $self->{jsFile};
while (<F>) {
print;
......@@ -83,8 +82,7 @@ sub print_libjs {
sub print_lmjs {
my $self = shift;
print $self->header(
-type => 'text/javascript' );
print $self->header_public( $ENV{SCRIPT_FILENAME}, -type => 'text/javascript' );
$self->javascript;
}
......
......@@ -16,6 +16,5 @@ README
t/Lemonldap-NG-Portal-AuthCAS.t
t/Lemonldap-NG-Portal-AuthSSL.t
t/Lemonldap-NG-Portal-CDA.t
t/Lemonldap-NG-Portal-SharedConf-DBI.t
t/Lemonldap-NG-Portal-SharedConf.t
t/Lemonldap-NG-Portal-Simple.t
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Portal-SharedConf-DBI.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More tests => 1;
BEGIN { use_ok('Lemonldap::NG::Portal::SharedConf::DBI') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment