version 1.122, 2004/08/31 22:27:10
|
version 1.128, 2004/10/04 21:35:52
|
Line 36 use Apache::loncommon();
|
Line 36 use Apache::loncommon();
|
use Apache::lontexconvert(); |
use Apache::lontexconvert(); |
use Apache::lonlocal; # must not have () |
use Apache::lonlocal; # must not have () |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
|
use Apache::lonnavmaps; |
use HTML::LCParser(); |
use HTML::LCParser(); |
use Apache::lonspeller(); |
use Apache::lonspeller(); |
use Cwd; |
use Cwd; |
Line 165 sub list_discussion {
|
Line 166 sub list_discussion {
|
} |
} |
|
|
# Get discussion display default settings for user |
# Get discussion display default settings for user |
my %userenv = &Apache::lonnet::get('environment',['discdisplay','discmarkread'],$ENV{'user.domain'},$ENV{'user.name'}); |
if ($ENV{'environment.discdisplay'} eq 'unread') { |
my $discdisplay=$userenv{'discdisplay'}; |
|
if ($discdisplay eq 'unread') { |
|
$showonlyunread = 1; |
$showonlyunread = 1; |
} |
} |
my $discmarkread=$userenv{'discmarkread'}; |
if ($ENV{'environment.discmarkread'} eq 'ondisp') { |
if ($discmarkread eq 'ondisp') { |
|
$markondisp = 1; |
$markondisp = 1; |
} |
} |
|
|
# Override user's default if user specified display setting for this discussion |
# Override user's default if user specified display setting for this discussion |
if (defined($dischash{$ondispkey})) { |
if (defined($dischash{$ondispkey})) { |
$markondisp = $dischash{$ondispkey}; |
unless ($dischash{$ondispkey} eq '') { |
|
$markondisp = $dischash{$ondispkey}; |
|
} |
} |
} |
if ($markondisp) { |
if ($markondisp) { |
$discinfo{$lastkey} = time; |
$discinfo{$lastkey} = time; |
} |
} |
|
|
if (defined($dischash{$showkey})) { |
if (defined($dischash{$showkey})) { |
$showonlyunread = $dischash{$showkey}; |
unless ($dischash{$showkey} eq '') { |
|
$showonlyunread = $dischash{$showkey}; |
|
} |
} |
} |
|
|
if (defined($dischash{$markkey})) { |
if (defined($dischash{$markkey})) { |
$showunmark = $dischash{$markkey}; |
unless ($dischash{$markkey} eq '') { |
|
$showunmark = $dischash{$markkey}; |
|
} |
} |
} |
|
|
if (defined($dischash{$visitkey})) { |
if (defined($dischash{$visitkey})) { |
$visit = $dischash{$visitkey}; |
unless ($dischash{$visitkey} eq '') { |
|
$visit = $dischash{$visitkey}; |
|
} |
} |
} |
$visit ++; |
$visit ++; |
|
|
Line 324 sub list_discussion {
|
Line 330 sub list_discussion {
|
# open manifest file |
# open manifest file |
my $manifest = '/imsmanifest.xml'; |
my $manifest = '/imsmanifest.xml'; |
my $manifestfilename = $tempexport.$manifest; |
my $manifestfilename = $tempexport.$manifest; |
print STDERR "manifestfilename is $manifestfilename\n"; |
|
if ($manifestfile = Apache::File->new('>'.$manifestfilename)) { |
if ($manifestfile = Apache::File->new('>'.$manifestfilename)) { |
$manifestok=1; |
$manifestok=1; |
print $manifestfile qq| |
print $manifestfile qq| |
Line 474 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 479 imscp_v1p1.xsd http://www.imsglobal.org/
|
my $postfilename = $alldiscussion{$_}.'-'.$imsitems{$alldiscussion{$_}}{'timestamp'}.'.html'; |
my $postfilename = $alldiscussion{$_}.'-'.$imsitems{$alldiscussion{$_}}{'timestamp'}.'.html'; |
if ($manifestok) { |
if ($manifestok) { |
if (($depth[$alldiscussion{$_}] <= $currdepth) && ($alldiscussion{$_} != $firstidx)) { |
if (($depth[$alldiscussion{$_}] <= $currdepth) && ($alldiscussion{$_} != $firstidx)) { |
print STDERR "depth is $depth[$alldiscussion{$_}], currdepth is $currdepth, idx is $alldiscussion{$_}, firstidx is $firstidx\n"; |
|
print $manifestfile ' </item>'."\n"; |
print $manifestfile ' </item>'."\n"; |
} |
} |
$currdepth = $depth[$alldiscussion{$_}]; |
$currdepth = $depth[$alldiscussion{$_}]; |
Line 600 END
|
Line 604 END
|
undef(%oldENV); |
undef(%oldENV); |
$discussion .= 'Download the zip file from <a href="'.$imszipfile.'">Discussion Posting Archive</a><br />'; |
$discussion .= 'Download the zip file from <a href="'.$imszipfile.'">Discussion Posting Archive</a><br />'; |
if ($copyresult) { |
if ($copyresult) { |
$discussion .= 'The following errors occurred during export - '.$copyresult; |
$discussion .= 'The following errors occurred during export - <br />'.$copyresult; |
} |
} |
} else { |
} else { |
$discussion .= '<br />Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.<br />'; |
$discussion .= '<br />Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.<br />'; |
Line 618 END
|
Line 622 END
|
my $subject = ''; |
my $subject = ''; |
if ($ENV{'form.origpage'}) { |
if ($ENV{'form.origpage'}) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['addnewattach','deloldattach','delnewattach','timestamp','idx','subject','comment']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['addnewattach','deloldattach','delnewattach','timestamp','idx','subject','comment']); |
$subject = &HTML::Entities::encode($ENV{'form.subject'},'<>&"'); |
$subject = &Apache::lonnet::unescape($ENV{'form.subject'}); |
$comment = &HTML::Entities::encode($ENV{'form.comment'},'<>&"'); |
$comment = &Apache::lonnet::unescape($ENV{'form.comment'}); |
my @keepold = (); |
my @keepold = (); |
&process_attachments(\@currnewattach,\@currdelold,\@keepold); |
&process_attachments(\@currnewattach,\@currdelold,\@keepold); |
if (@currnewattach > 0) { |
if (@currnewattach > 0) { |
Line 1048 sub get_post_contents {
|
Line 1052 sub get_post_contents {
|
return $discussion; |
return $discussion; |
} |
} |
} |
} |
$$screenname=&Apache::loncommon::screenname( |
# $$screenname=&Apache::loncommon::screenname( |
$$contrib{$idx.':sendername'}, |
# $$contrib{$idx.':sendername'}, |
$$contrib{$idx.':senderdomain'}); |
# $$contrib{$idx.':senderdomain'}); |
$$plainname=&Apache::loncommon::nickname( |
# $$plainname=&Apache::loncommon::nickname( |
$$contrib{$idx.':sendername'}, |
# $$contrib{$idx.':sendername'}, |
$$contrib{$idx.':senderdomain'}); |
# $$contrib{$idx.':senderdomain'}); |
|
($$screenname,$$plainname)=($$contrib{$idx.':screenname'}, |
|
$$contrib{$idx.':plainname'}); |
my $sender=&Apache::loncommon::aboutmewrapper( |
my $sender=&Apache::loncommon::aboutmewrapper( |
$$plainname, |
$$plainname, |
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':sendername'}, |
Line 1151 sub replicate_attachments {
|
Line 1157 sub replicate_attachments {
|
$i ++; |
$i ++; |
} |
} |
my ($content,$rtncode); |
my ($content,$rtncode); |
print STDERR "File to replicate is $$attachrefs{$id}{'filename'} in $1,$2\n"; |
|
my $uploadreply = &Apache::lonnet::getuploaded('GET',$$attachrefs{$id}{'filename'},$1,$2,$content,$rtncode); |
my $uploadreply = &Apache::lonnet::getuploaded('GET',$$attachrefs{$id}{'filename'},$1,$2,$content,$rtncode); |
if ($uploadreply eq 'ok') { |
if ($uploadreply eq 'ok') { |
my $attachcopy; |
my $attachcopy; |
if ($attachcopy = Apache::File->new('>'.$destination)) { |
if ($attachcopy = Apache::File->new('>'.$destination)) { |
print $attachcopy $content; |
print $attachcopy $content; |
close($attachcopy); |
close($attachcopy); |
} else { |
} else { |
$response .= 'Error copying a file attachment to IMS package: '.$!.'<br />'."\n"; |
$response .= 'Error copying file attachment - '.$5.' to IMS package: '.$!.'<br />'."\n"; |
} |
} |
} else { |
} else { |
print STDERR "return code from lonnet was $rtncode\n"; |
&Apache::lonnet::logthis("Replication of attachment failed when building IMS export of discussion posts - domain: $1, course: $2, file: $$attachrefs{$id}{'filename'} -error: $rtncode"); |
|
$response .= 'Error copying file attachment - '.$5.' to IMS package: '.$rtncode.'<br />'."\n"; |
} |
} |
} |
} |
} |
} |
} |
} |
|
return $response; |
} |
} |
|
|
sub mail_screen { |
sub mail_screen { |
Line 1308 END
|
Line 1315 END
|
} |
} |
|
|
if ($ENV{'form.origpage'}) { |
if ($ENV{'form.origpage'}) { |
$subject = $ENV{'form.subject'}; |
$subject = &Apache::lonnet::unescape($ENV{'form.subject'}); |
$comment = $ENV{'form.comment'}; |
$comment = &Apache::lonnet::unescape($ENV{'form.comment'}); |
&process_attachments(\@currnewattach,\@currdelold,\@keepold); |
&process_attachments(\@currnewattach,\@currdelold,\@keepold); |
} |
} |
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(); |
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(); |
Line 2433 ENDPREVIEW
|
Line 2440 ENDPREVIEW
|
|
|
sub modify_attachments { |
sub modify_attachments { |
my ($r,$currnewattach,$currdelold,$symb,$idx,$attachmenturls)=@_; |
my ($r,$currnewattach,$currdelold,$symb,$idx,$attachmenturls)=@_; |
my $subject=&clear_out_html($ENV{'form.subject'}); |
my $orig_subject = &Apache::lonnet::unescape($ENV{'form.subject'}); |
|
my $subject=&clear_out_html($orig_subject); |
$subject=~s/\n/\<br \/\>/g; |
$subject=~s/\n/\<br \/\>/g; |
$subject=&Apache::lontexconvert::msgtexconverted($subject); |
$subject=&Apache::lontexconvert::msgtexconverted($subject); |
my $timestamp=$ENV{'form.timestamp'}; |
my $timestamp=$ENV{'form.timestamp'}; |
Line 2462 $bodytag
|
Line 2470 $bodytag
|
<table border="2"> |
<table border="2"> |
<tr> |
<tr> |
<td> |
<td> |
<b>Subject:</b>$subject</b><br /><br /> |
<b>Subject:</b> $subject</b><br /><br /> |
END |
END |
if ($idx) { |
if ($idx) { |
if ($attachmenturls) { |
if ($attachmenturls) { |
Line 2569 sub generate_attachments_button {
|
Line 2577 sub generate_attachments_button {
|
my $response = (<<END); |
my $response = (<<END); |
<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post"> |
<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post"> |
Click to add/remove attachments: <input type="button" value="$att" |
Click to add/remove attachments: <input type="button" value="$att" |
onClick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=document.mailform.comment.value;this.form.subject.value=document.mailform.subject.value; |
onClick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value); |
END |
END |
unless ($mode eq 'board') { |
unless ($mode eq 'board') { |
$response .= 'javascript:anonchk();'; |
$response .= 'javascript:anonchk();'; |
Line 2709 sub construct_attachmenturl {
|
Line 2717 sub construct_attachmenturl {
|
} |
} |
return $newattachmenturl; |
return $newattachmenturl; |
} |
} |
|
|
|
sub has_discussion { |
|
my $resourcesref = shift; |
|
my $navmap = Apache::lonnavmaps::navmap->new(); |
|
my @allres=$navmap->retrieveResources(); |
|
foreach my $resource (@allres) { |
|
if ($resource->hasDiscussion()) { |
|
my $ressymb; |
|
if ($resource->symb() =~ m-(___adm/\w+/\w+)/(\d+)/bulletinboard$-) { |
|
$ressymb = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard'; |
|
} else { |
|
$ressymb = $resource->symb(); |
|
} |
|
push @{$resourcesref}, $ressymb; |
|
} |
|
} |
|
return; |
|
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 2721 sub handler {
|
Line 2747 sub handler {
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','threadedon','threadedoff','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navmaps','navurl','sortfilter','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export']); |
['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','threadedon','threadedoff','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortfilter','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export']); |
if ($ENV{'form.discsymb'}) { |
if ($ENV{'form.discsymb'}) { |
my $symb = $ENV{'form.discsymb'}; |
my $symb = $ENV{'form.discsymb'}; |
my $readkey = $symb.'_read'; |
my $readkey = $symb.'_read'; |
Line 2868 END
|
Line 2894 END
|
} |
} |
&print_sortfilter_options($r,$symb,$previous,$feedurl); |
&print_sortfilter_options($r,$symb,$previous,$feedurl); |
return OK; |
return OK; |
} elsif ($ENV{'form.navmaps'}) { |
} elsif ($ENV{'form.navtime'}) { |
my %discinfo = (); |
my %discinfo = (); |
my @resources = (); |
my @resources = (); |
if ($ENV{'form.navmaps'} =~ /:/) { |
if (defined($ENV{'form.navmaps'})) { |
@resources = split/:/,$ENV{'form.navmaps'}; |
if ($ENV{'form.navmaps'} =~ /:/) { |
|
@resources = split/:/,$ENV{'form.navmaps'}; |
|
} else { |
|
@resources = ("$ENV{'form.navmaps'}"); |
|
} |
} else { |
} else { |
@resources = ("$ENV{'form.navmaps'}"); |
&has_discussion(\@resources); |
} |
} |
my $numitems = @resources; |
my $numitems = @resources; |
my $feedurl = '/adm/navmaps'; |
my $feedurl = '/adm/navmaps'; |
Line 2883 END
|
Line 2913 END
|
} |
} |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'mnpa' => 'Marked "New" posts as read in a total of', |
'mnpa' => 'Marked "New" posts as read in a total of', |
'robb' => 'resources/bulletin boards.' |
'robb' => 'resources/bulletin boards.', |
|
'twnp' => 'There are currently no resources or bulletin boards with unread discussion postings.' |
); |
); |
foreach (@resources) { |
foreach (@resources) { |
# backward compatibility (bulletin boards used to be 'wrapped') |
# backward compatibility (bulletin boards used to be 'wrapped') |
Line 2894 END
|
Line 2925 END
|
} |
} |
} |
} |
my $lastkey = $ressymb.'_lastread'; |
my $lastkey = $ressymb.'_lastread'; |
$discinfo{$lastkey} = time; |
$discinfo{$lastkey} = $ENV{'form.navtime'}; |
|
} |
|
my $textline = "<b>$lt{'mnpa'} $numitems $lt{'robb'}</b>"; |
|
if ($numitems > 0) { |
|
&Apache::lonnet::put('nohist_'.$ENV{'request.course.id'}.'_discuss',\%discinfo,$ENV{'user.domain'},$ENV{'user.name'}); |
|
} else { |
|
$textline = "<b>$lt{'twnp'}</b>"; |
} |
} |
&Apache::lonnet::put('nohist_'.$ENV{'request.course.id'}.'_discuss',\%discinfo,$ENV{'user.domain'},$ENV{'user.name'}); |
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print (<<ENDREDIR); |
$r->print (<<ENDREDIR); |
Line 2908 END
|
Line 2944 END
|
</head> |
</head> |
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { this.document.reldt.submit(); self.close(); }'> |
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { this.document.reldt.submit(); self.close(); }'> |
<img align="right" src="/adm/lonIcons/lonlogos.gif" /> |
<img align="right" src="/adm/lonIcons/lonlogos.gif" /> |
<b>$lt{'mnpa'} $numitems $lt{'robb'}</b> |
$textline |
<form name="reldt" action="$feedurl" target="loncapaclient"> |
<form name="reldt" action="$feedurl" target="loncapaclient"> |
</form> |
</form> |
<br /><a href="$feedurl">Continue</a> |
<br /><a href="$feedurl">Continue</a> |