[Koha-cvs] CVS: koha/misc Install.pm,1.45,1.46

[MJ Ray]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv25059

Modified Files:
	Install.pm 
Log Message:
Adding test for Event module

Index: Install.pm
===================================================================
RCS file: /cvsroot/koha/koha/misc/Install.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -r1.45 -r1.46
*** Install.pm	9 Jul 2003 01:21:23 -0000	1.45
--- Install.pm	14 Jul 2003 23:15:55 -0000	1.46
***************
*** 695,703 ****
      unless (eval {require MARC::Record})     { push @missing,"MARC::Record" };
      unless (eval {require Mail::Sendmail})   { push @missing,"Mail::Sendmail" };
      unless (eval {require Net::Z3950})       {
  	showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
! 	if ($#missing>=0) { # XXX why only when $#missing >= 0?
! 	    push @missing, "Net::Z3950";
! 	}
      }
  
--- 695,708 ----
      unless (eval {require MARC::Record})     { push @missing,"MARC::Record" };
      unless (eval {require Mail::Sendmail})   { push @missing,"Mail::Sendmail" };
+     unless (eval {require Event})       {
+ 		if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
+ 		    push @missing, "Event";
+ 		}
+     }
      unless (eval {require Net::Z3950})       {
  	showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
! 		if ($#missing>=0) { # see above note
! 		    push @missing, "Net::Z3950";
! 		}
      }