--- loncom/interface/lonparmset.pm 2000/11/21 22:57:53 1.3 +++ loncom/interface/lonparmset.pm 2000/11/23 20:42:55 1.6 @@ -9,7 +9,7 @@ # # 10/11,10/12,10/16 Gerd Kortemeyer) # -# 11/20,11/21 Gerd Kortemeyer +# 11/20,11/21,11/22,11/23 Gerd Kortemeyer package Apache::lonparmset; @@ -17,6 +17,8 @@ use strict; use Apache::lonnet; use Apache::Constants qw(:common :http REDIRECT); use GDBM_File; +use Apache::lonmeta; + my %courseopt; my %useropt; @@ -95,6 +97,15 @@ sub bycat { } } +# -------------------------------------------------------- Produces link anchor + +sub plink { + my ($type,$dis,$value,$marker,$return,$call)=@_; + return ''. + (($type=~/^date/)?localtime($value):$value).''; +} + # ================================================================ Main Handler sub handler { @@ -188,8 +199,30 @@ sub handler { # ------------------------------------------------------------------ Start page $r->content_type('text/html'); $r->send_http_header; - $r->print( - '
'.
+ $bighash{'src_'.$rid}.' '. + $bighash{'title_'.$rid}); + if ($thistitle) { + $r->print(' ('.$thistitle.')'); + } + $r->print(' | ');
+ my $i;
+ for ($i=0;$i<$totalparms;$i++) {
+ $r->print("$part[$i] | $display[$i] | "); + $r->print(''.&plink($type[$i],$display[$i],'987684455').' | '); + $r->print("