Patron attributes

Default MARC21 Standard Authority types:

	Personal Name

	Corporate Name

	Meeting Name

	Uniform Title

	Chronological Term

	Topical Term

	Geographic Name

	Genre/Form Term

 Authority structure for UNIMARC in English.

Allow access to the following servers to search and download record information:

# This file is part of Koha.

# #

# # Copyright (C) YEAR  YOURNAME-OR-YOUREMPLOYER

# #

# # Koha is free software; you can redistribute it and/or modify it

# # under the terms of the GNU General Public License as published by

# # the Free Software Foundation; either version 3 of the License, or

# # (at your option) any later version.

# #

# # Koha is distributed in the hope that it will be useful, but

# # WITHOUT ANY WARRANTY; without even the implied warranty of

# # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# # GNU General Public License for more details.

# #

# # You should have received a copy of the GNU General Public License

# # along with Koha; if not, see <http://www.gnu.org/licenses>.

        my $setup = $query->param('setup');

        $template->param( "setup"=> $setup );

#!/usr/bin/perl

#Recommended pragmas

# This file is part of Koha.

# #

# # Copyright (C) YEAR  YOURNAME-OR-YOUREMPLOYER

# #

# # Koha is free software; you can redistribute it and/or modify it

# # under the terms of the GNU General Public License as published by

# # the Free Software Foundation; either version 3 of the License, or

# # (at your option) any later version.

# #

# # Koha is distributed in the hope that it will be useful, but

# # WITHOUT ANY WARRANTY; without even the implied warranty of

# # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# # GNU General Public License for more details.

# #

# # You should have received a copy of the GNU General Public License

# # along with Koha; if not, see <http://www.gnu.org/licenses>.

use strict;

use warnings;

use diagnostics;

use Modern::Perl;

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::Auth;

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::HouseboundRole;

use Koha::Patron::HouseboundRoles;

use Koha::Token;

use Email::Valid;

use Module::Load;

use Koha::ItemTypes;

use Koha::IssuingRule;

use Koha::IssuingRules;

#Setting variables

my $input    = new CGI;

my $query    = new CGI;

my $step     = $query->param('step');

#Getting the appropriate template to display to the user

my ( $template, $loggedinuser, $cookie) = C4::InstallAuth::get_template_and_user(

     {

        template_name => "/onboarding/onboardingstep" . ( $step ? $step : 0 ) . ".tt",

        query         => $query,

        type          => "intranet",

        authnotrequired => 0,

        debug           => 1,

    }

);

#Check database connection

my %info;

$info{'dbname'} = C4::Context->config("database");

$info{'dbms'} =

(   C4::Context->config("db_scheme")

    ? C4::Context->config("db_scheme")

     : "mysql" );

$info{'hostname'} = C4::Context->config("hostname");

$info{'port'}     = C4::Context->config("port");

$info{'user'}     = C4::Context->config("user");

$info{'password'} = C4::Context->config("pass");

my $dbh = DBI->connect(

         "DBI:$info{dbms}:dbname=$info{dbname};host=$info{hostname}"

          . ( $info{port} ? ";port=$info{port}" : "" ),

           $info{'user'}, $info{'password'}

);

#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 = $query->param('op');

$template->param('op'=>$op);

if ( $op && $op eq 'finish' ) { #If the value of $op equals 'finish' then redirect user to /cgi-bin/koha/mainpage.pl

    print $query->redirect("/cgi-bin/koha/mainpage.pl");

    exit;

}

#Store the value of the template input name='start' in the variable $start so we can check if the user has pressed this button and started the onboarding tool process

my $start = $query->param('start');

$template->param('start'=>$start);

