koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha loadmodules.pl,1.6,1.7


From: Paul POULAIN
Subject: [Koha-cvs] CVS: koha loadmodules.pl,1.6,1.7
Date: Tue, 22 Oct 2002 08:51:27 -0700

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv31691

Modified Files:
        loadmodules.pl 
Log Message:
small fixes

Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** loadmodules.pl      16 Oct 2002 08:33:56 -0000      1.6
--- loadmodules.pl      22 Oct 2002 15:51:25 -0000      1.7
***************
*** 30,40 ****
  
  SWITCH: {
!     if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
!     if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
  }
  
  
  sub acquisitions {
!     my $aq_type = C4::Context->preference("acquisitions") || "normal";
                # Get the acquisition preference. This should be:
                #       "simple" - minimal information required
--- 30,40 ----
  
  SWITCH: {
!       if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
!       if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
  }
  
  
  sub acquisitions {
!       my $aq_type = C4::Context->preference("acquisitions") || "normal";
                # Get the acquisition preference. This should be:
                #       "simple" - minimal information required
***************
*** 42,52 ****
                #       other - Same as "normal"
  
!     if ($aq_type eq 'simple') {
!       print $input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
!     } elsif ($aq_type eq 'normal') {
!       print $input ->redirect("/acquisitions");
!     } else {
!       print $input ->redirect("/acquisitions");
!     }
  }
  
--- 42,52 ----
                #       other - Same as "normal"
  
!       if ($aq_type eq 'simple') {
!               print 
$input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
!       } elsif ($aq_type eq 'normal') {
!               print $input ->redirect("/acquisitions");
!       } else {
!               print $input ->redirect("/acquisitions");
!       }
  }
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]