--- loncom/interface/coursecatalog.pm 2006/08/29 21:20:05 1.2
+++ loncom/interface/coursecatalog.pm 2006/09/13 21:35:46 1.4
@@ -123,13 +123,13 @@ function changeSort(caller) {
my @items = ();
my @longitems = ();
if ($idlist{$codetitles[0]} =~ /","/) {
- @items = split/","/,$idlist{$codetitles[0]};
+ @items = split(/","/,$idlist{$codetitles[0]});
} else {
$items[0] = $idlist{$codetitles[0]};
}
if (defined($idlist_titles{$codetitles[0]})) {
if ($idlist_titles{$codetitles[0]} =~ /","/) {
- @longitems = split/","/,$idlist_titles{$codetitles[0]};
+ @longitems = split(/","/,$idlist_titles{$codetitles[0]});
} else {
$longitems[0] = $idlist_titles{$codetitles[0]};
}
@@ -165,7 +165,7 @@ function changeSort(caller) {
$r->print('
');
}
if ($env{'form.state'} eq 'listing') {
- $r->print('
'.&print_course_listing($codedom));
+ $r->print('
'.&print_course_listing($codedom));
}
$r->print(&Apache::loncommon::end_page());
}
@@ -220,7 +220,7 @@ sub print_course_listing {
$cleandesc=~s/'/\\'/g;
my ($cdom,$cnum)=split(/\_/,$course);
- my ($desc,$instcode,$owner,$ttype) = split/:/,$courses{$course};
+ my ($desc,$instcode,$owner,$ttype) = split(/:/,$courses{$course});
$owner = &unescape($owner);
my ($ownername,$ownerdom);
if ($owner =~ /:/) {
@@ -290,7 +290,7 @@ sub courseinfo_row {
my @classids;
my @crosslistings;
$idx{'status'} = &Apache::loncoursedata::CL_STATUS();
- my %status_title = &Apache::lonlocal::texthash (
+ my %status_title = &Apache::lonlocal::texthash(
Expired => 'Previous access',
Active => 'Current access',
Future => 'Future access',
@@ -300,7 +300,7 @@ sub courseinfo_row {
Active => 0,
Future => 0,
);
- while (my ($student,$data) = each %$classlist) {
+ while (my ($student,$data) = each(%$classlist)) {
$student_count{$data->[$idx{'status'}]} ++;
}
my $seclist = &identify_sections($coursehash{'internal.sectionnums'});
@@ -387,7 +387,7 @@ sub identify_sections {
my ($seclist) = @_;
my @secnums;
if ($seclist =~ /,/) {
- my @sections = split/,/,$seclist;
+ my @sections = split(/,/,$seclist);
foreach my $sec (@sections) {
$sec =~ s/:[^:]*$//;
push(@secnums,$sec);
@@ -395,8 +395,8 @@ sub identify_sections {
} else {
if ($seclist =~ m/^([^:]+):/) {
my $sec = $1;
- if (!grep/^$sec$/,@secnums) {
- push (@secnums,$sec);
+ if (!grep(/^\Q$sec\E$/,@secnums)) {
+ push(@secnums,$sec);
}
}
}
@@ -415,10 +415,10 @@ sub get_valid_classes {
if ($seclist) {
foreach my $sec (split(',',$seclist)) {
my $class = $crscode.$sec;
- if (&Apache::lonnet::autovalidate_class_sec($cdom,$cnum,$owner,
- $class) eq 'ok') {
+ if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
+ $class) eq 'ok') {
if (!grep(/^\Q$sec$\E/,@{$validations{'sections'}})) {
- push (@{$validations{'sections'}},$sec);
+ push(@{$validations{'sections'}},$sec);
$totalitems ++;
}
}
@@ -426,10 +426,10 @@ sub get_valid_classes {
}
if ($xlist_items) {
foreach my $item (split(',',$xlist_items)) {
- if (&Apache::lonnet::autovalidate_class_sec($cdom,$cnum,$owner,
- $item) eq 'ok') {
+ if (&Apache::lonnet::auto_validate_class_sec($cdom,$cnum,$owner,
+ $item) eq 'ok') {
if (!grep(/^\Q$item$\E/,@{$validations{'xlists'}})) {
- push (@{$validations{'xlists'}},$item);
+ push(@{$validations{'xlists'}},$item);
$totalitems ++;
}
}