if ( $start && $start eq 'Start setting up my Koha' ){

    my $libraries = Koha::Libraries->search( {}, { order_by => ['branchcode'] }, );

    $template->param(libraries   => $libraries,

              group_types => [

                {   categorytype => 'searchdomain',

                    categories   => [ Koha::LibraryCategories->search( { categorytype => 'searchdomain' } ) ],

                },

                {   categorytype => 'properties',

                         categories   => [ Koha::LibraryCategories->search( { categorytype => 'properties' } ) ],

                },

              ]

    );

}elsif ( $start && $start eq 'Add a patron category' ){

#Select all the patron category records in the categories database table and give them to the template

    my $categories = Koha::Patron::Categories->search();

    $template->param(

        categories => $categories,

    );

#Check if the $step variable equals 1 i.e. the user has clicked to create a library in the create library screen 1

}elsif ( $step && $step == 1 ) {

    my $createlibrary = $query->param('createlibrary'); #Store the inputted library branch code and name in $createlibrary variable

    $template->param('createlibrary'=>$createlibrary); # Hand the library values back to the template in the createlibrary variable

    #store inputted parameters in variables

    my $branchcode       = $input->param('branchcode');

    $branchcode = uc($branchcode);

    my $categorycode     = $input->param('categorycode');

    my $op               = $input->param('op') || 'list';

    my $message;

    my $library;

    #Take the text 'branchname' and store it in the @fields array

    my @fields = qw(

        branchname

    );

    $template->param('branchcode'=>$branchcode);

    $branchcode =~ s|\s||g; # Use a regular expression to check the value of the inputted branchcode

    #Create a new library object and store the branchcode and @fields array values in this new library object

    my $library = Koha::Library->new(

        {   branchcode => $branchcode,

            ( map { $_ => scalar $input->param($_) || undef } @fields )

        }

    );

    eval { $library->store; }; #Use the eval{} function to store the library object

    if($library){

       $message = 'success_on_insert';

    }else{

       $message = 'error_on_insert';

    }

    $template->param('message' => $message);

#Check if the $step variable equals 2 i.e. the user has clicked to create a patron category in the create patron category screen 1

}elsif ( $step && $step == 2 ){

      my $createcat = $query->param('createcat'); #Store the inputted category code and name in $createcat

      $template->param('createcat'=>$createcat);

     #Initialising values

     my $searchfield   = $input->param('description') // q||;

     my $categorycode  = $input->param('categorycode');

     my $op            = $input->param('op') // 'list';

     my $message;

     my $category;

     $template->param('categorycode' =>$categorycode);

     my ( $template, $loggedinuser, $cookie ) =  C4::InstallAuth::get_template_and_user(

     {

        template_name   => "/onboarding/onboardingstep2.tt",

        query           => $input,

        type            => "intranet",

        authnotrequired => 0,

        flagsrequired   => { parameters => 'parameters_remaining_permissions' },

        debug           => 1,

        }

    );

    #Once the user submits the page, this code validates the input and adds it

    #to the database as a new patron category

    $categorycode = $input->param('categorycode');

    my $description = $input->param('description');

    my $overduenoticerequired = $input->param('overduenoticerequired');

    my $category_type = $input->param('category_type');

    my $default_privacy = $input->param('default_privacy');

    my $enrolmentperiod = $input->param('enrolmentperiod');

    my $enrolmentperioddate = $input->param('enrolmentperioddate') || undef;

    #Converts the string into a date format

    if ( $enrolmentperioddate) {

         $enrolmentperioddate = output_pref(

                    {

                    dt         => dt_from_string($enrolmentperioddate),

                    dateformat => 'iso',

                    dateonly   => 1,

                    }

            );

        }

#Adds a new patron category to the database

        $category = Koha::Patron::Category->new({

                categorycode=> $categorycode,

                description => $description,

                overduenoticerequired => $overduenoticerequired,

                category_type=> $category_type,

                default_privacy => $default_privacy,

                enrolmentperiod => $enrolmentperiod,

                enrolmentperioddate => $enrolmentperioddate,

        });

        eval {

            $category->store;

        };

#Error messages

        if($category){

            $message = 'success_on_insert';

        }else{

            $message = 'error_on_insert';

        }

        $template->param('message' => $message);

#Create a patron

}elsif ( $step && $step == 3 ){

    my $firstpassword = $input->param('password');

    my $secondpassword = $input->param('password2');

#Find all library records in the database and hand them to the template to display in the library dropdown box

    my $libraries = Koha::Libraries->search( {}, { order_by => ['branchcode'] }, );

    $template->param(libraries   => $libraries,

              group_types => [

                {   categorytype => 'searchdomain',

                    categories   => [ Koha::LibraryCategories->search( { categorytype => 'searchdomain' } ) ],

                },

                {   categorytype => 'properties',

                         categories   => [ Koha::LibraryCategories->search( { categorytype => 'properties' } ) ],

                },

              ]

    );

#Find all patron categories in the database and hand them to the template to display in the patron category dropdown box

    my $categories= Koha::Patron::Categories->search();

    $template->param(

            categories => $categories,

    );

#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;

    warn $new_cardnumber;

    $template->param("newcardnumber" => $new_cardnumber);

    my $op = $input->param('op') // 'list';

    my $minpw = C4::Context->preference("minPasswordLength");

    $template->param("minPasswordLength" => $minpw);

    my @messages;

    my @errors;

    my $nok = $input->param('nok');

    my $firstpassword = $input->param('password');

    my $secondpassword = $input->param('password2');

    my $cardnumber= $input->param('cardnumber');

    my $borrowernumber= $input->param('borrowernumber');

    my $userid=$input->param('userid');

#If the entered cardnumber causes an error hand this error to the @errors array

    if(my $error_code = checkcardnumber($cardnumber, $borrowernumber)){

            push @errors, $error_code == 1

                ? 'ERROR_cardnumber_already_exists'

                :$error_code == 2

                    ? 'ERROR_cardnumber_length'

                    :()

    }

#If the entered password causes an error hand this error to the @errors array

  push @errors, "ERROR_password_mismatch" if $firstpassword ne $secondpassword;

  push @errors, "ERROR_short_password" if ($firstpassword && $minpw && $firstpassword ne '****' && (length($firstpassword) < $minpw));

#Passing errors to template

   $nok = $nok || scalar(@errors);

#If errors have been generated from the users inputted cardnumber or password then display the error and do not insert the patron into the borrowers table

   if($nok){

      foreach my $error (@errors){

          if ($error eq 'ERROR_password_mismatch'){

              $template->param(errorpasswordmismatch => 1);

           }

           if ($error eq 'ERROR_login_exist'){

                $template->param(errorloginexists =>1);

           }

           if ($error eq 'ERROR_cardnumber_already_exists'){

                $template->param(errorcardnumberexists => 1);

           }

           if ($error eq 'ERROR_cardnumber_length'){

                $template->param(errorcardnumberlength => 1);

           }

           if ($error eq 'ERROR_short_password'){

                $template->param(errorshortpassword => 1);

           }

       }

        $template->param('nok' => 1);

#Else if no errors have been caused by the users inputted card number or password then insert the patron into the borrowers table

   }else{

    my ($template, $loggedinuser, $cookie)= C4::InstallAuth::get_template_and_user({

                template_name => "/onboarding/onboardingstep3.tt",

                query => $input,

                type => "intranet",

                authnotrequired => 0,

                flagsrequired => {borrowers => 1},

                debug => 1,

    });

    if($op eq 'add_validate'){

         my %newdata;

#Store the template form values in the newdata hash

         $newdata{borrowernumber} = $input->param('borrowernumber');

         $newdata{surname}  = $input->param('surname');

         $newdata{firstname}  = $input->param('firstname');

         $newdata{cardnumber} = $input->param('cardnumber');

         $newdata{branchcode} = $input->param('libraries');

         $newdata{categorycode} = $input->param('categorycode_entry');

         $newdata{userid} = $input->param('userid');

         $newdata{password} = $input->param('password');

         $newdata{password2} = $input->param('password2');

         $newdata{dateexpiry} = '12/10/2016';

         $newdata{privacy} = "default";

#Hand the newdata hash to the AddMember subroutine in the C4::Members module and it creates a patron and hands back a borrowernumber which is being stored

        my $borrowernumber = &AddMember(%newdata);

#Create a hash named member2 and fill it with the borrowernumber of the borrower that has just been created

        my %member2;

        $member2{'borrowernumber'}=$borrowernumber;

#Perform data validation on the flag that has been handed to onboarding.pl by the template

        my $flag = $input->param('flag');

        if ($input->param('newflags')) {

             my $dbh=C4::Context->dbh();

             my @perms = $input->multi_param('flag');

             my %all_module_perms = ();

             my %sub_perms = ();

             foreach my $perm (@perms) {

                  if ($perm !~ /:/) {

                       $all_module_perms{$perm} = 1;

                   } else {

                        my ($module, $sub_perm) = split /:/, $perm, 2;

                        push @{ $sub_perms{$module} }, $sub_perm;

                   }

             }

             # 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;

                  }

             }

#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);

             #Error handling checking if the patron was created successfully

             if(!$borrowernumber){

                  push @messages, {type=> 'error', code => 'error_on_insert'};

             }else{

                  push @messages, {type=> 'message', code => 'success_on_insert'};

             }

          }

        }

    }

 }elsif ( $step && $step == 4){

    my $createitemtype = $input->param('createitemtype');

    $template->param('createitemtype'=> $createitemtype );

    my( $template, $borrowernumber, $cookie) = C4::InstallAuth::get_template_and_user(

            {   template_name   => "/onboarding/onboardingstep4.tt",

                query           => $input,

                type            => "intranet",

                authnotrequired => 0,

                flagsrequired   => { parameters => 'parameters_remaining_permissions'},

                debug           => 1,

            }

    );

    if($op eq 'add_validate'){

        my $description = $input->param('description');

        my $itemtype_code = $input->param('itemtype');

        $itemtype_code = uc($itemtype_code);

        #Create a new itemtype object using the user inputted itemtype and description

        my $itemtype= Koha::ItemType->new(

            { itemtype    => $itemtype_code,

              description => $description,

            }

        );

        eval{ $itemtype->store; };

        my $message;

#Fill the $message variable with an error if the item type object was not successfully created and inserted into the itemtypes table

        if($itemtype){

            $message = 'success_on_insert';

        }else{

            $message = 'error_on_insert';

        }

        $template->param('message' => $message);

    }

}elsif ( $step && $step == 5){

    #Find all the existing categories to display in a dropdown box in the template

    my $categories;

    $categories= Koha::Patron::Categories->search();

    $template->param(

        categories => $categories,

    );

    #Find all the exisiting item types to display in a dropdown box in the template

    my $itemtypes;

    $itemtypes= Koha::ItemTypes->search();

    $template->param(

        itemtypes => $itemtypes,

    );

    #Find all the exisiting libraries to display in a dropdown box in the template

    my $libraries = Koha::Libraries->search( {}, { order_by => ['branchcode'] }, );

    $template->param(libraries   => $libraries,

                     group_types => [

                {   categorytype => 'searchdomain',

                    categories   => [ Koha::LibraryCategories->search( { categorytype => 'searchdomain' } ) ],

                },

                {   categorytype => 'properties',

                    categories   => [ Koha::LibraryCategories->search( { categorytype => 'properties' } ) ],

                },

                ]

    );

    my $input = CGI->new;

    my $dbh = C4::Context->dbh;

    my ($template, $loggedinuser, $cookie) = C4::InstallAuth::get_template_and_user({template_name => "/onboarding/onboardingstep5.tt",

                query => $input,

                type => "intranet",

                authnotrequired => 0,

                flagsrequired => {parameters => 'manage_circ_rules'},

                debug => 1,

    });

#If no libraries exist then set the $branch value to *

    my $branch = $input->param('branch');

    unless ( $branch ) {

          if ( C4::Context->preference('DefaultToLoggedInLibraryCircRules') ) {

                $branch = Koha::Libraries->search->count() == 1 ? undef : C4::Context::mybranch();

           }

           else {

                $branch = C4::Context::only_my_library() ? ( C4::Context::mybranch() || '*' ) : '*';

           }

    }

    $branch = '*' if $branch eq 'NO_LIBRARY_SET';

    my $op = $input->param('op') || q{};

    if($op eq 'add_validate'){

        my $type = $input->param('type');

        my $br = $input->param('branch');

        my $bor = $input->param('categorycode');

        my $itemtype = $input->param('itemtype');

        my $maxissueqty = $input->param('maxissueqty');

        my $issuelength = $input->param('issuelength');

        my $lengthunit = $input->param('lengthunit');

        my $renewalsallowed = $input->param('renewalsallowed');

        my $renewalperiod = $input->param('renewalperiod');

        my $onshelfholds = $input->param('onshelfholds') || 0;

        $maxissueqty =~ s/\s//g;

        $maxissueqty = undef if $maxissueqty !~ /^\d+/;

        $issuelength = $issuelength eq q{} ? undef : $issuelength;

        my $params ={

            branchcode      => $br,

            categorycode    => $bor,

            itemtype        => $itemtype,

            maxissueqty     => $maxissueqty,

            renewalsallowed => $renewalsallowed,

            renewalperiod   => $renewalperiod,

            issuelength     => $issuelength,

            lengthunit      => $lengthunit,

            onshelfholds    => $onshelfholds,

        };

         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);

        }

    }

