X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/11e4b8f332482c1becab9e099181b7cf44b88b09..62ba378c53a7ead8c5e99ef965d79d7368216b88:/SL/Template/Plugin/L.pm

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index 710f1c923..d9fd3c1f5 100644
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -203,6 +203,19 @@ sub date_tag {
   $self->javascript(
     "Calendar.setup({ inputField: '$name_e', ifFormat: '$::myconfig{jsc_dateformat}', align: '$params{cal_align}', button: 'trigger$seq'  });"
   ) : '');
+
+sub javascript_tag {
+  my $self = shift;
+  my $code = '';
+
+  foreach my $file (@_) {
+    $file .= '.js'        unless $file =~ m/\.js$/;
+    $file  = "js/${file}" unless $file =~ m|/|;
+
+    $code .= qq|<script type="text/javascript" src="${file}"></script>|;
+  }
+
+  return $code;
 }
 
 1;
@@ -310,6 +323,13 @@ If C<%attributes> contains a key C<label> then a HTML 'label' tag is
 created with said C<label>. No attribute named C<label> is created in
 that case.
 
+=item C<javascript_tag $file1, $file2, $file3...>
+
+Creates a HTML 'E<lt>script type="text/javascript" src="..."E<gt>'
+tag for each file name parameter passed. Each file name will be
+postfixed with '.js' if it isn't already and prefixed with 'js/' if it
+doesn't contain a slash.
+
 =back
 
 =head2 CONVERSION FUNCTIONS