[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/installer install.pl
From: |
Ryan Higgins |
Subject: |
[Koha-cvs] koha/installer install.pl |
Date: |
Sat, 17 Mar 2007 21:43:40 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: Ryan Higgins <rych> 07/03/17 21:43:40
Modified files:
installer : install.pl
Log message:
sort frameworks
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/installer/install.pl?cvsroot=koha&r1=1.2&r2=1.3
Patches:
Index: install.pl
===================================================================
RCS file: /sources/koha/koha/installer/install.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- install.pl 9 Mar 2007 15:37:25 -0000 1.2
+++ install.pl 17 Mar 2007 21:43:40 -0000 1.3
@@ -220,8 +220,12 @@
#Framework importing and reports
my $lang;
my %hashlevel;
+ # sort by filename -> prepend with numbers to specify order of insertion.
- foreach my $file ($query->param('framework')){
+ my @fnames = sort { my @aa = split /\/|\\/, ($a); my @bb = split
/\/|\\/, ($b); $aa[-1] <=> $bb[-1] } $query->param('framework') ;
+
+ foreach my $file (@fnames){
+ warn $file;
undef $/;
my $strcmd="mysql ".($info{hostname}?"-h $info{hostname}
":"").($info{port}?"-P $info{port} ":"").($info{user}?"-u $info{user}
":"").($info{password}?"-p$info{password}":"")." $info{dbname} ";
my $str = qx($strcmd < $file 2>&1);
@@ -289,8 +293,9 @@
utf8::encode($lines) unless (utf8::is_utf8($lines));
push @frameworklist,{'fwkname'=>$name,
'fwkfile'=>"$dir/$_",'fwkdescription'=>$lines};
} @listname;
+ my @fwks = sort { $a->{'fwkname'} <=> $b->{'fwkname'} }
@frameworklist;
$cell{"mandatory"}=($requirelevel=~/(mandatory|requi|oblig|necess)/i);
- $cell{"frameworks"address@hidden;
+ $cell{"frameworks"address@hidden;
$cell{"label"}=ucfirst($requirelevel);
$cell{"code"}=lc($requirelevel);
push @levellist,\%cell;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/installer install.pl,
Ryan Higgins <=