#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 = ?

            |);

            $sth_search->execute();

            my $res = $sth_search->fetchrow_hashref();

            if ($res->{total}) {

                $sth_update->execute($maxissueqty);

            } else {

                $sth_insert->execute($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 = ?");

            $sth_search->execute($branch);

            my $res = $sth_search->fetchrow_hashref();

            if ($res->{total}) {

                $sth_update->execute($onshelfholds, $branch);

            } else {

            $sth_insert->execute($branch, $onshelfholds);

            }

        }

#End new code

       my $issuingrule = Koha::IssuingRules->find({categorycode => $bor, itemtype => $itemtype, branchcode => $br });

       if($issuingrule){

           $issuingrule->set($params)->store();

           push @messages, {type=> 'error', code => 'error_on_insert'};#Stops crash of the onboarding tool if someone makes a circulation rule with the same item type, library and patron categroy as an exisiting circulation rule.

       }else{

           Koha::IssuingRule->new()->set($params)->store();

       }

    }

}

output_html_with_http_headers $input, $cookie, $template->output;

                    <li><a href="/cgi-bin/koha/summary.pl">Summary</a></li>

<link rel="stylesheet" type="text/css" href="[% interface %]/lib/jquery/jquery-ui-1.11.4.min.css" />

<link rel="stylesheet" type="text/css" href="[% interface %]/lib/bootstrap/bootstrap.min.css" />

