[-
#
# add a schedule
#
# pass $fdat{u} = username to view
# pass $fdat{s} = section #
#


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

use HTML::Table;
use SW::Site::rcm;
use SW::DB::rcm;
use Data::Dumper;
use rcmManual;



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

my $site = SW::Site::rcm->new( $ENV{SW_CONFIG} );

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

my $section_order = $db->section2order( $fdat{s} );

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




#
# content
#

my $tblContents;


my $txtIntro = <<EOTEXT;
<p><b>Risk Control Manual</b> ($fdat{u})</p>
<p>
[<a class="tiny" href="/admin/clients/view.epl?u=$fdat{u}&s=$fdat{s}">Back to Section</a>]
[<a class="tiny" href="/admin/clients/view.epl?u=$fdat{u}">Table of Contents</a>]
[<a class="tiny" href="/admin/clients/">Back to Client List</a>] 
</p>
EOTEXT




#
# upload?
#

if ( defined($fdat{sup}) ) {

#	$fdat{snum} = uc($fdat{snum});

	if ( length($fdat{snum}) == 1 && length($fdat{stitle}) > 2 && 
					defined( $fdat{content} ) ) {

#		mkdir( $schedule_dir );

		# file name
#		my $schedule_file = $schedule_dir . "/$fdat{s}-$fdat{snum}$fdat{ext}";
#		my $info_file = $schedule_dir . "/$fdat{s}-$fdat{snum}.title";

#	$txtIntro .= $fdat{sfile};


	my $save_result = $db->insertSchedule( $fdat{s}, $manual_id, $fdat{snum}, $fdat{stitle}, $fdat{content} );
	if ( ! $save_result ) {
	  $txtIntro .= '<font color="red">Schedule saved.</font>';
		$http_headers_out{'Location'} = "view.epl?u=$fdat{u}"
	} else {
		$txtIntro .= '<font color="red">'.$save_result.'</font>';
	}


		# save the file
#		my $buffer;
#		if ( open( FILE, ">".$schedule_file ) ) {
#			print FILE $buffer while read($fdat{sfile}, $buffer, 32768);
#			close FILE;
#
#			if (open( FILE, ">".$info_file ) ) {
#				print FILE $fdat{stitle};
#				close FILE;
#			} else {
#				$txtIntro .= '<font color="red">'."Could not save schedule title: $! ($info_file)</font>";
#			}			
#		} else {
#			$txtIntro .= '<font color="red">'."Could not save schedule: $! ($schedule_file)</font>";
#	  }

		
#		$txtIntro .= '<font color="red">Schedule saved.</font>';


	} else {

		# validation error 
		$txtIntro .= '<font color="red">Please ensure all fields are filled out correctly</font>';

	}				

}



#
# content
#

my $tblContents = HTML::Table->new();

my $r = 0;
$tblContents->addRow( "<b>Add New Schedule</b>" );
$tblContents->addRow( $site->formSchedule( $fdat{s}, $fdat{snum}, 
											$fdat{stitle}, $fdat{content} ) );


#my $sel = <<EOTEXT;
#<select name="ext">
#<option value=".doc">Word Document</option>
#<option value=".pdf">Adobe Acrobat PDF</option>
#<option value=".gif">Graphic (GIF)</option>
#</select>
#EOTEXT
#
#$tblContents->addRow( "Attachment Type", $sel );
#$r++;
#$tblContents->addRow( "Attachment", 
#											'<input type="FILE" size="40" maxlen="80" name="sfile">' 
#										); 
#$r++;




$tblContents->addRow( '<input type="submit" value="Attach Schedule">', "" );
$r++;
$tblContents->setCellColSpan( $r, 1, 2 );
$tblContents->setCellAlign( $r, 1, "center" );

#my $form = "<form method=\"POST\" action=\"add_schedule.epl\" enctype=\"multipart/form-data\">";
my $form = "<form method=\"POST\" action=\"add_schedule.epl\">";
$form .= "<input type=\"hidden\" name=\"u\" value=\"$fdat{u}\">";
$form .= "<input type=\"hidden\" name=\"s\" value=\"$fdat{s}\">";
$form .= "<input type=\"hidden\" name=\"sup\" value=\"1\">";

$tblContents = $form . $tblContents . "</form>";

my $tbl = HTML::Table->new( -width=>'100%' );
$tbl->setCellPadding( 15 );
my $r = 0;
$tbl->addRow( $txtIntro );
$r++;
$tbl->addRow( $tblContents );


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


# left menubar
#$site->{leftmenu} = "<br><p><b>Table of Contents</b><p>".$site->manualTOC( $manual_id, "/admin/clients/view.epl", $fdat{u}, "/admin/clients/view_sched.epl" );

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

$db->disconnect();

-]