[Sandweb-commit] CVS: sandweb/lib/SandWeb UI.pm,1.33,1.34

[Rob H. <for...@us...>]

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;