[Koha-cvs] koha/C4 Auth.pm

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Joshua Ferraro <kados>  07/07/03 04:39:03

Modified files:
        C4             : Auth.pm 

Log message:
        adding a warn to log why we're redirecting to installer

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Auth.pm?cvsroot=koha&r1=1.64&r2=1.65

Patches:
Index: Auth.pm
===================================================================
RCS file: /sources/koha/koha/C4/Auth.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -b -r1.64 -r1.65
--- Auth.pm     26 Jun 2007 14:30:22 -0000      1.64
+++ Auth.pm     3 Jul 2007 04:39:03 -0000       1.65
@@ -36,7 +36,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.64 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.65 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -339,6 +339,7 @@
 
     my $dbh     = C4::Context->dbh;
     unless (C4::Context->preference('Version')){
+      warn "No Version string in sysprefs, redirecting to Installer";
       print $query->redirect("/cgi-bin/koha/installer/install.pl");
       exit;
     }