<link rel="stylesheet" type="text/css" href="[% interface %]/lib/font-awesome/css/font-awesome.min.css" />

<link rel="stylesheet" type="text/css" media="print" href="[% interface %]/[% theme %]/css/print.css" />

<script type="text/javascript" src="[% interface %]/lib/jquery/jquery-2.2.3.min.js"></script>

<script type="text/javascript" src="[% interface %]/lib/jquery/jquery-migrate-1.3.0.min.js"></script>

<script type="text/javascript" src="[% interface %]/lib/jquery/jquery-ui-1.11.4.min.js"></script>

<script type="text/javascript" src="[% interface %]/lib/shortcut/shortcut.js"></script>

<script type="text/javascript" src="[% interface %]/lib/jquery/plugins/jquery.cookie.min.js"></script>

<script type="text/javascript" src="[% interface %]/lib/jquery/plugins/jquery.highlight-3.js"></script>

<script type="text/javascript" src="[% interface %]/lib/bootstrap/bootstrap.min.js"></script>

<script type="text/javascript" src="[% interface %]/lib/jquery/plugins/jquery.validate.min.js"></script>

<!-- koha core js -->

<script type="text/javascript" src="[% interface %]/[% theme %]/js/staff-global.js"></script>

[% INCLUDE 'doc-head-open.inc' %]<title>Koha &rsaquo; Web installer &rsaquo; Step 3</title>

