[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.15,1.16 additem.pl,1.11,1.12 marcimport.pl,1.26,1.27

[Ambrose Li]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv18099

Modified Files:
	addbiblio.pl additem.pl marcimport.pl 
Log Message:
Handle non-latin1 charsets


Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** addbiblio.pl	23 Jan 2003 12:26:41 -0000	1.15
--- addbiblio.pl	26 Jan 2003 23:21:49 -0000	1.16
***************
*** 24,27 ****
--- 24,28 ----
  use C4::Auth;
  use C4::Output;
+ use C4::Charset;
  use C4::Biblio;
  use C4::Context;
***************
*** 306,308 ****
  							oldbiblioitemnumber => $oldbiblioitemnumber);
  }
! print $input->header(-cookie => $cookie),$template->output;
--- 307,312 ----
  							oldbiblioitemnumber => $oldbiblioitemnumber);
  }
! print $input->header(
!     -type => guesstype($template->output),
!     -cookie => $cookie
! ),$template->output;

Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** additem.pl	14 Jan 2003 16:45:33 -0000	1.11
--- additem.pl	26 Jan 2003 23:21:49 -0000	1.12
***************
*** 24,27 ****
--- 24,28 ----
  use C4::Auth;
  use C4::Output;
+ use C4::Charset;
  use C4::Biblio;
  use C4::Context;
***************
*** 251,253 ****
  						op => $nextop,
  						opisadd => ($nextop eq "saveitem")?0:1);
! print $input->header(-cookie => $cookie),$template->output;
--- 252,257 ----
  						op => $nextop,
  						opisadd => ($nextop eq "saveitem")?0:1);
! print $input->header(
!     -type => guesstype($template->output),
!     -cookie => $cookie
! ),$template->output;

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** marcimport.pl	23 Jan 2003 12:26:41 -0000	1.26
--- marcimport.pl	26 Jan 2003 23:21:49 -0000	1.27
***************
*** 37,40 ****
--- 37,41 ----
  use C4::Context;
  use C4::Output;
+ use C4::Charset;
  use C4::Input;
  use C4::Biblio;
***************
*** 151,155 ****
  }
  
! print "Content-Type: text/html\n\n",$template->output;
  my $menu;
  my $file;
--- 152,159 ----
  }
  
! print $input->header(
!     -type => guesstype($template->output),
!     -cookie => $cookie
! ),$template->output;
  my $menu;
  my $file;
***************
*** 807,810 ****
--- 811,817 ----
  # log cleared, as marcimport is (almost) rewritten from scratch.
  # $Log$
+ # Revision 1.27  2003/01/26 23:21:49  acli
+ # Handle non-latin1 charsets
+ #
  # Revision 1.26  2003/01/23 12:26:41  tipaul
  # upgrading import in breeding farm (you can now search on ISBN or on title) AND character encoding.