t/NorwegianPatronDB.t

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  17
  18 use Modern::Perl;
  19 use Test::More;
  20 use Test::MockModule;
  21 use t::lib::Mocks;
  22 use Data::Dumper;
  23
  24 # Check that all the modules we need are installed, or bail out
  25 BEGIN {
  26     my $missing_lib;
  27     eval {
  28         require Test::DBIx::Class;
  29         1;
  30     } or do {
  31         $missing_lib = "Test::DBIx::Class";
  32     };
  33
  34     eval {
  35         require SOAP::Lite;
  36         1;
  37     } or do {
  38         $missing_lib = "SOAP::Lite";
  39     };
  40
  41     eval {
  42         require Crypt::GCrypt;
  43         1;
  44     } or do {
  45         $missing_lib = "Crypt::GCrypt";
  46     };
  47
  48     eval {
  49         require Convert::BaseN;
  50         1;
  51     } or do {
  52         $missing_lib = "Convert::BaseN";
  53     };
  54
  55     if ( $missing_lib ) {
  56         plan skip_all => $missing_lib . " is not available.";
  57     } else {
  58         # Everything good
  59         plan tests => 73;
  60     }
  61 }
  62
  63 use Test::DBIx::Class {
  64     schema_class => 'Koha::Schema',
  65     connect_info => ['dbi:SQLite:dbname=:memory:','',''],
  66     connect_opts => { name_sep => '.', quote_char => '`', },
  67     fixture_class => '::Populate',
  68 }, 'Borrower', 'BorrowerSync';
  69
  70 # Make the code in the module use our mocked Koha::Schema/Koha::Database
  71 my $db = Test::MockModule->new('Koha::Database');
  72 $db->mock(
  73     # Schema() gives us the DB connection set up by Test::DBIx::Class
  74     _new_schema => sub { return Schema(); }
  75 );
  76
  77 fixtures_ok [
  78     'Borrower' => [
  79         [qw/firstname surname borrowernumber address city/],
  80         ['Test', 'Borrower', 1, 'Test road', 'Test city'],
  81         ['Test', 'Borrower', 2, 'Test road', 'Test city'],
  82         ['Test', 'Borrower', 3, 'Test road', 'Test city'],
  83         ['Test', 'Borrower', 4, 'Test road', 'Test city'],
  84     ],
  85     'BorrowerSync' => [
  86         [qw/borrowernumber sync syncstatus lastsync hashed_pin synctype/],
  87         [1, 1, 'new',    '2014-03-31T12:35:14', 'abc', 'norwegianpatrondb' ],
  88         [2, 1, 'edited', '2014-03-31T12:35:14', 'abc', 'norwegianpatrondb' ],
  89         [3, 1, 'new',    '2014-03-31T12:35:14', 'abc', 'norwegianpatrondb' ],
  90         [4, 1, 'new',    '2014-03-31T12:35:14', 'abc', 'norwegianpatrondb' ],
  91     ],
  92 ], 'installed some fixtures';
  93
  94 =head1 LOADING THE MODULE
  95
  96 =cut
  97
  98 BEGIN { use_ok( 'Koha::NorwegianPatronDB', ':all' ) }
  99
 100
 101 =head1 UTILITY SUBROUTINES
 102
 103 =head2 NLCheckSysprefs
 104
 105 Relevant sysprefs:
 106
 107 =over 4
 108
 109 =item * NorwegianPatronDBEnable
 110
 111 =item * NorwegianPatronDBEndpoint
 112
 113 =item * NorwegianPatronDBUsername
 114
 115 =item * NorwegianPatronDBPassword
 116
 117 =back
 118
 119 =cut
 120
 121 BEGIN {
 122     t::lib::Mocks::mock_config('nlkey',        'key');
 123     t::lib::Mocks::mock_config('nlvendoruser', 'user');
 124     t::lib::Mocks::mock_config('nlvendorpass', 'pass');
 125 }
 126 t::lib::Mocks::mock_preference('NorwegianPatronDBEnable',   0);
 127 t::lib::Mocks::mock_preference('NorwegianPatronDBEndpoint', '');
 128 t::lib::Mocks::mock_preference('NorwegianPatronDBUsername', '');
 129 t::lib::Mocks::mock_preference('NorwegianPatronDBPassword', '');
 130
 131 ok( my $result = NLCheckSysprefs(), 'call NLCheckSysprefs() ok' );
 132 is( $result->{ 'error' },     1, 'error detected' );
 133 is( $result->{ 'nlenabled' }, 0, 'NL is not enabled' );
 134 is( $result->{ 'endpoint' },  0, 'an endpoint is not specified' );
 135 is( $result->{ 'userpass' },  0, 'username and/or password is missing' );
 136
 137 t::lib::Mocks::mock_preference('NorwegianPatronDBEnable',   1);
 138 ok( $result = NLCheckSysprefs(), 'call NLCheckSysprefs() ok' );
 139 is( $result->{ 'error' },     1, 'error detected' );
 140 is( $result->{ 'nlenabled' }, 1, 'NL is enabled' );
 141 is( $result->{ 'endpoint' },  0, 'an endpoint is not specified' );
 142 is( $result->{ 'userpass' },  0, 'username and/or password is missing' );
 143
 144 t::lib::Mocks::mock_preference('NorwegianPatronDBEnable',   0);
 145 t::lib::Mocks::mock_preference('NorwegianPatronDBUsername', 'user');
 146 t::lib::Mocks::mock_preference('NorwegianPatronDBPassword', 'pass');
 147 ok( $result = NLCheckSysprefs(), 'call NLCheckSysprefs() ok' );
 148 is( $result->{ 'error' },     1, 'error detected' );
 149 is( $result->{ 'nlenabled' }, 0, 'NL is not enabled' );
 150 is( $result->{ 'endpoint' },  0, 'an endpoint is not specified' );
 151 is( $result->{ 'userpass' },  1, 'username and/or password is present' );
 152
 153 t::lib::Mocks::mock_preference('NorwegianPatronDBEnable',   1);
 154 t::lib::Mocks::mock_preference('NorwegianPatronDBEndpoint', 'http://example.com/');
 155 ok( $result = NLCheckSysprefs(), 'call NLCheckSysprefs() ok' );
 156 is( $result->{ 'error' },     0, 'no error detected' );
 157 is( $result->{ 'nlenabled' }, 1, 'NL is enabled' );
 158 is( $result->{ 'endpoint' },  1, 'an endpoint is specified' );
 159 is( $result->{ 'userpass' },  1, 'username and/or password is present' );
 160
 161 =head2 NLGetFirstname and NLGetSurname
 162
 163 =cut
 164
 165 my $firstname = 'Firstname';
 166 my $surname   = 'Surname';
 167 my $fullname  = "$surname, $firstname";
 168 my $wrongname = "$surname $firstname";
 169
 170 is( NLGetFirstname( $fullname  ), $firstname, 'can get firstname from name' );
 171 is( NLGetSurname(   $fullname  ), $surname,   'can get surname from name' );
 172 is( NLGetFirstname( $wrongname ), $wrongname, 'returns full string when name misses comma' );
 173 is( NLGetSurname(   $wrongname ), $wrongname, 'returns full string when name misses comma' );
 174
 175 =head2 NLDecodePin and NLEncryptPIN
 176
 177 =cut
 178
 179 my $pin  = '1234';
 180 my $hash = NLEncryptPIN( $pin );
 181
 182 is( NLEncryptPIN( $pin ), $hash, 'NLEncryptPIN works' );
 183 is( NLDecodePin( $hash ), $pin, 'NLDecodePin works' );
 184
 185 =head2 NLUpdateHashedPIN
 186
 187 =cut
 188
 189 is ( BorrowerSync->find({ 'borrowernumber' => 1 })->get_column('hashed_pin'), 'abc', 'hashed_pin is "abc"' );
 190 # Set a new pin
 191 my $new_pin = 'bcd';
 192 ok( NLUpdateHashedPIN( 1, $new_pin ), 'NLUpdateHashedPIN runs ok' );
 193 # Hash the new pin and compare it to the one stored in the database
 194 my $hashed_pin = Koha::NorwegianPatronDB::_encrypt_pin( $new_pin );
 195 is ( BorrowerSync->find({ 'borrowernumber' => 1 })->get_column('hashed_pin'), $hashed_pin, 'hashed_pin was updated' );
 196
 197 =head2 NLMarkForDeletion
 198
 199 =cut
 200
 201 is ( BorrowerSync->find({ 'borrowernumber' => 3 })->get_column('syncstatus'), 'new', 'syncstatus is "new"' );
 202 ok( NLMarkForDeletion( 3 ), 'NLMarkForDeletion runs ok' );
 203 # Check that the syncstatus was updated. Note: We will use this status later, to check syncing of deleted borrowers
 204 is ( BorrowerSync->find({ 'borrowernumber' => 3 })->get_column('syncstatus'), 'delete', 'syncstatus is "delete"' );
 205
 206 =head2 NLGetSyncDataFromBorrowernumber
 207
 208 =cut
 209
 210 ok( my $sync_data = NLGetSyncDataFromBorrowernumber( 1 ), 'NLGetSyncDataFromBorrowernumber runs ok' );
 211 isa_ok( $sync_data, 'Koha::Schema::Result::BorrowerSync' );
 212 is( $sync_data->sync, 1, 'the sync is on' );
 213 is( $sync_data->syncstatus, 'new', 'syncstatus is "new"' );
 214 is( $sync_data->lastsync, '2014-03-31T12:35:14', 'lastsync is ok' );
 215 is( $sync_data->hashed_pin, $hashed_pin, 'hashed_pin is ok' );
 216
 217 =head1 SUBROUTINES THAT TALK TO SOAP
 218
 219 =head2 NLSearch
 220
 221 =cut
 222
 223 my $lite = Test::MockModule->new('SOAP::Lite');
 224
 225 # Mock a successfull call to the "hent" method
 226 $lite->mock(
 227     hent => sub { return SOAP::Deserializer->deserialize( hent_success() )->result; }
 228 );
 229 ok( my $res = NLSearch( '12345678910' ), 'successfull call to NLSearch' );
 230 is( $res->{'antall_poster_returnert'}, 1, 'got 1 record' );
 231 isa_ok( $res, "Resultat" );
 232 isa_ok( $res->{'respons_poster'}, "LaanerListe" );
 233 isa_ok( $res->{'respons_poster'}[0], "Laaner" );
 234
 235 # Mock an unsuccessfull call to the "hent" method
 236 $lite->mock(
 237     hent => sub { return SOAP::Deserializer->deserialize( hent_failure() )->result; }
 238 );
 239 ok( $res = NLSearch( '12345678910' ), 'call to NLSearch with an illegal argument' );
 240 is( $res->{'antall_poster_returnert'}, 0, 'got 0 records' );
 241 isa_ok( $res, "Resultat" );
 242 like( $res->{'melding'}, qr/Ulovlig argument: hverken LNR eller FNR_HASH/, "got expected error message for an illegal identifier" );
 243
 244 =head2 NLSync
 245
 246 =head3 New patron
 247
 248 =cut
 249
 250 my $borrower = Borrower->find({ 'borrowernumber' => 1 });
 251 $lite->mock(
 252     nyPost => sub { return SOAP::Deserializer->deserialize( nyPost_success() )->result; }
 253 );
 254 is ( BorrowerSync->find({ 'borrowernumber' => 1 })->get_column('syncstatus'), 'new', 'patron is new' );
 255 ok ( $result = NLSync({ 'patron' => $borrower }), 'successfull call to NLSync via patron ("nyPost")' );
 256 is ( BorrowerSync->find({ 'borrowernumber' => 1 })->get_column('syncstatus'), 'synced', 'patron is synced' );
 257
 258 # Now do the same test, but pass in a borrowernumber, not a Koha::Schema::Result::Borrower
 259 is ( BorrowerSync->find({ 'borrowernumber' => 4 })->get_column('syncstatus'), 'new', 'patron is new' );
 260 ok ( $result = NLSync({ 'borrowernumber' => 4 }), 'successfull call to NLSync via borrowernumber ("nyPost")' );
 261 is ( BorrowerSync->find({ 'borrowernumber' => 4 })->get_column('syncstatus'), 'synced', 'patron is synced' );
 262
 263 =head3 Edited patron
 264
 265 =cut
 266
 267 ok ( $borrower = Borrower->find({ 'borrowernumber' => 2 }), 'find our "edited" mock patron' );
 268 $lite->mock(
 269     endre => sub { return SOAP::Deserializer->deserialize( endre_success() )->result; }
 270 );
 271 is ( BorrowerSync->find({ 'borrowernumber' => 2 })->get_column('syncstatus'), 'edited', 'patron is edited' );
 272 ok ( $result = NLSync({ 'patron' => $borrower }), 'successfull call to NLSync ("endre")' );
 273 is ( BorrowerSync->find({ 'borrowernumber' => 2 })->get_column('syncstatus'), 'synced', 'patron is synced' );
 274
 275 =head3 Deleted patron
 276
 277 =cut
 278
 279 ok ( $borrower = Borrower->find({ 'borrowernumber' => 3 }), 'find our "deleted" mock patron' );
 280 $lite->mock(
 281     slett => sub { return SOAP::Deserializer->deserialize( endre_success() )->result; }
 282 );
 283 is ( BorrowerSync->find({ 'borrowernumber' => 3 })->get_column('syncstatus'), 'delete', 'patron is marked for deletion' );
 284 ok ( $result = NLSync({ 'patron' => $borrower }), 'successfull call to NLSync ("slett")' );
 285 is ( BorrowerSync->find({ 'borrowernumber' => 3 })->get_column('sync'), 0, 'sync is now disabled' );
 286
 287 =head2 NLGetChanged
 288
 289 =cut
 290
 291 # Mock a successfull call to the "soekEndret" method
 292 $lite->mock(
 293     soekEndret => sub { return SOAP::Deserializer->deserialize( soekEndret_success() ); }
 294 );
 295 ok( $res = NLGetChanged(), 'successfull call to NLGetChanged - 2 results' );
 296 is( $res->{'melding'}, 'OK', 'got "OK"' );
 297 is( $res->{'antall_poster_returnert'}, 2, 'got 2 records' );
 298 isa_ok( $res, "Resultat" );
 299 isa_ok( $res->{'respons_poster'}, "LaanerListe" );
 300 isa_ok( $res->{'respons_poster'}[0], "Laaner" );
 301
 302
 303 # Mock a successfull call to the "soekEndret" method, but with zero new records
 304 $lite->mock(
 305     soekEndret => sub { return SOAP::Deserializer->deserialize( soekEndret_zero_new() ); }
 306 );
 307 ok( $res = NLGetChanged(), 'successfull call to NLGetChanged - 0 results' );
 308 is( $res->{'melding'}, 'ingen treff', 'got "ingen treff"' );
 309 is( $res->{'antall_poster_returnert'}, 0, 'got 0 records' );
 310 is( $res->{'antall_treff'}, 0, 'got 0 records' );
 311
 312 =head1 SAMPLE SOAP XML RESPONSES
 313
 314 These responses can be gathered by setting "outputxml()" to true on the SOAP
 315 client:
 316
 317     my $client = SOAP::Lite
 318         ->on_action( sub { return '""';})
 319         ->uri('http://lanekortet.no')
 320         ->proxy('https://fl.lanekortet.no/laanekort/fl_test.php')
 321         ->outputxml(1);
 322     my $response = $client->slett( $x );
 323     say $response;
 324
 325 Pretty formatting can be achieved by piping the output from a test script
 326 through xmllint:
 327
 328     perl my_test_script.pl > xmllint --format -
 329
 330 =cut
 331
 332 sub slett_success {
 333
 334     return <<'ENDRESPONSE';
 335 <?xml version="1.0" encoding="UTF-8"?>
 336 <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="http://lanekortet.no" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
 337   <SOAP-ENV:Body>
 338     <ns1:slettResponse>
 339       <return xsi:type="ns1:Svar">
 340         <status xsi:type="xsd:boolean">true</status>
 341         <melding xsi:type="xsd:string">Test Testersen (1973-08-11) er slettet fra registeret</melding>
 342         <lnr xsi:type="xsd:string">N000106188</lnr>
 343         <server_tid xsi:type="xsd:string">2014-06-02T16:51:58</server_tid>
 344       </return>
 345     </ns1:slettResponse>
 346   </SOAP-ENV:Body>
 347 </SOAP-ENV:Envelope>
 348 ENDRESPONSE
 349
 350 }
 351
 352 sub endre_success {
 353
 354     return <<'ENDRESPONSE';
 355 <?xml version="1.0" encoding="UTF-8"?>
 356 <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="http://lanekortet.no" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
 357   <SOAP-ENV:Body>
 358     <ns1:endreResponse>
 359       <return xsi:type="ns1:Svar">
 360         <status xsi:type="xsd:boolean">true</status>
 361         <melding xsi:type="xsd:string">Oppdaterte felt: navn, p_adresse1, p_postnr, p_sted, p_land, fdato, fnr_hash, kjonn, pin, sist_endret, sist_endret_av</melding>
 362         <lnr xsi:type="xsd:string">N000106188</lnr>
 363         <server_tid xsi:type="xsd:string">2014-06-02T16:42:32</server_tid>
 364       </return>
 365     </ns1:endreResponse>
 366   </SOAP-ENV:Body>
 367 </SOAP-ENV:Envelope>
 368 ENDRESPONSE
 369
 370 }
 371
 372 sub nyPost_success {
 373
 374     return <<'ENDRESPONSE';
 375 <?xml version="1.0" encoding="UTF-8"?>
 376 <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="http://lanekortet.no" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
 377   <SOAP-ENV:Body>
 378     <ns1:nyPostResponse>
 379       <return xsi:type="ns1:Svar">
 380         <status xsi:type="xsd:boolean">true</status>
 381         <melding xsi:type="xsd:string">Ny post er opprettet</melding>
 382         <lnr xsi:type="xsd:string">N000106188</lnr>
 383         <server_tid xsi:type="xsd:string">2014-06-02T14:10:09</server_tid>
 384       </return>
 385     </ns1:nyPostResponse>
 386   </SOAP-ENV:Body>
 387 </SOAP-ENV:Envelope>
 388 ENDRESPONSE
 389
 390 }
 391
 392 sub soekEndret_success {
 393
 394 return <<'ENDRESPONSE';
 395 <?xml version="1.0" encoding="UTF-8"?>
 396 <SOAP-ENV:Envelope
 397     xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
 398     xmlns:ns1="http://lanekortet.no"
 399     xmlns:xsd="http://www.w3.org/2001/XMLSchema"
 400     xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
 401     xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
 402     SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
 403   <SOAP-ENV:Body>
 404     <ns1:soekEndretResponse>
 405       <return xsi:type="ns1:Resultat">
 406         <status xsi:type="xsd:boolean">true</status>
 407         <melding xsi:type="xsd:string">OK</melding>
 408         <antall_treff xsi:type="xsd:int">2</antall_treff>
 409         <antall_poster_returnert xsi:type="xsd:int">2</antall_poster_returnert>
 410         <neste_indeks xsi:type="xsd:int">0</neste_indeks>
 411         <respons_poster SOAP-ENC:arrayType="ns1:Laaner[2]" xsi:type="ns1:LaanerListe">
 412           <item xsi:type="ns1:Laaner">
 413             <lnr xsi:type="xsd:string">N000106186</lnr>
 414             <navn xsi:type="xsd:string">Hansen, Hanne</navn>
 415             <p_adresse1 xsi:type="xsd:string"/>
 416             <p_adresse2 xsi:type="xsd:string"/>
 417             <p_postnr xsi:type="xsd:string"/>
 418             <p_sted xsi:type="xsd:string">BØDØ</p_sted>
 419             <p_land xsi:type="xsd:string">no</p_land>
 420             <p_sjekk xsi:type="xsd:string">0</p_sjekk>
 421             <m_adresse1 xsi:type="xsd:string"/>
 422             <m_adresse2 xsi:type="xsd:string"/>
 423             <m_postnr xsi:type="xsd:string"/>
 424             <m_sted xsi:type="xsd:string"/>
 425             <m_land xsi:type="xsd:string"/>
 426             <m_sjekk xsi:type="xsd:string">0</m_sjekk>
 427             <m_gyldig_til xsi:type="xsd:string">0000-00-00</m_gyldig_til>
 428             <tlf_hjemme xsi:type="xsd:string"/>
 429             <tlf_jobb xsi:type="xsd:string"/>
 430             <tlf_mobil xsi:type="xsd:string"/>
 431             <epost xsi:type="xsd:string"/>
 432             <epost_sjekk xsi:type="xsd:string"/>
 433             <prim_kontakt xsi:type="xsd:string"/>
 434             <hjemmebibliotek xsi:type="xsd:string">5180401</hjemmebibliotek>
 435             <fdato xsi:type="xsd:string">1994-04-08</fdato>
 436             <fnr_hash xsi:type="xsd:string">11087395628</fnr_hash>
 437             <kjonn xsi:type="xsd:string">F</kjonn>
 438             <pin xsi:type="xsd:string">89308dfc85ee7a5826ae14e2d8efad1e</pin>
 439             <passord xsi:type="xsd:string"/>
 440             <feide xsi:type="xsd:string">0</feide>
 441             <opprettet xsi:type="xsd:string">2014-04-28T15:20:38</opprettet>
 442             <opprettet_av xsi:type="xsd:string">5180401</opprettet_av>
 443             <sist_endret xsi:type="xsd:string">2014-04-28T15:20:38</sist_endret>
 444             <sist_endret_av xsi:type="xsd:string">5180401</sist_endret_av>
 445             <folkeregsjekk_dato xsi:type="xsd:string">0000-00-00</folkeregsjekk_dato>
 446           </item>
 447           <item xsi:type="ns1:Laaner">
 448             <lnr xsi:type="xsd:string">N000106184</lnr>
 449             <navn xsi:type="xsd:string">Enger, Magnus</navn>
 450             <p_adresse1 xsi:type="xsd:string">Svarthammarveien 633333</p_adresse1>
 451             <p_adresse2 xsi:type="xsd:string"/>
 452             <p_postnr xsi:type="xsd:string">8015</p_postnr>
 453             <p_sted xsi:type="xsd:string">Bodø</p_sted>
 454             <p_land xsi:type="xsd:string">no</p_land>
 455             <p_sjekk xsi:type="xsd:string">0</p_sjekk>
 456             <m_adresse1 xsi:type="xsd:string"/>
 457             <m_adresse2 xsi:type="xsd:string"/>
 458             <m_postnr xsi:type="xsd:string"/>
 459             <m_sted xsi:type="xsd:string"/>
 460             <m_land xsi:type="xsd:string">no</m_land>
 461             <m_sjekk xsi:type="xsd:string">0</m_sjekk>
 462             <m_gyldig_til xsi:type="xsd:string">0000-00-00</m_gyldig_til>
 463             <tlf_hjemme xsi:type="xsd:string">95158548</tlf_hjemme>
 464             <tlf_jobb xsi:type="xsd:string"/>
 465             <tlf_mobil xsi:type="xsd:string"/>
 466             <epost xsi:type="xsd:string">magnus@enger.priv.no</epost>
 467             <epost_sjekk xsi:type="xsd:string"/>
 468             <prim_kontakt xsi:type="xsd:string"/>
 469             <hjemmebibliotek xsi:type="xsd:string">5180401</hjemmebibliotek>
 470             <fdato xsi:type="xsd:string">1973-08-11</fdato>
 471             <fnr_hash xsi:type="xsd:string">11087345795</fnr_hash>
 472             <kjonn xsi:type="xsd:string">M</kjonn>
 473             <pin xsi:type="xsd:string">a632c504b8c4fba3149115cb07e0796c</pin>
 474             <passord xsi:type="xsd:string"/>
 475             <feide xsi:type="xsd:string">0</feide>
 476             <opprettet xsi:type="xsd:string">2014-04-28T14:52:02</opprettet>
 477             <opprettet_av xsi:type="xsd:string">5180401</opprettet_av>
 478             <sist_endret xsi:type="xsd:string">2014-05-13T11:01:33</sist_endret>
 479             <sist_endret_av xsi:type="xsd:string">5180401</sist_endret_av>
 480             <folkeregsjekk_dato xsi:type="xsd:string">0000-00-00</folkeregsjekk_dato>
 481           </item>
 482         </respons_poster>
 483         <server_tid xsi:type="xsd:string">2014-05-16T14:44:44</server_tid>
 484       </return>
 485     </ns1:soekEndretResponse>
 486   </SOAP-ENV:Body>
 487 </SOAP-ENV:Envelope>
 488 ENDRESPONSE
 489 }
 490
 491 sub soekEndret_zero_new {
 492     return <<'ENDRESPONSE';
 493 <?xml version="1.0" encoding="UTF-8"?>
 494     <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="http://lanekortet.no" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
 495       <SOAP-ENV:Body>
 496         <ns1:soekEndretResponse>
 497           <return xsi:type="ns1:Resultat">
 498             <status xsi:type="xsd:boolean">false</status>
 499             <melding xsi:type="xsd:string">ingen treff</melding>
 500             <antall_treff xsi:type="xsd:int">0</antall_treff>
 501             <antall_poster_returnert xsi:type="xsd:int">0</antall_poster_returnert>
 502             <neste_indeks xsi:type="xsd:int">0</neste_indeks>
 503             <respons_poster SOAP-ENC:arrayType="ns1:Laaner[0]" xsi:type="ns1:LaanerListe"/>
 504             <server_tid xsi:type="xsd:string">2014-05-20T13:02:02</server_tid>
 505           </return>
 506         </ns1:soekEndretResponse>
 507       </SOAP-ENV:Body>
 508     </SOAP-ENV:Envelope>
 509 ENDRESPONSE
 510 }
 511
 512 sub hent_failure {
 513     return <<'ENDRESPONSE';
 514 <?xml version="1.0" encoding="UTF-8"?>
 515 <SOAP-ENV:Envelope
 516     xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
 517     xmlns:ns1="http://lanekortet.no"
 518     xmlns:xsd="http://www.w3.org/2001/XMLSchema"
 519     xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
 520     xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
 521     SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
 522   <SOAP-ENV:Body>
 523     <ns1:hentResponse>
 524       <return xsi:type="ns1:Resultat">
 525         <status xsi:type="xsd:boolean">false</status>
 526         <melding xsi:type="xsd:string">hent: Ulovlig argument: hverken LNR eller FNR_HASH</melding>
 527         <antall_treff xsi:type="xsd:int">0</antall_treff>
 528         <antall_poster_returnert xsi:type="xsd:int">0</antall_poster_returnert>
 529         <neste_indeks xsi:type="xsd:int">0</neste_indeks>
 530         <respons_poster SOAP-ENC:arrayType="ns1:Laaner[0]" xsi:type="ns1:LaanerListe"/>
 531         <server_tid xsi:type="xsd:string">2014-05-15T10:56:24</server_tid>
 532       </return>
 533     </ns1:hentResponse>
 534   </SOAP-ENV:Body>
 535 </SOAP-ENV:Envelope>
 536 ENDRESPONSE
 537
 538 }
 539
 540 sub hent_success {
 541
 542 return <<'ENDRESPONSE';
 543 <?xml version="1.0" encoding="UTF-8"?>
 544 <SOAP-ENV:Envelope
 545     xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
 546     xmlns:ns1="http://lanekortet.no"
 547     xmlns:xsd="http://www.w3.org/2001/XMLSchema"
 548     xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
 549     xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
 550     SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
 551   <SOAP-ENV:Body>
 552     <ns1:hentResponse>
 553       <return xsi:type="ns1:Resultat">
 554         <status xsi:type="xsd:boolean">true</status>
 555         <melding xsi:type="xsd:string">OK</melding>
 556         <antall_treff xsi:type="xsd:int">1</antall_treff>
 557         <antall_poster_returnert xsi:type="xsd:int">1</antall_poster_returnert>
 558         <neste_indeks xsi:type="xsd:int">0</neste_indeks>
 559         <respons_poster SOAP-ENC:arrayType="ns1:Laaner[1]" xsi:type="ns1:LaanerListe">
 560           <item xsi:type="ns1:Laaner">
 561             <lnr xsi:type="xsd:string">N000123456</lnr>
 562             <navn xsi:type="xsd:string">Test, Testersen</navn>
 563             <p_adresse1 xsi:type="xsd:string">Bibliotekveien 6</p_adresse1>
 564             <p_adresse2 xsi:type="xsd:string"/>
 565             <p_postnr xsi:type="xsd:string">1234</p_postnr>
 566             <p_sted xsi:type="xsd:string">Lillevik</p_sted>
 567             <p_land xsi:type="xsd:string">no</p_land>
 568             <p_sjekk xsi:type="xsd:string">0</p_sjekk>
 569             <m_adresse1 xsi:type="xsd:string"/>
 570             <m_adresse2 xsi:type="xsd:string"/>
 571             <m_postnr xsi:type="xsd:string"/>
 572             <m_sted xsi:type="xsd:string"/>
 573             <m_land xsi:type="xsd:string">no</m_land>
 574             <m_sjekk xsi:type="xsd:string">0</m_sjekk>
 575             <m_gyldig_til xsi:type="xsd:string">0000-00-00</m_gyldig_til>
 576             <tlf_hjemme xsi:type="xsd:string"/>
 577             <tlf_jobb xsi:type="xsd:string"/>
 578             <tlf_mobil xsi:type="xsd:string">12345678</tlf_mobil>
 579             <epost xsi:type="xsd:string">test@example.com</epost>
 580             <epost_sjekk xsi:type="xsd:string">0</epost_sjekk>
 581             <prim_kontakt xsi:type="xsd:string"/>
 582             <hjemmebibliotek xsi:type="xsd:string">2060000</hjemmebibliotek>
 583             <fdato xsi:type="xsd:string">1964-05-22</fdato>
 584             <fnr_hash xsi:type="xsd:string">22056412345</fnr_hash>
 585             <kjonn xsi:type="xsd:string">F</kjonn>
 586             <pin xsi:type="xsd:string">g345abc123dab567abc78900abc123ab</pin>
 587             <passord xsi:type="xsd:string"/>
 588             <feide xsi:type="xsd:string"/>
 589             <opprettet xsi:type="xsd:string">2005-10-20</opprettet>
 590             <opprettet_av xsi:type="xsd:string">2060000</opprettet_av>
 591             <sist_endret xsi:type="xsd:string">2013-05-13T13:51:24</sist_endret>
 592             <sist_endret_av xsi:type="xsd:string">2060000</sist_endret_av>
 593             <gyldig_til xsi:type="xsd:string"/>
 594             <folkeregsjekk_dato xsi:type="xsd:string">0000-00-00</folkeregsjekk_dato>
 595           </item>
 596         </respons_poster>
 597         <server_tid xsi:type="xsd:string">2014-01-07T14:43:18</server_tid>
 598       </return>
 599     </ns1:hentResponse>
 600   </SOAP-ENV:Body>
 601 </SOAP-ENV:Envelope>
 602 ENDRESPONSE
 603
 604 }