[% IF ( finish ) %]<meta http-equiv="refresh" content="10; url=/cgi-bin/koha/mainpage.pl">[% END %]

[% INCLUDE 'installer-doc-head-close.inc' %]

<div>

<h1 id="logo"><img alt="Koha" src="[% interface %]/[% theme %]/img/koha.org-logo.gif" /> Koha web  installer &rsaquo; Step 3</h1>

[% IF ( selectframeworks ) %]

    <script type="text/javascript">

    //<![CDATA[

    var surl = unescape(window.location.pathname);

    function doLoad()

    {

        // the timeout value should be the same as in the "refresh" meta-tag

        setTimeout( "refresh()", 2*1000 );

    }

    function refresh(value)

    {

        //  The argument to the location.reload function determines

        //  if the browser should retrieve the document from the

        //  web-server.  In our example all we need to do is cause

        //  the JavaScript block in the document body to be

        //  re-evaluated.  If we needed to pull the document from

        //  the web-server again (such as where the document contents

        //  change dynamically) we would pass the argument as 'true'.

        //

        surl=surl+'?step=3&op=selectframeworks&fwklanguage='+value;

        window.location.replace( surl );

    }

    function selectAllFrameworks()

    {

        //  A handy short link that selects all available checkboxes

        //  on the page.

        //

        var checkboxes = document.getElementsByTagName("input");

        for (var i = 0; i < checkboxes.length; i++)

        {

            if (checkboxes[i].type == 'checkbox')

            {

                checkboxes[i].checked = true;

            }

        }

        //  Prevent event propergation.

        return false;

    }

    function Hide(link)

    {

        //  Toggle the display of a given element on the page.

        //

        subfield = document.getElementById('bloc'+link);

        var initstyle = subfield.style.display;

        if (initstyle == 'block') subfield.style.display = 'none' ;

        if (initstyle == 'none') subfield.style.display = 'block' ;

    }

    //]]>

    </script>

[% END %]

[% IF ( finish ) %]

    <h1>Congratulations, installation complete</h1>

    <p>If this page does not redirect in 5 seconds, click <a href="/">here</a>.</p>

[% END %]

[% IF ( choosemarc ) %]

    <h2 align="center">Select your MARC flavor</h2>

    <form name="frameworkselection" method="post" action="install.pl">

    <input type="hidden" name="step" value="3" />

    <input type="hidden" name="op" value="selectframeworks"/>

    <p>

    [% FOREACH flavourloo IN flavourloop %]

    <div>

            [% IF ( flavourloo.checked ) %]

                <input type="radio" name="marcflavour" value="[% flavourloo.code %]" checked="checked" /> [% flavourloo.label %] <br/>

            [% ELSE %]

                <input type="radio" name="marcflavour" value="[% flavourloo.code %]" /> [% flavourloo.label %] <br/>

            [% END %]

    </div>

    [% END %]

    </p>

    <p> Click 'Next' to continue <input value="Next &gt;&gt;" type="submit" /></p>

    </form>

[% END %]

[% IF ( selectframeworks ) %]

    <h2 align="center">Selecting Default Settings</h2>

    <script type="text/javascript">

        var linklabel = _("Select all sample data");

        document.write('<p><a href="#" onclick="return selectAllFrameworks();">'+linklabel+'</a></p>');

    </script>

    <form name="frameworkselection" method="post" action="install.pl">

    <input type="hidden" name="step" value="3" />

    <input type="hidden" name="op" value="addframeworks" />

    [% IF ( frameworksloop ) %]

    <h2>MARC frameworks: [% marcflavour %]</h2>

    [% IF ( en_marc_frameworks ) %]

        <h4><span class="error">No MARC frameworks are available for your language.

                Defaulting to the frameworks supplied for English (en)<span></h4>

    [% END %]

    [% FOREACH frameworksloo IN frameworksloop %]

    <div>

    <h3>[% frameworksloo.label %]</h3>

    [% FOREACH framework IN frameworksloo.frameworks %]

        <table style="border:1px;vertical-align:top;">

        <tr>

        <td style="vertical-align:top;">

         [% IF ( framework.checked ) %]

         <input type="checkbox" name="framework" value="[% framework.fwkfile %]" id="[% framework.fwkname %]" checked="checked" />

         [% ELSE %]

             <input type="checkbox" name="framework" value="[% framework.fwkfile %]" id="[% framework.fwkname %]" />

         [% END %]

         </td>

         <td>

            <label for="[% framework.fwkname %]">

                [% framework.fwkdescription %]

                <em>([% framework.fwkname %])</em>

            </label>

        </td>

        </table>

    [% END %]

    </div>

    [% END %]

    <h2>Other data</h2>

    [% END %]

    [% IF ( en_sample_data ) %]

        <h4><span class="error">No sample data and settings are available for your language.

                Defaulting to the samples supplied for English (en)<span></h4>

    [% END %]

    [% FOREACH levelloo IN levelloop %]

    <div>

    <h3>[% levelloo.label %]</h3>

    [% FOREACH framework IN levelloo.frameworks %]

        <table style="border:1px;vertical-align:top;">

        <tr>

        <td style="vertical-align:top;">

            [% IF ( framework.checked ) %]

                <input type="checkbox" name="framework" value="[% framework.fwkfile %]"  id="[% framework.fwkname %]" />

            [% ELSE %]

                <input type="checkbox" name="framework" value="[% framework.fwkfile %]" id="[% framework.fwkname %]" />

            [% END %]

        </td>

        <td>

            <label for="[% framework.fwkname %]">

                [% framework.fwkdescription %]

                <em>([% framework.fwkname %])</em>

            </label>

        </td>

        </table>

    [% END %]

    </div>

    [% END %]

    <p>When you've made your selections, please click 'Import' below to begin the process. It may take a while to complete,

    please be patient.</p>

    <p><input type="submit" value="Import &gt;&gt;" />

    </p>

    </form>

