fixing space issues
This commit is contained in:
parent
2e30d6c2e5
commit
c8cf590681
1 changed files with 2 additions and 0 deletions
|
@ -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);
|
||||
|
|
Loading…
Reference in a new issue