--- branches/no-pager/lib/Frey/Web.pm	2008/12/06 16:35:43	741
+++ branches/no-pager/lib/Frey/Web.pm	2008/12/06 17:16:12	742
@@ -184,6 +184,17 @@
 	| );
 }
 
+sub add_js {
+	my ($self,$css) = @_;
+	my ( $package, $path, $line ) = caller;
+	$self->add_head( qq|
+	<script type="text/javascript">
+	/* via $package at $path line $line */
+	$css
+	</script>
+	| );
+}
+
 our $reload_counter = 0;