loncom/interface/coursecatalog.pm - diff

Return to coursecatalog.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.66, 2010/12/20 22:56:56	version 1.68, 2011/02/25 05:52:03
Line 283 sub instcode_course_selector {	Line 283 sub instcode_course_selector {
$r->print('<input type="hidden" name="coursenum" value="" />'."\n".	$r->print('<input type="hidden" name="coursenum" value="" />'."\n".
'<input type="hidden" name="sortby" value="" />'."\n".	'<input type="hidden" name="sortby" value="" />'."\n".
'<input type="hidden" name="state" value="listing" />'."\n".	'<input type="hidden" name="state" value="listing" />'."\n".
'<input type="hidden" name="form.currcat_0" value="instcode::0" />'."\n".
'<input type="submit" name="catalogfilter" value="'.	'<input type="submit" name="catalogfilter" value="'.
&mt('Display courses').'" />'.	&mt('Display courses').'" />'.
'<input type="hidden" name="numtitles" value="'.$numtitles.	'<input type="hidden" name="numtitles" value="'.$numtitles.
Line 799 sub build_courseinfo_hash {	Line 798 sub build_courseinfo_hash {
$selfenroll_end = $courses->{$course}{'selfenroll_end_date'};	$selfenroll_end = $courses->{$course}{'selfenroll_end_date'};
$categories = $courses->{$course}{'categories'};	$categories = $courses->{$course}{'categories'};
push(@owners,$singleowner);	push(@owners,$singleowner);
if (ref($courses->{$course}{'co-owners'}) eq 'ARRAY') {	if ($courses->{$course}{'co-owners'} ne '') {
foreach my $item (@{$courses->{$course}{'co-owners'}}) {	foreach my $item (split(/,/,$courses->{$course}{'co-owners'})) {
push(@owners,$item);	push(@owners,$item);
}	}
}	}