From 607b2bfb8f6d81320da00c96cb3f038fbdd24464 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Thu, 10 Nov 2005 11:23:47 +0000
Subject: fatto stile per la lista di link, messo il JS in file

TODO:
 * search box nella lista tag e links (con auto-complete?)
 * stile delle form
---
 lib/Bookmarks/C/Main.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib')

diff --git a/lib/Bookmarks/C/Main.pm b/lib/Bookmarks/C/Main.pm
index b272c64..1e2bf54 100644
--- a/lib/Bookmarks/C/Main.pm
+++ b/lib/Bookmarks/C/Main.pm
@@ -265,4 +265,18 @@ sub tag_autocomplete {
     )->as_string();
 }
 
+sub js_library {
+    my ($self)=@_;
+
+    my $ret='';
+    for my $file (qw(prototype scriptaculous)) {
+        $ret.=sprintf(q{<script type="text/javascript" src="%s" ></script>},
+                      URI->new(
+                          $self->{base} . "js/$file.js"
+                      )->as_string()
+                  );
+    }
+    return $ret;
+}
+
 1;
-- 
cgit v1.2.3