[WTF CVS] wtf/lib/WTF Utils.pm,1.4,1.5

[Gryphon S. <gry...@us...>]

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'),