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

(-)a/C4/ClassSource.pm (-23 / +11 lines)
Lines 93-104 sub GetClassSources { Link Here
93
93
94
    my %class_sources = ();
94
    my %class_sources = ();
95
    my $dbh = C4::Context->dbh;
95
    my $dbh = C4::Context->dbh;
96
    my $sth = $dbh->prepare_cached("SELECT * FROM `class_sources`");
96
    my $sth = $dbh->prepare("SELECT * FROM `class_sources`");
97
    $sth->execute();
97
    $sth->execute();
98
    while (my $source = $sth->fetchrow_hashref) {
98
    while (my $source = $sth->fetchrow_hashref) {
99
        $class_sources{ $source->{'cn_source'} } = $source;
99
        $class_sources{ $source->{'cn_source'} } = $source;
100
    }
100
    }
101
    $sth->finish();
102
101
103
    return \%class_sources;
102
    return \%class_sources;
104
103
Lines 116-126 sub AddClassSource { Link Here
116
115
117
    my ($cn_source, $description, $used, $class_sort_rule) = @_;
116
    my ($cn_source, $description, $used, $class_sort_rule) = @_;
118
    my $dbh = C4::Context->dbh;
117
    my $dbh = C4::Context->dbh;
119
    my $sth = $dbh->prepare_cached("INSERT INTO `class_sources` 
118
    my $sth = $dbh->prepare("INSERT INTO `class_sources` 
120
                                           (`cn_source`, `description`, `used`, `class_sort_rule`)
119
                                           (`cn_source`, `description`, `used`, `class_sort_rule`)
121
                                           VALUES (?, ?, ?, ?)");
120
                                           VALUES (?, ?, ?, ?)");
122
    $sth->execute($cn_source, $description, $used, $class_sort_rule);
121
    $sth->execute($cn_source, $description, $used, $class_sort_rule);
123
    $sth->finish();
124
  
122
  
125
}
123
}
126
124
Lines 136-145 sub GetClassSource { Link Here
136
134
137
    my ($cn_source) = (@_);
135
    my ($cn_source) = (@_);
138
    my $dbh = C4::Context->dbh;
136
    my $dbh = C4::Context->dbh;
139
    my $sth = $dbh->prepare_cached("SELECT * FROM `class_sources` WHERE cn_source = ?");
137
    my $sth = $dbh->prepare("SELECT * FROM `class_sources` WHERE cn_source = ?");
140
    $sth->execute($cn_source);
138
    $sth->execute($cn_source);
141
    my $row = $sth->fetchrow_hashref();
139
    my $row = $sth->fetchrow_hashref();
142
    $sth->finish();
143
    return $row;
140
    return $row;
144
}
141
}
145
142
Lines 155-167 sub ModClassSource { Link Here
155
152
156
    my ($cn_source, $description, $used, $class_sort_rule) = @_;
153
    my ($cn_source, $description, $used, $class_sort_rule) = @_;
157
    my $dbh = C4::Context->dbh;
154
    my $dbh = C4::Context->dbh;
158
    my $sth = $dbh->prepare_cached("UPDATE `class_sources` 
155
    my $sth = $dbh->prepare("UPDATE `class_sources` 
159
                                    SET  `description` = ?,
156
                                    SET  `description` = ?,
160
                                         `used` = ?,
157
                                         `used` = ?,
161
                                         `class_sort_rule` = ?
158
                                         `class_sort_rule` = ?
162
                                    WHERE `cn_source` = ?");
159
                                    WHERE `cn_source` = ?");
163
    $sth->execute($description, $used, $class_sort_rule, $cn_source);
160
    $sth->execute($description, $used, $class_sort_rule, $cn_source);
164
    $sth->finish();
165
161
166
}
162
}
167
163
Lines 177-185 sub DelClassSource { Link Here
177
173
178
    my ($cn_source) = @_;
174
    my ($cn_source) = @_;
179
    my $dbh = C4::Context->dbh;
175
    my $dbh = C4::Context->dbh;
180
    my $sth = $dbh->prepare_cached("DELETE FROM `class_sources` WHERE `cn_source` = ?");
176
    my $sth = $dbh->prepare("DELETE FROM `class_sources` WHERE `cn_source` = ?");
181
    $sth->execute($cn_source);
177
    $sth->execute($cn_source);
182
    $sth->finish();
183
178
184
}
179
}
185
180
Lines 210-221 sub GetClassSortRules { Link Here
210
205
211
    my %class_sort_rules = ();
206
    my %class_sort_rules = ();
212
    my $dbh = C4::Context->dbh;
207
    my $dbh = C4::Context->dbh;
213
    my $sth = $dbh->prepare_cached("SELECT * FROM `class_sort_rules`");
208
    my $sth = $dbh->prepare("SELECT * FROM `class_sort_rules`");
214
    $sth->execute();
209
    $sth->execute();
215
    while (my $sort_rule = $sth->fetchrow_hashref) {
210
    while (my $sort_rule = $sth->fetchrow_hashref) {
216
        $class_sort_rules{ $sort_rule->{'class_sort_rule'} } = $sort_rule;
211
        $class_sort_rules{ $sort_rule->{'class_sort_rule'} } = $sort_rule;
217
    }
212
    }
218
    $sth->finish();
219
213
220
    return \%class_sort_rules;
214
    return \%class_sort_rules;
221
215
Lines 233-243 sub AddClassSortRule { Link Here
233
227
234
    my ($class_sort_rule, $description, $sort_routine) = @_;
228
    my ($class_sort_rule, $description, $sort_routine) = @_;
235
    my $dbh = C4::Context->dbh;
229
    my $dbh = C4::Context->dbh;
236
    my $sth = $dbh->prepare_cached("INSERT INTO `class_sort_rules` 
230
    my $sth = $dbh->prepare("INSERT INTO `class_sort_rules` 
237
                                           (`class_sort_rule`, `description`, `sort_routine`)
231
                                           (`class_sort_rule`, `description`, `sort_routine`)
238
                                           VALUES (?, ?, ?)");
232
                                           VALUES (?, ?, ?)");
239
    $sth->execute($class_sort_rule, $description, $sort_routine);
233
    $sth->execute($class_sort_rule, $description, $sort_routine);
240
    $sth->finish();
241
  
234
  
242
}
235
}
243
236
Lines 253-262 sub GetClassSortRule { Link Here
253
246
254
    my ($class_sort_rule) = (@_);
247
    my ($class_sort_rule) = (@_);
255
    my $dbh = C4::Context->dbh;
248
    my $dbh = C4::Context->dbh;
256
    my $sth = $dbh->prepare_cached("SELECT * FROM `class_sort_rules` WHERE `class_sort_rule` = ?");
249
    my $sth = $dbh->prepare("SELECT * FROM `class_sort_rules` WHERE `class_sort_rule` = ?");
257
    $sth->execute($class_sort_rule);
250
    $sth->execute($class_sort_rule);
258
    my $row = $sth->fetchrow_hashref();
251
    my $row = $sth->fetchrow_hashref();
259
    $sth->finish();
260
    return $row;
252
    return $row;
261
}
253
}
262
254
Lines 272-283 sub ModClassSortRule { Link Here
272
264
273
    my ($class_sort_rule, $description, $sort_routine) = @_;
265
    my ($class_sort_rule, $description, $sort_routine) = @_;
274
    my $dbh = C4::Context->dbh;
266
    my $dbh = C4::Context->dbh;
275
    my $sth = $dbh->prepare_cached("UPDATE `class_sort_rules` 
267
    my $sth = $dbh->prepare("UPDATE `class_sort_rules` 
276
                                    SET  `description` = ?,
268
                                    SET  `description` = ?,
277
                                         `sort_routine` = ?
269
                                         `sort_routine` = ?
278
                                    WHERE `class_sort_rule` = ?");
270
                                    WHERE `class_sort_rule` = ?");
279
    $sth->execute($description, $sort_routine, $class_sort_rule);
271
    $sth->execute($description, $sort_routine, $class_sort_rule);
280
    $sth->finish();
281
272
282
}
273
}
283
274
Lines 293-301 sub DelClassSortRule { Link Here
293
284
294
    my ($class_sort_rule) = @_;
285
    my ($class_sort_rule) = @_;
295
    my $dbh = C4::Context->dbh;
286
    my $dbh = C4::Context->dbh;
296
    my $sth = $dbh->prepare_cached("DELETE FROM `class_sort_rules` WHERE `class_sort_rule` = ?");
287
    my $sth = $dbh->prepare("DELETE FROM `class_sort_rules` WHERE `class_sort_rule` = ?");
297
    $sth->execute($class_sort_rule);
288
    $sth->execute($class_sort_rule);
298
    $sth->finish();
299
289
300
}
290
}
301
291
Lines 313-325 sub GetSourcesForSortRule { Link Here
313
    my ($class_sort_rule) = @_;
303
    my ($class_sort_rule) = @_;
314
304
315
    my $dbh = C4::Context->dbh;
305
    my $dbh = C4::Context->dbh;
316
    my $sth = $dbh->prepare_cached("SELECT cn_source FROM class_sources WHERE class_sort_rule = ?");
306
    my $sth = $dbh->prepare("SELECT cn_source FROM class_sources WHERE class_sort_rule = ?");
317
    $sth->execute($class_sort_rule);
307
    $sth->execute($class_sort_rule);
318
    my @sources = ();
308
    my @sources = ();
319
    while (my ($source) = $sth->fetchrow_array()) {
309
    while (my ($source) = $sth->fetchrow_array()) {
320
        push @sources, $source;
310
        push @sources, $source;
321
    }
311
    }
322
    $sth->finish();
323
    return @sources;
312
    return @sources;
324
313
325
}
314
}
326
- 

Return to bug 10643