I am doing a comp sci degree and i have under 3 weeks to design an
online library system, where you have to be able to search for books in a database, get them out, the admin has to be able to add books to the db, remove, edit records etc, each user has to have his own account, be informed of fines, yadda yadda. And it has to be web based.
I am having a nightmare. I really need help but there is no one to talk to or turn to. If i don't hand this in soon (i have to write it up which is worth 70%) i will fail my degree.
At the moment i have only done the following: created a flatfile database, and made scripts so that online, you can add to a database. That is all i have done! I am so behind! I am trying to make scripts that delete individual records, and also edit records, but i can't do it. I found scripts online to show me how it's done, but when i use them they delete the whole file!!!!
The code to delete a singe record is here:
#!/usr/local/bin/perl
#######################################
# Define the variables for the script #
#######################################
$database='books.db';
############################
# Get data from GET & POST #
############################
require "cgi-lib.pl";
&ReadParse(*input);
#################################################
# Get the origional database data & buffer data #
#################################################
open (ORGDB,"<$database");
@ODB=<ORGDB>;
close (ORGDB);
################################################## ###############
# Open the database to write data, changing the neccesary lines #
################################################## ###############
if ($input{'action'} eq 'delete'){
open (DATABASE,">$database");
@DB=<DATABASE>;
foreach $rec (@ODB){
chomp($rec);
($title,$author,$classmark,$type,$status)=split(/\|/,$rec);
if ($title eq $input{'title'} && $author eq $input{'author'} && $classmark eq $input{'classmark'} && type eq $input{'type'} && $status eq $input{'status'}){
print DATABASE "";
}else{
print DATABASE "$title|$author|$classmark|$type|$status\n";
}
}
close (DATABASE);
}
I mean, this is barely my code, i just copied it, cos i just ran out of ideas man. By the way it has been text wrapped. It recieves the info (input) from another file which is here:
#!/usr/bin/perl
#####################
#This reads the database, and also has links to delete and edit the
$data_file="books.db";
open(DAT, $data_file) || die("Apoligies - the library system is temporarily down. Please try again soon");
@raw_data=<DAT>;
close(DAT);
print "Content-type: text/html\n\n";
print "
<html>
<head><title> Library Database </title>
<body>
<font face='Arial' size='2'>
<h1><i>Database View</i></h1>
<table width='100%' border='1'>
<tr><td bgcolor='#F2C973'><font size='2'>Actions</font></td><td bgcolor='#F2C973'><font size='2'>Title</font></td>
<td bgcolor='#F2C973'><font size='2'>Author</font></td>
<td bgcolor='#F2C973'><font size='2'>Classmark</font></td>
<td bgcolor='#F2C973'><font size='2'>Type</font></td>
<td bgcolor='#F2C973'><font size='2'>Status</font></td></tr>
";
foreach $book (@raw_data)
{
chop($book);
($title,$author,$classmark,$type,$status)=split(/\|/,$book);
print "<tr><td><font size='2'><a href='edit_record2.cgi?title=$title&author=$author&classmark=$classmark&type=$type&status=$status'>Edit</a> - <a href='edit6.cgi?action=delete&title=$title&author=$author&classmark=$classmark&type=$type&status=$status'>Delete</a></font></td>
<td><font size='2'>$title</font></td>
<td><font size='2'>$author</font></td>
<td><font size='2'>$classmark</font></td>
<td><font size='2'>$type</font></td>
<td><font size='2'>$status</font></td></tr>\n";
}
print "</BODY></HTML>";
When you goto try to delete a record ti deletes them all. Like i say, i'm just using the script off the net, which works, all i did was change the variable names.
I really can't go into the depth of my problems, i need help :(
If you have msn messinger please please please look me up on that man.
Thanks in advance for anyhelp you might be able to give me
Eddie Shakarchi
If anyone knows of where i can go to get help, anybody online, any forums please say cos i got no where to turn and i'd rather not fail my degree.
Cheers