version 1.273, 2005/01/03 16:08:07
|
version 1.274, 2005/01/03 16:34:46
|
Line 3198 sub put_course_id_handler {
|
Line 3198 sub put_course_id_handler {
|
# owner - optional supplied username of owner to filter |
# owner - optional supplied username of owner to filter |
# the dump. Only courses for which the course |
# the dump. Only courses for which the course |
# owner matches the supplied username will be |
# owner matches the supplied username will be |
# returned. Implicit assumption that owner is a user |
# returned. Implicit assumption that owner |
# in the domain in which the course database is defined. |
# is a user in the domain in which the |
|
# course database is defined. |
# $client - The socket open on the client. |
# $client - The socket open on the client. |
# Returns: |
# Returns: |
# 1 - Continue processing. |
# 1 - Continue processing. |
Line 3233 sub dump_course_id_handler {
|
Line 3234 sub dump_course_id_handler {
|
if ($hashref) { |
if ($hashref) { |
while (my ($key,$value) = each(%$hashref)) { |
while (my ($key,$value) = each(%$hashref)) { |
my ($descr,$lasttime,$inst_code,$owner); |
my ($descr,$lasttime,$inst_code,$owner); |
my @courseitems = split/:/,$value; |
my @courseitems = split(/:/,$value); |
$descr = shift @courseitems; |
$lasttime = pop(@courseitems); |
$lasttime = pop @courseitems; |
($descr,$inst_code,$owner)=@courseitems; |
if (@courseitems > 0) { |
|
$inst_code = shift @courseitems; |
|
} |
|
if (@courseitems > 0) { |
|
$owner = shift @courseitems; |
|
} |
|
if ($lasttime<$since) { next; } |
if ($lasttime<$since) { next; } |
my $match = 1; |
my $match = 1; |
unless ($description eq '.') { |
unless ($description eq '.') { |