[% END %]

[% IF ( addframeworks ) %]

    [% FOREACH lis IN list %]

    <h3>[% lis.level %] data added</h3>

    <ul>

    [% FOREACH fwklis IN lis.fwklist %]

        <li>[% fwklis.fwkname %][% IF ( fwklis.error ) %]<br /><span class="error">[% fwklis.error %]</span>[% END %] </li>

    [% END %]

    </ul>

    [% END %]

    <h3>All done!</h3>

    <p>Installation complete.<br />

        <p>Click on 'Finish' to complete and load the Koha Staff Interface.

        <form name="finish">

        <input type="hidden" name="step" value="3" />

        <input type="hidden" name="op" value="finish" />

        <input type="submit" value="Finish" /></form>

        </p>

    </p>

[% END %]

[% IF ( importdatastructure ) %]

    [% IF ( error ) %]

        <p>The following error occurred while importing the database structure:</p>

        <p class="error">[% error %] </p>

        <p>Please contact your system administrator</p>

    [% ELSE %]

        <h2 align="center">Success</h2>

        <ul>

        <li>Database tables created</li>

        </ul>

        <form action="install.pl">

        <input type="hidden" name="step" value="3" />

            <p> Click 'Next' to continue <input value="Next &gt;&gt;" type="submit" /></p>

        </form>

    [% END %]

[% END %]

[% IF ( proposeimport ) %]

    <p>Now we're ready to create the database tables and fill them with some default data.</p>

    <form action="install.pl">

    <input type="hidden" name="step" value="3" />

    <input type="hidden" name="op" value="importdatastructure" />

    <p> Click 'Next' to continue <input value="Next &gt;&gt;" type="submit" /></p>

    </form>

[% END %]

[% IF ( default ) %]

    [% IF ( upgrading ) %]

        <p>

            We are upgrading from Koha [% dbversion %] to [% kohaversion %], you must <a href="install.pl?step=3&amp;op=updatestructure" class="button">update your database</a>

        </p>

    [% ELSE %]

        <p>We are ready to do some basic configuration. Please install some basic configuration settings to continue the installation:

        <br>

        <br>

            <a href="install.pl?step=3&amp;op=choosemarc" class="button"><button>Install basic configuration settings</button></a>

        </p>

    [% END %]

[% END %]

[% IF ( updatestructure ) %]

  <div><h2 align="center">Updating database structure</h2>

  [% IF ( has_update_succeeds ) %]

  <p>Update report :</p>

    <ul>

      [% FOREACH update_repor IN update_report %]

          <li>[% update_repor.line |html %]</li>

      [% END %]

    </ul>

  [% END %]

  [% IF ( has_update_errors ) %]

  <p>Update errors :</p>

    <ul>

      [% FOREACH update_error IN update_errors %]

          <li class="update_error">[% update_error.line |html %]</li>

      [% END %]

    </ul>

  [% END %]

 [% UNLESS ( has_update_errors ) %]

    <p>Everything went OK, update done.</p>

  [% END %]

<a href="install.pl?step=3&amp;op=finished" class="button">Continue to log in to Koha</a>

  </div>

[% END %]

</div>

</body>

</html>

    <h2 align= "center"> [% setup %] setup</h2>

               <li> [% framework.fwkdescription %]</li>

                 <em>([% framework.fwkname %])</em>

            </label>

            </ul>

         </td>

        [% ELSE %]

        <td>

            <label for= "[% framework.fwkname %]">

        [% END %]

        </tr>

        [% IF (levelloo.label == "Default") && (setup=="Basic")%]

           <ul>

            </ul>

        [% ELSE %]

        <td>

            <label for= "[% framework.fwkname %]">

            [% framework.fwkdescription %]

            <em>([% framework.fwkname %])</em>

            </label>

        </td>

        [% END %]

        </tr>

<!-- Includes for creating library-->

[% INCLUDE 'doc-head-open.inc' %]

[% INCLUDE 'installer-doc-head-close.inc' %]

<head>

<title>Welcome &rsaquo; to  &rsaquo; Koha</title>

