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

[Paul POULAIN]

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