HTML::XHTML::DVSM Dynamic Visual Software Modelling
Download

HTML::XHTML::DVSM Ranking & Summary

HTML::XHTML::DVSM Tags

Perl module template XML XHTML XML template XHTML template

HTML::XHTML::DVSM Description

Dynamic Visual Software Modelling HTML::XHTML::DVSM is a XML/XHTML template system that does not screw up your templates.SYNOPSISThe HTML - getstarted.htmlIllustrates all but one of the the DVSM commands that can be embedded into xml or xhtml markup, and the missing one is explained below. All markup must be xhtml not html. < html > < head > < title >Getting Started with HTML::XHTML::DVSM< /title > < /head > < body > < h1 >Getting Started with HTML::XHTML::DVSM< /h1 > This html markup illustrated the script commands available in HTML::XHTML::DVSM< br/ > run printheader has output the header< br/ > < h2 >RUN< /h2 > run dorun will output "doRun called 1 times"< Br/ > < span id="sid" >hello world< /span >< br/ > run dorun will output "doRun called 2 times"< br/ > < span id="sid2" >hello world< /span > < !--DVSM run "printHeader" run "doRun()" where id = "sid" run "doRun()" where id = "sid2" -- > < !--DSUBS sub printHeader { print "Content-type: text/html "; } my $count = 0; sub doRun { ++$count; print "doRun called $count times< br/ > "; } -- > < h2 >SET< /h2 > textnode is set from hello world to hello sid< br/ > < span id="set" >hello world< /span >< br/ > value of input is set to "set by set"< br/ > < input type="text" value="" name="set2" > < !--DVSM set textnode to "sayHello()" where id = "set" set value to "return 'set by set';" where name = "set2" -- > < !--DSUBS sub sayHello { return "hello sid"; } -- > < h2 >TOGGLE< /h2 > Current value set to Option 2 by TOGGLE command< br/ > < select name="myselect" > < option value="1" select="myselect" >Option 1< /option > < option value="2" select="myselect" >Option 2< /option > < option value="3" select="myselect" >Otpion 3< /option > < /select >< br/ > < !--DVSM toggle selected to "doToggle()" where select = "myselect" -- > < !--DSUBS my $selected = 2; sub doToggle { my $sb = getSB(); my $value = $sb- >sbGetCurrentTagValue( "value" ); return ( $value eq $selected ); } -- > < h2 >DELETE< /h2 > Option 2 and Option 3 removed by DELETE command< br/ > < select name="myselect" > < option value="1" select="myselect" >Option 1< /option > < option value="2" select="deleteme" >Option 2< /option > < option value="3" select="deleteme" >Otpion 3< /option > < /select > < !--DVSM delete where select = "deleteme" -- > < h2 >WHILE< /h2 > WHILE command is used to populate the table with a data set of customers: 148842 = > "Mr J Smith", 848488 = > "Ms S Jones", 484848 = > "Mrs P Cook", 982828 = > "Joe Bloggs" < table > < tr >< th >Customer Number< /th >< th >Customer Name< /th >< /tr > < tbody > < tr name="customers" >< td name="custid" >12345< /td >< td name="custname" >Mr Bloggs< /td >< /tr > < tr name="deleteme" >< td >23456< /td >< td >Mrs Soap< /td >< /tr > < tr name="deleteme" >< td >67890< /td >< td >Mr A N Other< /td >< /tr > < /tbody > < /table > < !--DVSM delete where name = "deleteme" while "moreCustomers()" where name = "customers" set textnode to "getCustid()" where name = "custid" set textnode to "getCustname()" where name = "custname" end while -- > < !--DSUBS my = ( 148842 = > "Mr J Smith", 848488 = > "Ms S Jones", 484848 = > "Mrs P Cook", 982828 = > "Joe Bloggs" ); my $cursor = -1; sub moreCustomers { $cursor++; my @keys = keys( ); return ( $cursor < h2 >IF< /h2 > < p >This paragraph always happens< /p > < p id="datepara_even" >This paragraph only happens if the date of the month (< span id="thedate" >< /span >) is an even number< /p > < p id="datepara_odd" >This version of the paragraph only happens if the date of the month (< span id="thedate" >< /span >) is an odd number< /p > < !--DVSM if "dateiseven()" where id = "datepara_even" set textnode to "getdate()" where id = "thedate" end if if "dateisodd()" where id = "datepara_odd" set textnode to "getdate()" where id="thedate" end if -- > < !--DSUBS sub dateisodd { return ( ! dateiseven() ); } sub dateiseven { my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); return ( $mday % 2 == 0 ); } sub getdate { my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); return sprintf( "%.2d/%.2d/%.4d", $mday, $mon + 1, 1900 + $year ); } -- > < /body > < /html > The one DVSM script command not shown here is: < !--DVSM_include file/path.html-- > which allows you to load a snippet of markup into the main document at the point of the include directive. The snippet can contain DVSM script and DSUBS perl sections. Requirements: · Perl

HTML::XHTML::DVSM Related Software