[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";
!               }
      }