[-
#
# 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;


#
# create site object and connect to db
#
my $site = SW::Site::rcm->new( $ENV{SW_CONFIG} );
$site->{show_top} = 0;
$site->title( "View/Add/Modify Schedule" );

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


#
# convert username to manual id
#

# 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 );

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



#
# menu
#
my $txtIntro = <<EOTEXT;
<p><b>VIEW/ADD/MODIFY SCHEDULE</b></p>
<p>
EOTEXT

if ( defined( $fdat{s} ) ) {
	$txtIntro .= <<EOTEXT;
<br/>
EOTEXT
}
$txtIntro .= "</p>";

# end menu



#
# save changes
#

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

if ( defined( $fdat{delete} ) ) {
	$db->deleteSchedule( $fdat{s} );
	$http_headers_out{'Location'} = "view.epl?u=$fdat{u}";
	exit;
}




#
# 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} );


$tblHead .= "<form action=\"view_sched.epl\" method=\"post\">";
$tblHead .= "<input type=\"hidden\" name=\"u\" value=\"$fdat{u}\">";
$tblHead .= "<input type=\"hidden\" name=\"mid\" value=\"$fdat{mid}\">";
$tblHead .= "<input type=\"hidden\" name=\"s\" value=\"$fdat{s}\">";
$tblHead .= "<input type=\"hidden\" name=\"save\" value=\"1\">";




my $ref = $db->getSchedule( $fdat{s} );
$tblContents = $site->formSchedule( $ref->{section_id}, $ref->{sort_order},
	$ref->{title}, $ref->{content}, $access_level );

if ( $access_level ) {
	$tblContents .= "<table width=\"100%\"><tr><td align=center><input type=\"submit\" value=\"Save Changes\"></td><td align=right><input type=checkbox value=delete name=delete>Delete?</td></form>";
}


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

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


$site->{leftmenu} = $site->manualTOC( $manual_id, "view.epl", $fdat{u}, "/client/view_sched.epl" );


$site->{leftmenu} = $site->logoSmall();
$site->{leftmenu_width} = '10%';

#
# output page
#
print OUT $site->showContent( $tbl );

$db->disconnect();
-]