From 8697313a9754a900919e4b8f02f72d5ee2087433 Mon Sep 17 00:00:00 2001 From: hdl Date: Tue, 24 Apr 2007 13:58:11 +0000 Subject: [PATCH] Deleting Interface/CGI/ Output and Template modules. --- C4/Interface/CGI/Output.pm | 128 ----------------------------------- C4/Interface/CGI/Template.pm | 90 ------------------------ 2 files changed, 218 deletions(-) delete mode 100644 C4/Interface/CGI/Output.pm delete mode 100644 C4/Interface/CGI/Template.pm diff --git a/C4/Interface/CGI/Output.pm b/C4/Interface/CGI/Output.pm deleted file mode 100644 index fad75ce48b..0000000000 --- a/C4/Interface/CGI/Output.pm +++ /dev/null @@ -1,128 +0,0 @@ -package C4::Interface::CGI::Output; - -# $Id$ - -#package to work around problems in HTTP headers -# Note: This is just a utility module; it should not be instantiated. - - -# Copyright 2003 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -use strict; -require Exporter; - -use vars qw($VERSION @ISA @EXPORT); - -# set the version for version checking -$VERSION = 0.01; - -=head1 NAME - -C4::CGI::Output - Convenience functions for handling outputting HTML pages - -=head1 SYNOPSIS - - use C4::CGI::Output; - - print $query->header(-type => C4::CGI::Output::gettype($output)), $output; - -=head1 DESCRIPTION - -The functions in this module peek into a piece of HTML and return strings -related to the (guessed) charset. - -=head1 FUNCTIONS - -=over 2 - -=cut - -@ISA = qw(Exporter); -@EXPORT = qw( - &guesscharset - &guesstype - &output_html_with_http_headers - ); - -=item guesscharset - - &guesscharset($output) - -"Guesses" the charset from the some HTML that would be output. - -C<$output> is the HTML page to be output. If it contains a META tag -with a Content-Type, the tag will be scanned for a language code. -This code is returned if it is found; undef is returned otherwise. - -This function only does sloppy guessing; it will be confused by -unexpected things like SGML comments. What it basically does is to -grab something that looks like a META tag and scan it. - -=cut - -sub guesscharset ($) { - my($html) = @_; - my $charset = undef; - local($`, $&, $', $1, $2, $3); - # FIXME... These regular expressions will miss a lot of valid tags! - if ($html =~ //is) { - $charset = $3; - } elsif ($html =~ //is) { - $charset = $2; - } - return $charset; -} # guess - -sub guesstype ($) { - my($html) = @_; - my $charset = guesscharset($html); - return defined $charset? "text/html; charset=$charset": "text/html"; -} - -=item output_html_with_http_headers - - &output_html_with_http_headers($query, $cookie, $html) - -Outputs the HTML page $html with the appropriate HTTP headers, -with the authentication cookie $cookie and a Content-Type that -corresponds to the HTML page $html. - -=cut - -sub output_html_with_http_headers ($$$) { - my($query, $cookie, $html) = @_; - print $query->header( - -type => guesstype($html), - -cookie => $cookie, - ), $html; -} - -#--------------------------------- - -END { } # module clean-up code here (global destructor) - -1; -__END__ - -=back - -=head1 AUTHOR - -Koha Developement team - -=cut diff --git a/C4/Interface/CGI/Template.pm b/C4/Interface/CGI/Template.pm deleted file mode 100644 index 74bea2f45f..0000000000 --- a/C4/Interface/CGI/Template.pm +++ /dev/null @@ -1,90 +0,0 @@ -package C4::Interface::CGI::Template; - -# $Id$ - -# convenience package for HTML templating -# Note: This is just a utility module; it should not be instantiated. - - -# Copyright 2003 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -use strict; -require Exporter; - -use vars qw($VERSION @ISA @EXPORT); - -# set the version for version checking -$VERSION = 0.01; - -=head1 NAME - -C4::Members - Convenience functions for using HTML::Template - -=head1 SYNOPSIS - - use C4::Interface::HTML::Template; - -=head1 DESCRIPTION - -The functions in this module peek into a piece of HTML and return strings -related to the (guessed) charset. - -=head1 FUNCTIONS - -=over 2 - -=cut - -@ISA = qw(Exporter); -@EXPORT = qw( - &expand_sex_into_predicate - ); - -=item expand_sex_into_predicate - - $data{&expand_sex_into_predicate($data{sex})} = 1; - -Converts a single 'M' or 'F' into 'sex_M_p' or 'sex_F_p' -respectively. - -In some languages, 'M' and 'F' are not appropriate. However, -with HTML::Template, there is no way to localize 'M' or 'F' -unless these are converted into variables that TMPL_IF can -understand. This function provides this conversion. - -=cut - -sub expand_sex_into_predicate ($) { - my($sex) = @_; - return "sex_${sex}_p"; -} # expand_sex_into_predicate - -#--------------------------------- - -END { } # module clean-up code here (global destructor) - -1; -__END__ - -=back - -=head1 AUTHOR - -Koha Developement team - -=cut -- 2.20.1