[Koha-cvs] koha/installer install.pl
Henri-Damien LAURENT
laurenthdl at alinto.com
Fri Apr 13 18:33:54 CEST 2007
CVSROOT: /cvsroot/koha
Module name: koha
Changes by: Henri-Damien LAURENT <hdl> 07/04/13 16:33:54
Modified files:
installer : install.pl
Log message:
Loading FrameworksLoaded for update before modifying.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/installer/install.pl?cvsroot=koha&r1=1.5&r2=1.6
Patches:
Index: install.pl
===================================================================
RCS file: /cvsroot/koha/koha/installer/install.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- install.pl 13 Apr 2007 16:30:00 -0000 1.5
+++ install.pl 13 Apr 2007 16:33:54 -0000 1.6
@@ -216,7 +216,9 @@
my %hashlevel;
# sort by filename -> prepend with numbers to specify order of insertion.
my @fnames = sort { my @aa = split /\/|\\/, ($a); my @bb = split /\/|\\/, ($b); $aa[-1] lt $bb[-1] } $query->param('framework') ;
- my $systempreference;
+ my $request=$dbh->prepare("SELECT value FROM systempreferences WHERE variable='FrameworksLoaded'");
+ $request->execute;
+ my ($systempreference)=$request->fetchrow;
foreach my $file (@fnames){
# warn $file;
undef $/;
@@ -226,7 +228,7 @@
$lang=$file[scalar(@file)-3] unless ($lang);
my $level=$file[scalar(@file)-2];
unless ($error){
- $systempreference.="$file[scalar(@file)-1]|";
+ $systempreference.="$file[scalar(@file)-1]|" unless(index($systempreference,$file[scalar(@file)-1])>=0);
}
#Bulding here a hierarchy to display files by level.
push @{$hashlevel{$level}},{"fwkname"=>$file[scalar(@file)-1],"error"=>$error};
@@ -243,11 +245,9 @@
$fwk_language = $each_language->{language_locale_name};
}
}
- warn "frameworksloaded : $systempreference";
my $updateflag=$dbh->do("UPDATE systempreferences set value=\"$systempreference\" where variable='FrameworksLoaded'");
unless ($updateflag==1){
my $string="INSERT INTO systempreferences (value, variable, explanation, type) VALUES (\"$systempreference\",'FrameworksLoaded','Frameworks loaded through webinstaller','choice')";
- warn "$string";
my $rq=$dbh->prepare($string);
$rq->execute;
}
More information about the Koha-cvs
mailing list