loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.36, 2001/08/30 13:57:04	version 1.38, 2001/11/28 21:49:27
Line 47 close(CONFIG);	Line 47 close(CONFIG);
$dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar{'lonSqlAccess'},{ RaiseError =>0,PrintError=>0})	$dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar{'lonSqlAccess'},{ RaiseError =>0,PrintError=>0})
) {	) {
print "Cannot connect to database!\n";	print "Cannot connect to database!\n";
exit;	$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
	$subj="LON: $perlvar{'lonHostID'} Cannot connect to database!";
	system("echo 'Cannot connect to MySQL database!' \|\
	mailto $emailto -s '$subj' > /dev/null");
	exit 1;
}	}
else {	else {
$dbh->disconnect;	$dbh->disconnect;
Line 299 sub make_new_child {	Line 303 sub make_new_child {
'creationdate','keywords','language',	'creationdate','keywords','language',
'lastrevisiondate','mime','notes',	'lastrevisiondate','mime','notes',
'owner','subject','title') {	'owner','subject','title') {
$stuff=~s/\n?\<$f[^\>]\>.?<\/$f[^\>]*\>\n?//;	$stuff=~s/\n?\<$f[^\>]\>.?<\/$f[^\>]*\>\n?//s;
}	}
my $m2=$m; my $docroot=$perlvar{'lonDocRoot'};	my $m2=$m; my $docroot=$perlvar{'lonDocRoot'};
$m2=~s/^$docroot//;	$m2=~s/^$docroot//;