[Koha-cvs] CVS: koha/C4 Output.pm,1.6.2.17,1.6.2.18

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv28732/C4

Modified Files:
      Tag: rel-1-2
        Output.pm 
Log Message:

added a gettemplate routine that does all the template intialisation and 
theme/lang stuff...


Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.6.2.17
retrieving revision 1.6.2.18
diff -C2 -r1.6.2.17 -r1.6.2.18
*** Output.pm   11 Sep 2002 03:55:30 -0000      1.6.2.17
--- Output.pm   12 Sep 2002 04:22:35 -0000      1.6.2.18
***************
*** 28,31 ****
--- 28,32 ----
  require Exporter;
  
+ use HTML::Template;
  use C4::Database;
  use C4::Koha;
***************
*** 44,48 ****
             &gotopage &mkformnotable &mkform3
             &getkeytableselectoptions
!            &picktemplate &themelanguage
  );
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
--- 45,49 ----
             &gotopage &mkformnotable &mkform3
             &getkeytableselectoptions
!            &picktemplate &themelanguage &gettemplate
  );
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
***************
*** 79,82 ****
--- 80,103 ----
  
  # make all your functions, whether exported or not;
+ 
+ sub gettemplate {
+     my ($tmplbase, $opac) = @_;
+ 
+     my $htdocs;
+     if ($opac) {
+       $htdocs = $configfile->{'opachtdocs'};
+     } else {
+       $htdocs = $configfile->{'intrahtdocs'};
+     }
+ 
+     my ($theme, $lang) = themelanguage($htdocs, $tmplbase);
+ 
+     my $template = HTML::Template->new(filename          => 
"$htdocs/$theme/$lang/$tmplbase", 
+                                  die_on_bad_params => 0, 
+                                  path              => 
["$htdocs/$theme/$lang/includes"]);
+ 
+     $template->param(themelang => "/$theme/$lang");
+     return $template;
+ }
  
  sub picktemplate {