Minimale Erweiterung um PlainTextTemplate, um Variablen in Strings leicht ersetzen...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 30 May 2007 09:58:11 +0000 (09:58 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 30 May 2007 09:58:11 +0000 (09:58 +0000)
SL/Template.pm

index e4e940b..8693580 100644 (file)
@@ -616,6 +616,37 @@ sub convert_to_pdf {
 }
 
 
+####
+#### PlainTextTemplate
+####
+
+package PlainTextTemplate;
+
+use vars qw(@ISA);
+
+@ISA = qw(LaTeXTemplate);
+
+sub new {
+  my $type = shift;
+
+  return $type->SUPER::new(@_);
+}
+
+sub format_string {
+  my ($self, $variable) = @_;
+
+  return $variable;
+}
+
+sub get_mime_type {
+  return "text/plain";
+}
+
+sub parse {
+}
+
+1;
+
 ####
 #### OpenDocumentTemplate
 ####