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

(-)a/installer/data/mysql/sysprefs.sql (-1 / +1 lines)
Lines 411-414 INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ( Link Here
411
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo');
411
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReviews','0','Display book review snippets from IDreamBooks.com','','YesNo');
412
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo');
412
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksReadometer','0','Display Readometer from IDreamBooks.com','','YesNo');
413
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo');
413
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('IDreamBooksResults','0','Display IDreamBooks.com rating in search results','','YesNo');
414
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('ReturnLostItems',  '1', 'If enabled, items marked as lost via the librarian intranet will be automatically returned. Note, the cronjob for marking items as lost has its own command line switch and is not affected by this system preference.','', 'YesNo');
414
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('ReturnLostItems',  '1', 'If enabled, items marked as lost will be automatically returned.','', 'YesNo');
(-)a/installer/data/mysql/updatedatabase.pl (-1 / +1 lines)
Lines 6401-6407 if ( CheckVersion($DBversion) ) { Link Here
6401
6401
6402
$DBversion ="3.11.00.XXX";
6402
$DBversion ="3.11.00.XXX";
6403
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6403
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6404
    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('ReturnLostItems', '1', '','If enabled, items marked as lost via the librarian intranet will be automatically returned. Note, the cronjob for marking items as lost has its own command line switch and is not affected by this system preference.', 'YesNo')");
6404
    $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('ReturnLostItems', '1', '','If enabled, items marked as lost will be automatically returned.', 'YesNo')");
6405
    print "Upgrade to $DBversion done (Add system preference ReturnLostItems)\n";
6405
    print "Upgrade to $DBversion done (Add system preference ReturnLostItems)\n";
6406
    SetVersion($DBversion);
6406
    SetVersion($DBversion);
6407
}
6407
}
(-)a/misc/cronjobs/longoverdue.pl (-5 / +1 lines)
Lines 50-56 GetOptions( Link Here
50
    'verbose'       => \$verbose,
50
    'verbose'       => \$verbose,
51
    'quiet'         => \$quiet,
51
    'quiet'         => \$quiet,
52
    'maxdays=s'     => \$endrange,
52
    'maxdays=s'     => \$endrange,
53
    'mark-returned' => \$mark_returned,
54
);
53
);
55
54
56
my $usage = << 'ENDUSAGE';
55
my $usage = << 'ENDUSAGE';
Lines 77-84 This script takes the following parameters : Link Here
77
    --maxdays           Specifies the end of the range of overdue days to deal with (defaults to 366).  This
76
    --maxdays           Specifies the end of the range of overdue days to deal with (defaults to 366).  This
78
                        value is universal to all lost num days overdue passed.
77
                        value is universal to all lost num days overdue passed.
79
78
80
    --mark-returned     When an item is marked lost, remove it from the borrowers issued items.
81
82
  examples :
79
  examples :
83
  $PERL5LIB/misc/cronjobs/longoverdue.pl --lost 30=1
80
  $PERL5LIB/misc/cronjobs/longoverdue.pl --lost 30=1
84
    Would set LOST=1 after 30 days (up to one year), but not charge the account.
81
    Would set LOST=1 after 30 days (up to one year), but not charge the account.
Lines 165-171 foreach my $startrange (sort keys %$lost) { Link Here
165
            printf ("Due %s: item %5s from borrower %5s to lost: %s\n", $row->{date_due}, $row->{itemnumber}, $row->{borrowernumber}, $lostvalue) if($verbose);
162
            printf ("Due %s: item %5s from borrower %5s to lost: %s\n", $row->{date_due}, $row->{itemnumber}, $row->{borrowernumber}, $lostvalue) if($verbose);
166
            if($confirm) {
163
            if($confirm) {
167
                ModItem({ itemlost => $lostvalue }, $row->{'biblionumber'}, $row->{'itemnumber'});
164
                ModItem({ itemlost => $lostvalue }, $row->{'biblionumber'}, $row->{'itemnumber'});
168
                LostItem($row->{'itemnumber'}, $mark_returned, 'CHARGE FEE') if( $charge && $charge eq $lostvalue);
165
                LostItem($row->{'itemnumber'}, C4::Context->preference("ReturnLostItems"), 'CHARGE FEE') if( $charge && $charge eq $lostvalue);
169
            }
166
            }
170
            $count++;
167
            $count++;
171
        }
168
        }
172
- 

Return to bug 8484