Bugzilla – Attachment 59709 Details for
Bug 17855
New onboarding tool feature to guide users through setting up Koha, and minor web installer UI improvements
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 17955 - Removed unnecessary use pragmas in the onboarding.pl script
Bug-17955---Removed-unnecessary-use-pragmas-in-the.patch (text/plain), 9.44 KB, created by
Alex Buckley
on 2017-02-01 01:58:04 UTC
(
hide
)
Description:
Bug 17955 - Removed unnecessary use pragmas in the onboarding.pl script
Filename:
MIME Type:
Creator:
Alex Buckley
Created:
2017-02-01 01:58:04 UTC
Size:
9.44 KB
patch
obsolete
>From 19f6351f51ed4e85c34042ba319dab97c2df871c Mon Sep 17 00:00:00 2001 >From: Alex Buckley <alexbuckley@catalyst.net.nz> >Date: Mon, 30 Jan 2017 11:09:39 +1300 >Subject: [PATCH] Bug 17955 - Removed unnecessary use pragmas in the > onboarding.pl script > >Replaced all sql code in onboarding.pl script with DBIx > >Changed the logic of the onshelfholds if statement in onboarding.pl > >https://bugs.koha-community.org/show_bug.cgi?id=17855 >Signed-off-by: Alex Buckley <alexbuckley@catalyst.net.nz> >--- > installer/onboarding.pl | 138 ++++++++++++------------------------------------ > 1 file changed, 33 insertions(+), 105 deletions(-) > >diff --git a/installer/onboarding.pl b/installer/onboarding.pl >index 1239ac8..6773f8f 100755 >--- a/installer/onboarding.pl >+++ b/installer/onboarding.pl >@@ -22,38 +22,29 @@ use Modern::Perl; > use diagnostics; > use C4::InstallAuth; > use CGI qw ( -utf8 ); >-use List::MoreUtils qw/uniq/; > use Digest::MD5 qw(md5_base64); > use Encode qw( encode ); > use C4::Koha; >-use C4::Context; > use C4::Output; >-use C4::Form::MessagingPreferences; > use C4::Members; > use C4::Members::Attributes; > use C4::Members::AttributeTypes; > use C4::Log; >-use C4::Letters; >-use C4::Form::MessagingPreferences; > use Koha::AuthorisedValues; > use Koha::Patron::Debarments; >-use Koha::Cities; > use Koha::Patrons; > use Koha::Items; > use Koha::Libraries; >-use Koha::LibraryCategories; > use Koha::Database; > use Koha::DateUtils; > use Koha::Patron::Categories; > use Koha::Patron::Category; > use Koha::Patron::HouseboundRole; > use Koha::Patron::HouseboundRoles; >-use Koha::Token; >-use Email::Valid; >-use Module::Load; > use Koha::ItemTypes; > use Koha::IssuingRule; > use Koha::IssuingRules; >+use Data::Dumper; > > #Setting variables > my $input = new CGI; >@@ -92,9 +83,11 @@ my $dbh = DBI->connect( > ); > > #Store the value of the template input name='op' in the variable $op so we can check if the user has pressed the button with the name="op" and value="finish" meaning the user has finished the onboarding tool. >-my $op = $input->param('op') || ""; >+my $op = $input->param('op') || ''; > $template->param( 'op' => $op ); > >+my $schema = Koha::Database->new()->schema(); >+ > if ( $op && $op eq 'finish' ) > { #If the value of $op equals 'finish' then redirect user to /cgi-bin/koha/mainpage.pl > print $input->redirect("/cgi-bin/koha/mainpage.pl"); >@@ -242,8 +235,8 @@ elsif ( $step && $step == 2 ) { > #Create a patron > } > elsif ( $step && $step == 3 ) { >- my $firstpassword = $input->param('password') || ""; >- my $secondpassword = $input->param('password2') || ""; >+ my $firstpassword = $input->param('password') || ''; >+ my $secondpassword = $input->param('password2') || ''; > > > #Find all patron records in the database and hand them to the template >@@ -281,13 +274,11 @@ elsif ( $step && $step == 3 ) { > my $categories = Koha::Patron::Categories->search(); > $template->param( 'categories' => $categories, ); > >+#Incrementing the highest existing patron cardnumber to prevent duplicate cardnumber entry > >+ my $existing_cardnumber = $schema->resultset('Borrower')->get_column('cardnumber')->max(); > >- >-#Incrementing the highest existing patron cardnumber to prevent duplicate cardnumber entry >- my $exisiting_cardnumber = my $sth_search = >- $dbh->prepare("SELECT MAX(cardnumber) FROM borrowers"); >- my $new_cardnumber = $exisiting_cardnumber + 1; >+ my $new_cardnumber = $existing_cardnumber + 1; > $template->param( "newcardnumber" => $new_cardnumber ); > > my $op = $input->param('op') // 'list'; >@@ -386,7 +377,7 @@ elsif ( $step && $step == 3 ) { > $newdata{address} = ""; > $newdata{city} = ""; > >-#Determine the dateexpiry of the patron based on the patron category it is created from >+#Hand tne the dateexpiry of the patron based on the patron category it is created from > my $patron_category = Koha::Patron::Categories->find( $newdata{categorycode} ); > $newdata{dateexpiry} = $patron_category->get_expiry_date( $newdata{dateenrolled} ); > >@@ -415,20 +406,13 @@ elsif ( $step && $step == 3 ) { > } > > # construct flags >- my $module_flags = 0; >- my $sth = >- $dbh->prepare("SELECT bit,flag FROM userflags ORDER BY bit"); >- $sth->execute(); >- while ( my ( $bit, $flag ) = $sth->fetchrow_array ) { >- if ( exists $all_module_perms{$flag} ) { >- $module_flags += 2**$bit; >- } >- } >+ my @userflags = $schema->resultset('Userflag')->search({},{ >+ order_by => { -asc =>'bit'}, >+ } >+ ); > >-#Set the superlibrarian permission of the newly created patron to superlibrarian >- $sth = $dbh->prepare( >- "UPDATE borrowers SET flags=? WHERE borrowernumber=?"); >- $sth->execute( $module_flags, $borrowernumber ); >+#Setting superlibrarian permissions for new patron >+ my $flags = Koha::Patrons->find($borrowernumber)->set({flags=>1})->store; > > #Error handling checking if the patron was created successfully > if ( !$borrowernumber ) { >@@ -581,89 +565,33 @@ elsif ( $step && $step == 5 ) { > > my @messages; > >-#New code from smart-rules.tt starts here. Needs to be added to library > #Allows for the 'All' option to work when selecting all libraries for a circulation rule to apply to. > if ( $branch eq "*" ) { >- my $sth_search = $dbh->prepare( >- "SELECT count(*) AS total >- FROM default_circ_rules" >- ); >- my $sth_insert = $dbh->prepare( >- "INSERT INTO default_circ_rules >- (maxissueqty, onshelfholds) >- VALUES (?, ?)" >- ); >- my $sth_update = $dbh->prepare( >- "UPDATE default_circ_rules >- SET maxissueqty = ?, onshelfholds = ?" >- ); >- >- $sth_search->execute(); >- my $res = $sth_search->fetchrow_hashref(); >- if ( $res->{total} ) { >- $sth_update->execute( $maxissueqty, $onshelfholds ); >- } >- else { >- $sth_insert->execute( $maxissueqty, $onshelfholds ); >- } >+ my $search_default_rules = $schema->resultset('DefaultCircRule')->count(); >+ my $insert_default_rules = $schema->resultset('Issuingrule')->new( >+ { maxissueqty => $maxissueqty, onshelfholds => $onshelfholds } >+ ); > } >- > #Allows for the 'All' option to work when selecting all patron categories for a circulation rule to apply to. >- if ( $bor eq "*" ) { >- my $sth_search = $dbh->prepare( >- "SELECT count(*) AS total >- FROM default_circ_rules" >- ); >- my $sth_insert = $dbh->prepare( >- q| >- INSERT INTO default_circ_rules >- (maxissueqty) >- VALUES (?) >- | >- ); >- my $sth_update = $dbh->prepare( >- q| >- UPDATE default_circ_rules >- SET maxissueqty = ? >- | >- ); >+ elsif ( $bor eq "*" ) { > >- $sth_search->execute(); >- my $res = $sth_search->fetchrow_hashref(); >- if ( $res->{total} ) { >- $sth_update->execute($maxissueqty); >- } >- else { >- $sth_insert->execute($maxissueqty); >- } >+ my $search_default_rules = $schema->resultset('DefaultCircRule')->count(); >+ my $insert_default_rules = $schema->resultset('Issuingrule')->new( >+ { maxissueqty => $maxissueqty} >+ ); > } > > #Allows for the 'All' option to work when selecting all itemtypes for a circulation rule to apply to >- if ( $itemtype eq "*" ) { >- my $sth_search = $dbh->prepare( >- "SELECT count(*) AS total >- FROM default_branch_circ_rules >- WHERE branchcode = ?" >- ); >- my $sth_insert = $dbh->prepare( >- "INSERT INTO default_branch_circ_rules >- (branchcode, onshelfholds) >- VALUES (?, ?)" >- ); >- my $sth_update = $dbh->prepare( >- "UPDATE default_branch_circ_rules >- SET onshelfholds = ? >- WHERE branchcode = ?" >+ elsif ( $itemtype eq "*" ) { >+ my $search_default_rules = $schema->resultset('DefaultCircRule')->search({},{ >+ branchcode => $branch >+ } >+ > ); >- $sth_search->execute($branch); >- my $res = $sth_search->fetchrow_hashref(); > >- if ( $res->{total} ) { >- $sth_update->execute( $onshelfholds, $branch ); >- } >- else { >- $sth_insert->execute( $branch, $onshelfholds ); >- } >+ my $insert_default_rules = $schema->resultset('Issuingrule')->new( >+ { branchcode => $branch, onshelfholds => $onshelfholds } >+ ); > } > > my $issuingrule = Koha::IssuingRules->find( >-- >2.1.4
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 17855
:
58657
|
58658
|
58659
|
58660
|
58661
|
58662
|
58663
|
58664
|
58665
|
58666
|
58667
|
58668
|
58669
|
58781
|
58782
|
58783
|
58784
|
58785
|
58792
|
58793
|
58794
|
58846
|
58860
|
58861
|
58862
|
58886
|
58892
|
58893
|
58894
|
58895
|
58896
|
58897
|
58898
|
58899
|
58900
|
58901
|
58902
|
58903
|
58904
|
58905
|
58906
|
58907
|
59037
|
59051
|
59140
|
59141
|
59174
|
59188
|
59277
|
59279
|
59280
|
59281
|
59628
|
59703
|
59705
|
59706
|
59707
|
59708
|
59709
|
59710
|
59711
|
59712
|
59742
|
59826
|
59830
|
59840
|
59841
|
59842
|
59856
|
59857
|
60092
|
61667
|
61668
|
61986
|
62186
|
62191
|
62192
|
62193
|
62220
|
62221
|
62222
|
62223
|
62231
|
62233
|
62234
|
62235
|
62236
|
62237
|
62238
|
62239
|
62240
|
62241
|
62242
|
62243
|
62251
|
62252
|
62253
|
62254
|
62255
|
62256
|
62257
|
62258
|
62259
|
62260
|
62261
|
62262
|
62263
|
62281
|
62282
|
62283
|
62284
|
62285
|
62286
|
62287
|
62288
|
62668
|
62669
|
62670
|
62671
|
62672
|
62673
|
62674
|
62675