</head>

 <!--Header for the koha onboarding tool-->

<div>

      <h1 align="center"> Welcome to Koha</h1>

      <h1 id="logo"><img alt="Koha" style="width:50%;margin:auto;display:block;align:center;"  src="[% interface %]/[% theme %]/img/koha.org-logo.gif"/></h1>

      <h2 align="center"> We're just going to set up a few more things...</h2>

      <form name="startkoha" method="post" action="onboarding.pl">

         <input type="hidden" name="step" value="1"/>

         <input type="submit" name="start" value="Start setting up my Koha"/>

      </form>

</div>

<!--Includes for creating library-->

[% INCLUDE 'doc-head-open.inc' %]

[% INCLUDE 'installer-doc-head-close.inc' %]

<head>

<title>Welcome &rsaquo; to  &rsaquo; Koha</title>

</head>

<!--Header for the koha onboarding tool-->

<div>

    <h1 align="center"> Welcome to Koha</h1>

    <h1 id="logo"><img alt="Koha" style="width:50%;margin:auto;display:block;align:center;"  src="[% interface %]/[% theme %]/img/koha.org-logo.gif"/></h1>

</div>

 [% IF libraries.count > 0 %]

 <br>

    <h3 align="left">You do not need to create a library as you have already installed the sample library data previously</h3>

    <form name="skiplibrary" method="post" action="onboarding.pl">

        <input type="hidden" name="step" value="2"/>

        <div>

            <input type="submit" name="start" value="Add a patron category"/>

        </div>

    </form>

    <!--Create a library screen 2-->

[% ELSIF (createlibrary) %]

        <!--New Library created-->

       [% IF message == "success_on_insert" %]

            <form name="createlibrary" method="post" action="onboarding.pl">

                <input type="hidden" name="step" value="2"/>

                <h1 align="left"> New Library</h1>

                <div>

                    <p> Success: Library created!

                    </p>

                    <p> To add another library and for more settings, <br>

                    go to:<br><br>

                    More->Administration->Libraries and groups<br>

                    OR<br>

                    Administration->Libraries and groups

                    </p>

                </div>

                Next up:

                <input type="submit" name="start" value="Add a patron category"/>

            </form>

        [%ELSE %]

            <!--Implement if statement to determine if library was succesfully created here....-->

            <form name="retrylibrary" method="post" action="onboarding.pl">

                <input type="hidden" name="step" value="1"/>

                <h1 align="left">Failed </h1>

                <div>

                    <p> Library was not successfully created</br>

                    Please try again or contact your system administrator. </p>

                </div>

                <input type="submit" value="Try again"/>

            </form>

        [%END%]

[% ELSE %]

<!--Create a library screen 1-->

        <h2>Create a Library</h2>

        <form name="LibraryCreation" method="post" action="onboarding.pl">

            <fieldset class="rows">

                 <input type="hidden" name="step" value="1"/>

                 <input type="hidden" name="createlibrary" value="createlibrary"/>

                 <ol>

                     <li>

                        <label for="branchcode" class="required">Library code: </label>

                        <input type="text"  pattern="^[A-Za-z]{0,10}$" title="Please enter 3 capital letters" name="branchcode" id="branchcode" size="10" maxlength="10" value="[% library.branchcode |html %]" class="required" required="required" />

                        <span class="required">Required</span>

                    </li>

                    <li>

                        <label for="branchname" class="required">Name: </label>

                        <input type="text" pattern="[a-zA-Z ]+" title="Please enter a sentence of letters only" name="branchname" id="branchname" size="42" value="[% library.branchname |html %]" class="    required" required="required" style="width:200px;">

                        <span class="required">Required</span>

                    </li>

                 </ol>

             </fieldset>

             <br>

             <input type="submit" class="action" value="Submit"/>

     </form>

[% END %]

<!--Pragmas for using and including packages for create patron category-->

[% USE Koha %]

[% USE KohaDates %]

[% USE Price %]

[% INCLUDE 'doc-head-open.inc' %]

<title> Add a patron category</title>

[% INCLUDE 'installer-doc-head-close.inc' %]

[% INCLUDE 'calendar.inc' %]

<script type="text/javascript">

//<![CDATA[

var debug    = "";

var dformat  = "us";

var sentmsg = 0;

if (debug > 1) {alert("dateformat: " + dformat + "\ndebug is on (level " + debug + ")");}

var MSG_PLEASE_ENTER_A_VALID_DATE = (_("Please enter a valid date (should match %s)."));

function is_valid_date(date) {

        // An empty string is considered as a valid date for convenient reasons.

        if ( date === '' ) return 1;

        var dateformat = dateformat_str = 'us';

        if ( dateformat == 'us' ) {

           if ( date.search(/^\d{2}\/\d{2}\/\d{4}($|\s)/) == -1 ) return 0;

                  dateformat = 'mm/dd/yy';

           } else if ( dateformat == 'metric' ) {

                  if ( date.search(/^\d{2}\/\d{2}\/\d{4}($|\s)/) == -1 ) return 0;

                  dateformat = 'dd/mm/yy';

           } else if (dateformat == 'iso' ) {

                  if ( date.search(/^\d{4}-\d{2}-\d{2}($|\s)/) == -1 ) return 0;

                  dateformat = 'yy-mm-dd';

           } else if ( dateformat == 'dmydot' ) {

                  if ( date.search(/^\d{2}\.\d{2}\.\d{4}($|\s)/) == -1 ) return 0;

                  dateformat = 'dd.mm.yy';

           }

           try {

               $.datepicker.parseDate(dateformat, date);

           } catch (e) {

               return 0;

           };

               return 1;

}function get_dateformat_str(dateformat) {

           var dateformat_str;

           if ( dateformat == 'us' ) {

                dateformat_str = 'mm/dd/yyyy';

           } else if ( dateformat == 'metric' ) {

                dateformat_str = 'dd/mm/yyyy';

           } else if (dateformat == 'iso' ) {

                dateformat_str = 'yyyy-mm-dd';

           } else if ( dateformat == 'dmydot' ) {

                dateformat_str = 'dd.mm.yyyy';

           }

           return dateformat_str;

}

function validate_date (dateText, inst) {

           if ( !is_valid_date(dateText) ) {

               var dateformat_str = get_dateformat_str( 'us' );

               alert(MSG_PLEASE_ENTER_A_VALID_DATE.format(dateformat_str));

               $('#'+inst.id).val('');

           }

}

function Date_from_syspref(dstring) {

            var dateX = dstring.split(/[-/.]/);

            if (debug > 1 && sentmsg < 1) {sentmsg++; alert("Date_from_syspref(" + dstring + ") splits to:\n" + dateX.join("\n"));}

            if (dformat === "iso") {

                return new Date(dateX[0], (dateX[1] - 1), dateX[2]);  // YYYY-MM-DD to (YYYY,m(0-11),d)

            } else if (dformat === "us") {

                return new Date(dateX[2], (dateX[0] - 1), dateX[1]);  // MM/DD/YYYY to (YYYY,m(0-11),d)

            } else if (dformat === "metric") {

                return new Date(dateX[2], (dateX[1] - 1), dateX[0]);  // DD/MM/YYYY to (YYYY,m(0-11),d)

            } else if (dformat === "dmydot") {

                return new Date(dateX[2], (dateX[1] - 1), dateX[0]);  // DD.MM.YYYY to (YYYY,m(0-11),d)

            } else {

                if (debug > 0) {alert("KOHA ERROR - Unrecognized date format: " +dformat);}

                return 0;

            }

}

function DateTime_from_syspref(date_time) {

           var parts = date_time.split(" ");

           var date = parts[0];

           var time = parts[1];

           parts = time.split(":");

           var hour = parts[0];

           var minute = parts[1];

           if ( hour < 0 || hour > 23 ) {

                   return 0;

           }

           if ( minute < 0 || minute > 59 ) {

                   return 0;

           }

           var datetime = Date_from_syspref( date );

           if ( isNaN( datetime.getTime() ) ) {

                   return 0;

           }

           datetime.setHours( hour );

           datetime.setMinutes( minute );

           return datetime;

}

/* Instead of including multiple localization files as you would normally see with

      jQueryUI we expose the localization strings in the default configuration */

jQuery(function($){

          $.datepicker.regional[''] = {

              closeText: _("Done"),

              prevText: _("Prev"),

              nextText: _("Next"),

              currentText: _("Today"),

              monthNames: [_("January"),_("February"),_("March"),_("April"),_("May"),_("June"),

                           _("July"),_("August"),_("September"),_("October"),_("November"),_("December")],

              monthNamesShort: [_("Jan"), _("Feb"), _("Mar"), _("Apr"), _("May"), _("Jun"),

                                _("Jul"), _("Aug"), _("Sep"), _("Oct"), _("Nov"), _("Dec")],

              dayNames: [_("Sunday"), _("Monday"), _("Tuesday"), _("Wednesday"), _("Thursday"), _("Friday"), _("Saturday")],

              dayNamesShort: [_("Sun"), _("Mon"), _("Tue"), _("Wed"), _("Thu"), _("Fri"), _("Sat")],

              dayNamesMin: [_("Su"),_("Mo"),_("Tu"),_("We"),_("Th"),_("Fr"),_("Sa")],

              weekHeader: _("Wk"),

              dateFormat: "mm/dd/yy",

              firstDay: 0,

              isRTL: false,

              showMonthAfterYear: false,

              yearSuffix: ''};

              $.datepicker.setDefaults($.datepicker.regional['']);

                                                                                                                                               });

$(document).ready(function(){

        $.datepicker.setDefaults({

             showOn: "both",

             changeMonth: true,

             changeYear: true,

             buttonImage: '/intranet-tmpl/prog/img/famfamfam/silk/calendar.png',

             buttonImageOnly: true,

             showButtonPanel: true,

             showOtherMonths: true,

             selectOtherMonths: true

        });