Update of /cvsroot/wtf-tracker/wtf/lib/WTF
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14234/lib/WTF
Modified Files:
Utils.pm
Log Message:
Added version number display in the nav bar area
Index: Utils.pm
===================================================================
RCS file: /cvsroot/wtf-tracker/wtf/lib/WTF/Utils.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Utils.pm 2 Dec 2006 00:09:09 -0000 1.4
--- Utils.pm 3 Dec 2006 00:05:52 -0000 1.5
***************
*** 6,12 ****
--- 6,15 ----
use Spreadsheet::WriteExcel;
use Time::Local 'timelocal';
+ use WTF::Config;
use WTF::DBH;
use WTF::SQL;
+ use constant VERSION => WTF::Config->get('version');
+
# setup database and SQL statement handles
my $dbh = WTF::DBH->connect();
***************
*** 90,93 ****
--- 93,97 ----
'username' => $r->pnotes('username'),
'user_name' => $r->pnotes('user_name'),
+ 'version' => VERSION,
'current_' . $current_link => 1,
'is_admin' => $r->pnotes('is_admin'),
|
