version 1.7, 2000/09/30 17:25:04
|
version 1.8, 2000/09/30 19:19:34
|
Line 86 ENDHEADER
|
Line 86 ENDHEADER
|
} |
} |
} |
} |
|
|
|
# ---------------------------------------------- Get cached course descriptions |
|
|
|
my %cdes=Apache::lonnet::dump('coursedescriptions'); |
|
|
# -------------------------------------------------------- Generate Page Output |
# -------------------------------------------------------- Generate Page Output |
# --------------------------------------------------------------- Error Header? |
# --------------------------------------------------------------- Error Header? |
if ($error) { |
if ($error) { |
Line 183 ENDHEADER
|
Line 187 ENDHEADER
|
} |
} |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tres,$tdom,$trest)=split(/\//,$where); |
my ($tdom,$trest)= |
|
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$tdom.'/'.$trest; |
my $tcourseid=$tdom.'/'.$trest; |
|
if ($cdes{$tcourseid}) { |
|
$twhere=$cdes{$tcourseid}; |
|
} else { |
|
my %newhash=Apache::lonnet::coursedescription($tcourseid); |
|
if (%newhash) { |
|
$twhere=$newhash{'description'}; |
|
} else { |
|
$twhere='Currently not available'; |
|
} |
|
$cdes{$tcourseid}=$twhere; |
|
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
} else { |
} else { |
$ttype='System'; |
$ttype='System'; |
$twhere='/'; |
$twhere='system wide'; |
} |
} |
|
|
$r->print('<tr bgcolor='.$tbg.'>'); |
$r->print('<tr bgcolor='.$tbg.'>'); |
Line 225 ENDHEADER
|
Line 241 ENDHEADER
|
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tres,$tdom,$trest)=split(/\//,$where); |
my ($tdom,$trest)= |
|
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$tdom.'/'.$trest; |
$twhere=$cdes{$tdom.'/'.$trest}; |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |