From 4d31983f00beba689a93cc4070bf459c9402e8bd Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Wed, 16 Oct 2013 13:21:59 +0200 Subject: [PATCH] added title and backlink to xml generated pages --- web/htdocs/commands/xmlpage.pm | 6 +++--- web/htdocs/network/trbnet.pl | 7 ++++++- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/web/htdocs/commands/xmlpage.pm b/web/htdocs/commands/xmlpage.pm index 3ad93bd..72b3120 100644 --- a/web/htdocs/commands/xmlpage.pm +++ b/web/htdocs/commands/xmlpage.pm @@ -21,7 +21,7 @@ sub getView { sub initPage { - my ($ref_setup) = @_; + my ($ref_setup,$page) = @_; @setup = @$ref_setup; my ($command,$style) = split("-",$ENV{'QUERY_STRING'}); @@ -37,7 +37,7 @@ sub initPage { print < -TrbNet Overview +$page->{title} EOF @@ -45,7 +45,7 @@ EOF print qq( -

TrbNet Overview

+

).$page->{title}.qq(

); diff --git a/web/htdocs/network/trbnet.pl b/web/htdocs/network/trbnet.pl index 63c8adf..62754b1 100755 --- a/web/htdocs/network/trbnet.pl +++ b/web/htdocs/network/trbnet.pl @@ -10,6 +10,11 @@ use CGI::Carp qw(fatalsToBrowser); use lib qw|../commands htdocs/commands|; use xmlpage; +my $page; + +$page->{title} = "TrbNet Status Register"; +$page->{link} = "../"; + my @setup; $setup[0]->{name} = "StatusRegisters"; $setup[0]->{cmd} = "TrbNet-0xffff-StatusRegisters"; @@ -22,7 +27,7 @@ $setup[1]->{refresh} = 1; $setup[1]->{period} = 0; -xmlpage::initPage(\@setup); +xmlpage::initPage(\@setup,$page); -- 2.43.0