version 1.133, 2004/11/15 21:35:37
|
version 1.134, 2004/11/15 21:51:19
|
Line 355 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 355 imscp_v1p1.xsd http://www.imsglobal.org/
|
} |
} |
</script> |
</script> |
|; |
|; |
#FIXME need a <form back here for indiviaual red toggling |
$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'" ><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">'; |
$discussion.='<form><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">'; |
|
$discussion .='<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'. |
$discussion .='<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'. |
'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>'; |
'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>'; |
if ($visible>2) { |
if ($visible>2) { |
Line 562 END
|
Line 561 END
|
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
<br /><br /> |
<br /><br /></form> |
</form> |
|
END |
END |
} |
} |
if ($outputtarget eq 'export') { |
if ($outputtarget eq 'export') { |
Line 3081 ENDREDIR
|
Line 3079 ENDREDIR
|
} |
} |
&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx, |
&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx, |
$attachmenturls); |
$attachmenturls); |
|
} elsif ($ENV{'form.chgreads'}) { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($ENV{'form.chgreads'}); |
|
&redirect_back($r,&Apache::lonnet::clutter($url), |
|
&mt('Changed read status').'<br />','0','0'); |
} elsif ($ENV{'form.export'}) { |
} elsif ($ENV{'form.export'}) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
Line 3096 ENDREDIR
|
Line 3100 ENDREDIR
|
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion'); |
my $bodytag=&Apache::loncommon::bodytag('Resource Feedback and Discussion'); |
$r->print($bodytag.$discussion); |
$r->print($bodytag.$discussion); |
return OK; |
return OK; |
#FIXME deleted CHGREADS needs to be readded |
|
} else { |
} else { |
# ------------------------------------------------------------- Normal feedback |
# ------------------------------------------------------------- Normal feedback |
my $feedurl=$ENV{'form.postdata'}; |
my $feedurl=$ENV{'form.postdata'}; |