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

(-)a/C4/ClassSource.pm (-12 lines)
Lines 98-104 sub GetClassSources { Link Here
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 120-126 sub AddClassSource { Link Here
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 139-145 sub GetClassSource { Link Here
139
    my $sth = $dbh->prepare_cached("SELECT * FROM `class_sources` WHERE cn_source = ?");
137
    my $sth = $dbh->prepare_cached("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 161-167 sub ModClassSource { Link Here
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 179-185 sub DelClassSource { Link Here
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_cached("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 215-221 sub GetClassSortRules { Link Here
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 237-243 sub AddClassSortRule { Link Here
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 256-262 sub GetClassSortRule { Link Here
256
    my $sth = $dbh->prepare_cached("SELECT * FROM `class_sort_rules` WHERE `class_sort_rule` = ?");
249
    my $sth = $dbh->prepare_cached("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 277-283 sub ModClassSortRule { Link Here
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 295-301 sub DelClassSortRule { Link Here
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_cached("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 319-325 sub GetSourcesForSortRule { Link Here
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