view release on metacpan or  search on metacpan

lib/App/Office/Contacts/Import/vCards/Controller/Initialize.pm  view on Meta::CPAN

tab_set.addTab(import_tab);
import_tab.addListener('click', make_vfile_name_focus);

about_tab = new YAHOO.widget.Tab
({
	label: "About",
	content: '$about'
});
tab_set.addTab(about_tab);

// Add tab set to document.

tab_set.appendTo("container");

make_vfile_name_focus();
EJS

	return $head_init;

} # End of build_head_init.

# -----------------------------------------------

sub build_head_js
{
	my($self) = @_;

	$self -> log(debug => 'Entered build_head_js');

	my($import_vcards_js) = $self -> param('view') -> viewer -> build_import_vcards_js;

	# These things are being declared globally within the web page.

	my($head_js) = <<EJS;
$import_vcards_js

function make_vfile_name_focus(eve)
{
	document.import_vcards_form.vfile_name.focus();
}

var tab_set = new YAHOO.widget.TabView();

var about_tab;
var import_tab;
EJS

	return $head_js;

} # End of build_head_js.

# -----------------------------------------------

sub display
{
	my($self)        = @_;
	my($cookie_name) = 'import_vcards';

	$self -> log(debug => 'Entered display');

	return 'Invalid cookie digest' if ($self -> validate_post($cookie_name) == 0);

	$self -> generate_cookie($cookie_name);

	return $self -> build_web_page;

} # End of display.

# -----------------------------------------------

1;