loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2002/08/09 17:08:19	version 1.6, 2002/08/12 14:50:18
Line 656 sub get_rows {	Line 656 sub get_rows {
}	}
$debugstring = "Got rows matching $condition";	$debugstring = "Got rows matching $condition";
my @Results = @{$sth->fetchall_arrayref};	my @Results = @{$sth->fetchall_arrayref};
foreach my $row (@Results) {
for(my $i=0;$i<@$row;$i++) {
$row->[$i]=&Apache::lonnet::unescape($row->[$i]);
}
}
return @Results;	return @Results;
}	}

Line 710 sub store_row {	Line 705 sub store_row {
@Parameters = @$rowdata;	@Parameters = @$rowdata;
} elsif (ref($rowdata) eq 'HASH') {	} elsif (ref($rowdata) eq 'HASH') {
foreach (@{$Tables{$tablename}->{'Col_order'}}) {	foreach (@{$Tables{$tablename}->{'Col_order'}}) {
push(@Parameters,&Apache::lonnet::escape($rowdata->{$_}));	push(@Parameters,$rowdata->{$_});
}	}
}	}
$sth->execute(@Parameters);	$sth->execute(@Parameters);