- }
-
- unless ($epath) {
- warn "Could not find $template in @tmpldirs";
- return 0;
- }
-
- if ($language eq $elanguage) {
- $returns{'foundlanguage'} = 1;
- } else {
- $returns{'foundlanguage'} = 0;
- warn "The language $language could not be found for $template of $theme.\nServing $elanguage instead.\n";
- }
- if ($theme eq $etheme) {
- $returns{'foundtheme'} = 1;
- } else {
- $returns{'foundtheme'} = 0;
- warn "The template $template could not be found for theme $theme.\nServing $template of $etheme instead.\n";
- }
-
- $returns{'path'} = $epath;
-
- return (%returns);
-}
-
-=item getlanguageorder
-
- @languages = &getlanguageorder();
-
-Returns the list of languages that the user will accept, and returns
-them in order of decreasing preference. This is retrieved from the
-browser's headers, if possible; otherwise, C<&getlanguageorder> uses
-the C<languageorder> setting from the C<systempreferences> table in
-the Koha database. If neither is set, it defaults to C<en> (English).
-
-=cut
-#'
-sub getlanguageorder () {
- my @languageorder;
-
- if ($ENV{'HTTP_ACCEPT_LANGUAGE'}) {
- @languageorder = split (/\s*,\s*/ ,lc($ENV{'HTTP_ACCEPT_LANGUAGE'}));
- } elsif (my $order = C4::Context->preference("languageorder")) {
- @languageorder = split (/\s*,\s*/ ,lc($order));
- } else { # here should be another elsif checking for apache's languageorder
- @languageorder = ('en');
- }
-
- return (@languageorder);
-}
-
-=item startpage
-
- $str = &startpage();
- print $str;
-
-Returns a string of HTML, the beginning of a new HTML document.
-
-=cut
-#'
-sub startpage() {
- return("<html>\n");
-}
-
-=item gotopage
-
- $str = &gotopage("//opac.koha.org/index.html");
- print $str;
-
-Generates a snippet of HTML code that will redirect to the given URL
-(which should not include the initial C<http:>), and returns it.
-
-=cut
-#'
-sub gotopage($) {
- my ($target) = shift;
- #print "<br>goto target = $target<br>";
- my $string = "<META HTTP-EQUIV=Refresh CONTENT=\"0;URL=http:$target\">";
- return $string;
-}
-
-=item startmenu
-
- @lines = &startmenu($type);
- print join("", @lines);
-
-Given a page type, or category, returns a set of lines of HTML which,
-when concatenated, generate the menu at the top of the web page.
-
-C<$type> may be one of C<issue>, C<opac>, C<member>, C<acquisitions>,
-C<report>, C<circulation>, or something else, in which case the menu
-will be for the catalog pages.
-
-=cut
-#'
-sub startmenu($) {
- # edit the paths in here
- my ($type)=shift;
- if ($type eq 'issue') {
- open (FILE,"$path/issues-top.inc") || die "could not find : $path/issues-top.inc";
- } elsif ($type eq 'opac') {
- open (FILE,"$path/opac-top.inc") || die "could not find : $path/opac-top.inc";
- } elsif ($type eq 'member') {
- open (FILE,"$path/members-top.inc") || die "could not find : $path/members-top.inc";
- } elsif ($type eq 'acquisitions'){
- open (FILE,"$path/acquisitions-top.inc") || die "could not find : $path/acquisition-top.inc";
- } elsif ($type eq 'report'){
- open (FILE,"$path/reports-top.inc") || die "could not find : $path/reports-top.inc";
- } elsif ($type eq 'circulation') {
- open (FILE,"$path/circulation-top.inc") || die "could not find : $path/circulation-top.inc";
- } elsif ($type eq 'admin') {
- open (FILE,"$path/parameters-top.inc") || die "could not find : $path/parameters-top.inc";
- } else {
- open (FILE,"$path/cat-top.inc") || die "could not find : $path/cat-top.inc";
- }
- my @string=<FILE>;
- close FILE;
- # my $count=@string;
- # $string[$count]="<BLOCKQUOTE>";
- return @string;
-}
-
-=item endmenu
-
- @lines = &endmenu($type);
- print join("", @lines);
-
-Given a page type, or category, returns a set of lines of HTML which,
-when concatenated, generate the menu at the bottom of the web page.
-
-C<$type> may be one of C<issue>, C<opac>, C<member>, C<acquisitions>,
-C<report>, C<circulation>, or something else, in which case the menu
-will be for the catalog pages.
-
-=cut
-#'
-sub endmenu {
- my ($type) = @_;
- if ( ! defined $type ) { $type=''; }
- # FIXME - It's bad form to die in a CGI script. It's even worse form
- # to die without issuing an error message.
- if ($type eq 'issue') {
- open (FILE,"<$path/issues-bottom.inc") || die;
- } elsif ($type eq 'opac') {
- open (FILE,"<$path/opac-bottom.inc") || die;
- } elsif ($type eq 'member') {
- open (FILE,"<$path/members-bottom.inc") || die;
- } elsif ($type eq 'acquisitions') {
- open (FILE,"<$path/acquisitions-bottom.inc") || die;
- } elsif ($type eq 'report') {
- open (FILE,"<$path/reports-bottom.inc") || die;
- } elsif ($type eq 'circulation') {
- open (FILE,"<$path/circulation-bottom.inc") || die;
- } elsif ($type eq 'admin') {
- open (FILE,"<$path/parameters-bottom.inc") || die;
- } else {
- open (FILE,"<$path/cat-bottom.inc") || die;
- }
- my @string=<FILE>;
- close FILE;
- return @string;
-}
-
-=item mktablehdr
-
- $str = &mktablehdr();
- print $str;
-
-Returns a string of HTML, which generates the beginning of a table
-declaration.
-
-=cut
-#'
-sub mktablehdr() {
- return("<table border=0 cellspacing=0 cellpadding=5>\n");
-}
-
-=item mktablerow
-
- $str = &mktablerow($columns, $color, @column_data, $bgimage);
- print $str;
-
-Returns a string of HTML, which generates a row of data inside a table
-(see also C<&mktablehdr>, C<&mktableft>).
-
-C<$columns> specifies the number of columns in this row of data.
-
-C<$color> specifies the background color for the row, e.g., C<"white">
-or C<"#ffacac">.
-
-C<@column_data> is an array of C<$columns> elements, each one a string
-of HTML. These are the contents of the row.