Content-type: text/html

Software error:

unable to open database file(1) at dbdimp.c line 94

For help, please send mail to this site's webmaster, giving this error message and the time and date of the error.

##

#!c:\Perl\bin\Perl.exe

# Created:	2006/03/28

use strict;
use CGI qw {:cgi-lib :standard};
use CGI::Carp qw(fatalsToBrowser);
use File::Copy;
use DBI;

my $form = Vars();

if ($$form{editnew} eq "edit")
{
	print redirect("workplan.pl?workplan=$$form{createfrom}")
}
elsif ($$form{editnew} eq "new")
{
	copy ("$$form{createfrom}.db","$$form{newname}.db");
	my $database = DBI->connect("dbi:SQLite:dbname=$$form{newname}.db","","") || die "$DBI::errstr\n";
	$database->do("delete from edits");
	$database->do("insert into edits values(0,0,0,0,'')");
	$database->disconnect();
	print redirect("workplan.pl?workplan=$$form{newname}")
}

##

##






	Page Title
	
	
	



Work Tools





	Create New Workplan
	
		Create based on Workplan:
		

		Name of Workplan:
		
		
		
	
	

	Edit Existing Workplan
	
		Workplan: