## OpenCA - CA Command
## (c) 2001 by Michael Bell and OpenCA Group
##
##   File Name: show_prepared_module
##       Brief: show a special module
## Description: show a special module and a button to add/delete the module
##  Parameters: module, next_cmd

sub cmdShow_prepared_module {

	## Get required parameters ( return only the value string )
	my $sheet    = getRequired( 'ShowPreparedModuleSheet' );

	my @cols;
	my $page;

	## Get the base Page ( got in $page variable )
	if( not $page = $query->getFile( "$sheet" ) ) {
		configError ( i18nGettext ("File not Found : __SHEET__", "__SHEET__", $sheet) );
	};

	my $module = $query->param ('module');

	my $data = "<input type=hidden name=module value=\"".$module."\">\n";

	if ( $query->param ('next_cmd') =~ /^delete$/i ) {
		$data .= "<input type=hidden name=cmd value=delete_module>\n";
		$data .= "<input type=submit value=\"".gettext ("DELETE this Module")."\">\n";
	} else {
		$data .= "<input type=hidden name=cmd value=new_module>";
		$data .= "<input type=submit value=\"".gettext("Create this Module")."\">\n";
	}

	## Substitute the Variables in the $page
	$page = $query->subVar( $page, '$module', $module );
	$page = $query->subVar( $page, '$data', $data );

	print "$page";
}

1;
