fixing space issues

This commit is contained in:
chris 2000-04-03 23:15:52 +00:00
parent 2e30d6c2e5
commit c8cf590681

View file

@ -332,6 +332,8 @@ sub modsubject {
my $count=@subject;
my $error;
for (my $i=0;$i<$count;$i++){
$subject[$i]=~ s/^ //g;
$subject[$i]=~ s/ $//g;
my $query="select * from catalogueentry where entrytype='s' and
catalogueentry='$subject[$i]'";
my $sth=$dbh->prepare($query);