[Koha-cvs] CVS: koha/admin koha2marclinks.pl,1.4,1.5 marctagstructure.pl,1.11,1.12 thesaurus.pl,1.5,1.6

[Ambrose Li]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv13385/admin

Modified Files:
        koha2marclinks.pl marctagstructure.pl thesaurus.pl 
Log Message:
Handle meta tags for non-latin1 charsets


Index: koha2marclinks.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/koha2marclinks.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** koha2marclinks.pl   10 Dec 2002 17:35:53 -0000      1.4
--- koha2marclinks.pl   20 Jan 2003 07:39:27 -0000      1.5
***************
*** 21,24 ****
--- 21,25 ----
  use strict;
  use C4::Output;
+ use C4::Charset;
  use C4::Auth;
  use CGI;
***************
*** 136,138 ****
  } #---- END $OP eq DEFAULT
  
! print $input->header(-cookie => $cookie), $template->output;
--- 137,142 ----
  } #---- END $OP eq DEFAULT
  
! print $input->header(
!     -type => guesstype($template->output),
!     -cookie => $cookie
! ), $template->output;

Index: marctagstructure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marctagstructure.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** marctagstructure.pl 18 Dec 2002 10:56:41 -0000      1.11
--- marctagstructure.pl 20 Jan 2003 07:39:28 -0000      1.12
***************
*** 24,27 ****
--- 24,28 ----
  use C4::Context;
  use C4::Output;
+ use C4::Charset;
  use C4::Search;
  use C4::Context;
***************
*** 197,199 ****
  
  $template->param(loggeninuser => $loggedinuser);
! print $input->header(-cookie => $cookie), $template->output;
--- 198,203 ----
  
  $template->param(loggeninuser => $loggedinuser);
! print $input->header(
!     -type => guesstype($template->output),
!     -cookie => $cookie
! ), $template->output;

Index: thesaurus.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/thesaurus.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** thesaurus.pl        10 Dec 2002 17:35:56 -0000      1.5
--- thesaurus.pl        20 Jan 2003 07:39:28 -0000      1.6
***************
*** 21,29 ****
  use CGI;
  use C4::Auth;
  use C4::Context;
  use C4::Output;
  use C4::Search;
  use HTML::Template;
- use C4::Context;
  use C4::Authorities;
  
--- 21,29 ----
  use CGI;
  use C4::Auth;
+ use C4::Charset;
  use C4::Context;
  use C4::Output;
  use C4::Search;
  use HTML::Template;
  use C4::Authorities;
  
***************
*** 257,259 ****
  } #---- END $OP eq DEFAULT
  
! print $input->header(-cookie => $cookie), $template->output;
--- 257,262 ----
  } #---- END $OP eq DEFAULT
  
! print $input->header(
!     -type => guesstype($template->output),
!     -cookie => $cookie
! ), $template->output;