###################################################################### Sets a global variabled 'preview' that determines if a tpl is being # used in a preview mode######################################################################sub set_preview_status { # Get the command line arguments automatically passed to the presentation template foreach $arg (@ARGV) { if($arg =~ /zz_tst_(.*)/i) { return 1; } } return 0;}
# Determine whether template is used in preview mode$preview = set_preview_status();
if ($preview !=1) {// Execute code that is not in preview mode}else {// Execute code that is being previewed}
# Are we in Preview mode or Generate mode? my $is_preview = TeamSite:T::iw_xml::get_flag_param($iw_parser,'-iw_pt-preview'); if ( defined($is_preview) ) { # Preview mode code } else { # Generate mode code }