[-
#
# view client's data
#
# pass $fdat{u} = username to view
#


BEGIN {
  unshift(@INC, $ENV{SW_PERLDIR});
}



use HTML::Table;
use SW::Site::rcm;
use SW::DB::rcm;

use Data::Dumper;

# break any cache
$http_headers_out{'Expires'} = "Fri, 30 Oct 1998 14:19:41 GMT";
$http_headers_out{'Cache-Control'} = "max-age=1, must-revalidate";

#
# create site object and connect to db
#
my $site = SW::Site::rcm->new( $ENV{SW_CONFIG} );
$site->{show_top} = 0;

my $db = SW::DB::rcm->new( $ENV{SW_CONFIG} );
if ( $db->connect() ) {
} else {
	print OUT $site->showContent( "sorry can't connect to db" );
	exit;
}
$site->{db} = $db;
$site->{extra_head} = $site->readFile( $site->includeFile( 'htmlarea' ));


# get login_id from md5 cookie
my %cookies = $site->getCookies();
my $login_id = $db->md52login( $cookies{lid} );
my $login_ref = $db->getLoginAccount( $login_id );

my $login_id = $login_ref->{login_id};
#
my $access_level = $db->getAccessLevel( $login_id );
my $manual_id = $db->login2manual( $login_id );

$db->lastAccessManual( $manual_id );

if ( ! $login_id ) {
	print OUT $site->showContent( $cookies{lid}.'Invalid session id.  Please login again.' );
	exit;
}



#
# save changes
#

if ( defined($fdat{save}) ) {
	
	my $msg = "";
	if ( $db->saveSectionClient( $fdat{s}, $fdat{clientwording} ) ) {
		$msg = "Changes saved";
	} else {
		$msg = "Couldn't save changes";
	}
	$txtIntro .= "<span class=\"alert\">$msg</span>";
}


my $adds = "";
if ( defined( $fdat{s} ) ) {
#	$adds = "[<a href=\"/client/add_schedule.epl?s=$fdat{s}\">Add Schedule</a>]";
}

my $txtIntro = HTML::Table->new(-width=>'100%');
$txtIntro->addRow( #'[<a href="/client/view.epl">Table of Contents</a>]',
	$adds,
#	"You are logged in as: $login_ref->{username}<br>
	'<form action="/client/"><input type="submit" value="LOG OFF"></form>'
);
$txtIntro->setCellAlign( 1, 2, 'right' );


#
# build header table
#
my $man_ref = $db->getManual( $manual_id );

my $tblHead = HTML::Table->new(-spacing=>5);

$tblHead->addRow( "USER:", $login_ref->{username} );
$tblHead->addRow( "COMPANY:", $man_ref->{company} );
$tblHead->addRow( "RISK CONTROL MANUAL:", $man_ref->{title} );

#
# variables
#



my $tblContents;

if ( ! defined( $fdat{s} ) ) {
	$tblContents = $tblHead;
} else {
	my $h = "";
	$h .= "<input type=\"hidden\" name=\"mid\" value=\"$fdat{mid}\">";

	$tblContents = $tblHead . $site->formManualSectionClient($fdat{s},'/client/view.epl',$h,$access_level );
}



my $tbl = HTML::Table->new( -width=>'100%' );
$tbl->setCellPadding( 5 );

my $r = 0;
$tbl->addRow( $site->manualTOC( $manual_id, "/client/view.epl", $fdat{u}, 'view_sched.epl' ), $txtIntro.$tblContents );
$r++;
$tbl->setCellVAlign( $r, 1, 'top' );
$tbl->setCellVAlign( $r, 2, 'top' );


#
# output page
#
$site->{leftmenu} = $site->logoSmall();
$site->{leftmenu_width} = '10%';
print OUT $site->start();
print OUT $site->readFile( "/home/sean/work/rcm/www/popup.js" );
print OUT $site->frameContent( $tbl );

print OUT $site->end();

-]
?