View | Details | Raw Unified | Return to bug 33430
Collapse All | Expand All

(-)a/dummySuggestions.pl (-1 / +63 lines)
Line 0 Link Here
0
- 
1
2
#!/usr/bin/perl
3
4
use Modern::Perl;
5
6
use Koha::Suggestion;
7
use Koha::AuthorisedValue;
8
9
use String::Random qw( random_string );
10
11
my @status_list  = ( 'TEST',       'TEST2',      'ASKED', 'ACCEPTED', 'REJECTED', 'CHECKED', 'ORDERED', 'AVAILABLE' );
12
my @branches     = ( "CPL",        "FFL",        "FPL", "FRL", "IPT", "LPL", "MPL", "PVL", "RPL", "SPL", "TPL", "UPL" );
13
my @dates        = ( "2025-05-01", "2025-05-02", "2025-05-03", "2025-05-04", "2025-05-05" );
14
my @opac_reasons = ( 'bestseller', 'damaged',    'cheap' );
15
16
my $av1 = Koha::AuthorisedValue->new(
17
    {
18
        category         => 'SUGGEST_STATUS',
19
        authorised_value => 'TEST',
20
        lib              => 'Test',
21
        lib_opac         => 'Test',
22
        imageurl         => '',
23
    }
24
)->store();
25
my $av2 = Koha::AuthorisedValue->new(
26
    {
27
        category         => 'SUGGEST_STATUS',
28
        authorised_value => 'TEST2',
29
        lib              => 'Another test',
30
        lib_opac         => 'Another test',
31
        imageurl         => '',
32
    }
33
)->store();
34
my $av3 = Koha::AuthorisedValue->new(
35
    {
36
        category         => 'OPAC_SUG',
37
        authorised_value => 'cheap',
38
        lib              => 'This is cheap',
39
        lib_opac         => 'This is cheap',
40
        imageurl         => '',
41
    }
42
)->store();
43
44
foreach my $i ( 1 .. 2000 ) {
45
    warn $i . " created\n" if $i % 100 == 0;
46
    my $title = random_string("cccccccccc");
47
48
    my $status_index = rand(8);
49
    my $branch_index = rand(12);
50
    my $dates_index  = rand(5);
51
    my $opac_index   = rand(3);
52
    my $patron_id    = rand(50) + 1;
53
    my $suggestion   = Koha::Suggestion->new(
54
        {
55
            suggestedby   => $patron_id, STATUS => $status_list[$status_index],
56
            branchcode    => $branches[$branch_index], managedby => 51, itemtype => 'BOOK',
57
            suggesteddate => $dates[$dates_index],
58
            archived      => 0, title => $title, patronreason => $opac_reasons[$opac_index]
59
        }
60
    )->store;
61
}
62
63
warn "Complete";

Return to bug 33430