version 1.13, 2006/04/25 19:50:09
|
version 1.14, 2006/04/25 20:02:30
|
Line 338 ENDDISHEADER
|
Line 338 ENDDISHEADER
|
if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } |
if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } |
$r->print('<tr><td><label>'. |
$r->print('<tr><td><label>'. |
qq{<input type="checkbox" name="$key" />}.(' 'x2). |
qq{<input type="checkbox" name="$key" />}.(' 'x2). |
$fullname.'</label></td><td>'.$sname.'@'.$sdom.'</td><td>'.$section. |
$fullname.'</label></td><td>'.$sname.':'.$sdom.'</td><td>'.$section. |
'</td></tr>'); |
'</td></tr>'); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
Line 359 sub discrit {
|
Line 359 sub discrit {
|
$result.='<hr />'.&mt('From').': <b>'. |
$result.='<hr />'.&mt('From').': <b>'. |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('. |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('. |
$content{'sendername'}.'@'. |
$content{'sendername'}.':'. |
$content{'senderdomain'}.') '.$content{'time'}. |
$content{'senderdomain'}.') '.$content{'time'}. |
'<br />'.&mt('Subject').': '.$content{'subject'}. |
'<br />'.&mt('Subject').': '.$content{'subject'}. |
'<br /><pre>'. |
'<br /><pre>'. |
Line 867 sub compout {
|
Line 867 sub compout {
|
$r->print('<tr><td colspan="2">'.&mt('Replying to').' '. |
$r->print('<tr><td colspan="2">'.&mt('Replying to').' '. |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('. |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('. |
$content{'sendername'}.'@'. |
$content{'sendername'}.':'. |
$content{'senderdomain'}.')'. |
$content{'senderdomain'}.')'. |
'<input type="hidden" name="recuname" value="'.$content{'sendername'}.'" />'. |
'<input type="hidden" name="recuname" value="'.$content{'sendername'}.'" />'. |
'<input type="hidden" name="recdomain" value="'.$content{'senderdomain'}.'" />'. |
'<input type="hidden" name="recdomain" value="'.$content{'senderdomain'}.'" />'. |
Line 960 sub retrieve_instructor_comments {
|
Line 960 sub retrieve_instructor_comments {
|
next if ($content{'subject'} !~ /^Record/); |
next if ($content{'subject'} !~ /^Record/); |
# &Apache::lonfeedback::newline_to_br(\$content{'message'}); |
# &Apache::lonfeedback::newline_to_br(\$content{'message'}); |
$result.='Recorded by '. |
$result.='Recorded by '. |
$content{'sendername'}.'@'.$content{'senderdomain'}."\n"; |
$content{'sendername'}.':'.$content{'senderdomain'}."\n"; |
$result.= |
$result.= |
&Apache::lontexconvert::msgtexconverted($content{'message'})."\n"; |
&Apache::lontexconvert::msgtexconverted($content{'message'})."\n"; |
} |
} |
Line 1018 sub disfacetoface {
|
Line 1018 sub disfacetoface {
|
$result.=&mt('By').': <b>'. |
$result.=&mt('By').': <b>'. |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('. |
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).'</b> ('. |
$content{'sendername'}.'@'. |
$content{'sendername'}.':'. |
$content{'senderdomain'}.') '.$content{'time'}. |
$content{'senderdomain'}.') '.$content{'time'}. |
'<br /><pre>'. |
'<br /><pre>'. |
&Apache::lontexconvert::msgtexconverted($content{'message'}). |
&Apache::lontexconvert::msgtexconverted($content{'message'}). |
Line 1232 sub blockstore {
|
Line 1232 sub blockstore {
|
unless ( defined($cancels{$_}) ) { |
unless ( defined($cancels{$_}) ) { |
my ($newstart,$newend) = &get_dates_from_form($_); |
my ($newstart,$newend) = &get_dates_from_form($_); |
my $newkey = $newstart.'____'.$newend; |
my $newkey = $newstart.'____'.$newend; |
$blocking{$newkey} = $env{'user.name'}.'@'.$env{'user.domain'}.':'.$env{'form.title_'.$_}; |
$blocking{$newkey} = $env{'user.name'}.':'.$env{'user.domain'}.':'.$env{'form.title_'.$_}; |
} |
} |
} |
} |
if ($addtotal + $modtotal > 0) { |
if ($addtotal + $modtotal > 0) { |
Line 1319 END
|
Line 1319 END
|
my ($start,$end) = split/____/,$_; |
my ($start,$end) = split/____/,$_; |
my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange); |
my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange); |
my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange); |
my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange); |
my ($setter,$title) = split/:/,$$records{$_}; |
my (@data,$setuname,$setudom,$title); |
my ($setuname,$setudom) = split/@/,$setter; |
@data = split(/:/,$$records{$_},3); |
|
if (scalar(@data) eq 2) { |
|
$title = $data[1]; |
|
($setuname,$setudom) = split(/@/,$data[0]); |
|
} else { |
|
($setuname,$setudom,$title) = @data; |
|
} |
my $settername = &Apache::loncommon::plainname($setuname,$setudom); |
my $settername = &Apache::loncommon::plainname($setuname,$setudom); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<tr bgcolor="$bgcols[$iter]"> |
<tr bgcolor="$bgcols[$iter]"> |
Line 1487 END
|
Line 1493 END
|
$closeblock= &Apache::lonlocal::locallocaltime($closeblock); |
$closeblock= &Apache::lonlocal::locallocaltime($closeblock); |
$r->print('<tr><td>'.$courseinfo{'description'}.'</td>'. |
$r->print('<tr><td>'.$courseinfo{'description'}.'</td>'. |
'<td>'.$openblock.' to '.$closeblock.'</td>'. |
'<td>'.$openblock.' to '.$closeblock.'</td>'. |
'<td>'.$fullname.' ('.$uname.'@'.$udom. |
'<td>'.$fullname.' ('.$uname.':'.$udom. |
')</td></tr>'); |
')</td></tr>'); |
} |
} |
} |
} |
Line 1722 sub sendoffmail {
|
Line 1728 sub sendoffmail {
|
|
|
my %toaddr; |
my %toaddr; |
if ($env{'form.sendmode'} eq 'group') { |
if ($env{'form.sendmode'} eq 'group') { |
foreach $address (keys(%env)) { |
foreach my $address (keys(%env)) { |
if ($address=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) { |
if ($address=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) { |
$toaddr{$1}=''; |
$toaddr{$1}=''; |
} |
} |
Line 1778 sub sendoffmail {
|
Line 1784 sub sendoffmail {
|
$env{'form.permanent'}, |
$env{'form.permanent'}, |
\$sentmessage{$address}); |
\$sentmessage{$address}); |
} else { |
} else { |
$r->print(&mt('Sending').' '.$recuname.'@'.$recdomain.': '); |
$r->print(&mt('Sending').' '.$recuname.':'.$recdomain.': '); |
@thismsg= |
@thismsg= |
&Apache::lonmsg::user_normal_msg($recuname,$recdomain, |
&Apache::lonmsg::user_normal_msg($recuname,$recdomain, |
$msgsubj,$msgtxt, |
$msgsubj,$msgtxt, |