Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv25899/lib/SandWeb
Modified Files:
UI.pm
Log Message:
ok, md5.js no longer needs to be on the docroot. kick ass!
Index: UI.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/UI.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -U2 -r1.33 -r1.34
--- UI.pm 10 Mar 2002 23:23:07 -0000 1.33
+++ UI.pm 12 Mar 2002 03:45:54 -0000 1.34
@@ -72,4 +72,5 @@
FOOTER => $footer,
CONTENT => $args{'CONTENT'},
+ JAVASCRIPT => $args{'JAVASCRIPT'},
MENU_BAR => $menu_bar,
DEBUG => \@debug_msgs,
@@ -110,4 +111,5 @@
MENU_TITLE => $args{'MENU_TITLE'},
CONTENT => $args{'CONTENT'},
+ JAVASCRIPT => $args{'JAVASCRIPT'},
PREVIOUS_URL => $args{'PREVIOUS_URL'},
DEBUG => \@debug_msgs,
@@ -152,4 +154,21 @@
# generate content data
my $tmp = HTML::Template->new(filename => "$template_dir/$menu.html");
+ $tmp->param( %args );
+ my @contents = $tmp->output;
+ return join('', @contents);
+}
+
+sub get_javascript {
+ my $self = shift;
+ my %args = @_;
+
+ my $template_dir = $self->_get_template_dir();
+ my $log = $self->_logobj();
+
+ my $script = $args{'SCRIPT'};
+ delete $args{'SCRIPT'};
+
+ # generate content data
+ my $tmp = HTML::Template->new(filename => "$template_dir/$script.js");
$tmp->param( %args );
my @contents = $tmp->output;
|
