[Sandweb-commit] CVS: sandweb/lib/SandWeb UI.pm,1.27,1.28

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv25884/lib/SandWeb

Modified Files:
	UI.pm 
Log Message:
* this is a start on the javascript pop-up control stuff, i'll send more info about it to the -devel list


Index: UI.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/UI.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -U2 -r1.27 -r1.28
--- UI.pm	28 Feb 2002 04:36:12 -0000	1.27
+++ UI.pm	1 Mar 2002 08:10:12 -0000	1.28
@@ -61,4 +61,40 @@
 }
 
+sub print_popup {
+	my $self = shift;
+	my %args = @_;
+	my $template_dir = $self->_get_template_dir();
+	my $log = $self->_logobj();
+
+	my @debug_msgs = ();
+	my $message = '';
+	# set debug mesg if debug is toggled
+	if ($log->get_debug_toggle()) {
+		foreach my $debug_msg ($log->get_debug_msgs()) {
+			my %debug_content;
+			$debug_content{'DEBUG_MSG'} = "DEBUG: $debug_msg";
+			push @debug_msgs, \%debug_content;
+		}
+	}
+	if ($args{'MESSAGE'}) {
+		$message = "$args{'MESSAGE'}";
+	}
+
+	# incorporate content into framework template
+	my $output = HTML::Template->new(filename => "$template_dir/framework.html");
+	$output->param(
+		TITLE => $args{'TITLE'},
+		MENU_TITLE => $args{'MENU_TITLE'},
+		CONTENT => $args{'CONTENT'},
+		DEBUG => \@debug_msgs,
+		MESSAGE => $message,
+	);
+
+	# print output
+	print $output->output;
+
+	return 1;
+}
+
 sub get_menu_bar {
 	my $self = shift;