[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.8,1.9 systempreferences.pl,1.9,1.10

[Ambrose Li]

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

Modified Files:
        marc_subfields_structure.pl systempreferences.pl 
Log Message:
Preliminary fix of the CGI.pm problem of always assuming that everything is
in ISO-8859-1.

A new C4::Charset module (tentative name) has been created to guess the
charset of a piece of HTML markup. The CGI programs will be modified to use
this module as they are encountered during translation.


Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** marc_subfields_structure.pl 18 Dec 2002 10:45:48 -0000      1.8
--- marc_subfields_structure.pl 19 Jan 2003 06:15:44 -0000      1.9
***************
*** 21,24 ****
--- 21,25 ----
  use strict;
  use C4::Output;
+ use C4::Charset;
  use C4::Auth;
  use CGI;
***************
*** 347,349 ****
  } #---- END $OP eq DEFAULT
  
! print $input->header(-cookie => $cookie), $template->output;
--- 348,353 ----
  } #---- END $OP eq DEFAULT
  
! print $input->header(
!     -type => guesstype($template->output),
!     -cookie => $cookie
! ), $template->output;

Index: systempreferences.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/systempreferences.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** systempreferences.pl        10 Dec 2002 17:35:54 -0000      1.9
--- systempreferences.pl        19 Jan 2003 06:15:44 -0000      1.10
***************
*** 43,46 ****
--- 43,47 ----
  use C4::Context;
  use C4::Output;
+ use C4::Charset;
  use C4::Search;
  use HTML::Template;
***************
*** 185,187 ****
  } #---- END $OP eq DEFAULT
  
! print $input->header(-cookie => $cookie), $template->output;
--- 186,191 ----
  } #---- END $OP eq DEFAULT
  
! print $input->header(
!     -type => guesstype($template->output),
!     -cookie => $cookie
! ), $template->output;