gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

sort frameworks

This commit is contained in:
rych 2007-03-17 21:43:40 +00:00
parent 1788e7c870
commit 19d20b008b
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
installer/install.pl
View File

@ -220,9 +220,13 @@ if ($step && $step==1){
#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')){
undef $/;
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);
my @file = split qr(\/|\\),$file;
@ -289,8 +293,9 @@ if ($step && $step==1){
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"}=\@frameworklist;
$cell{"frameworks"}=\@fwks;
$cell{"label"}=ucfirst($requirelevel);
$cell{"code"}=lc($requirelevel);
push @levellist,\%cell;