version 1.76, 2008/12/15 16:37:44
|
version 1.79, 2009/04/04 21:47:40
|
Line 415 sub picklink {
|
Line 415 sub picklink {
|
|
|
sub dialscript { |
sub dialscript { |
return (<<ENDDIA); |
return (<<ENDDIA); |
<script language="Javascript"> |
<script type="text/javascript" language="JavaScript"> |
function dialin(day,month,year) { |
function dialin(day,month,year) { |
opener.document.$env{'form.formname'}.$env{'form.element'}\_year.value=year; |
opener.document.$env{'form.formname'}.$env{'form.element'}\_year.value=year; |
var slct=opener.document.$env{'form.formname'}.$env{'form.element'}\_month; |
var slct=opener.document.$env{'form.formname'}.$env{'form.element'}\_month; |
Line 517 sub handler {
|
Line 517 sub handler {
|
|
|
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
my $js = <<ENDDOCUMENT; |
my $js = <<ENDDOCUMENT; |
<script type="text/javascript"> |
<script type="text/javascript" language="JavaScript"> |
|
|
function trysubmit() { |
function trysubmit() { |
document.anno.action.value="new"; |
document.anno.action.value="new"; |
Line 539 ENDDOCUMENT
|
Line 539 ENDDOCUMENT
|
'<font size="1">'); |
'<font size="1">'); |
} else { |
} else { |
my $brcrum = [{href=>"/adm/announcements",text=>"Announcements and Calendar"}]; |
my $brcrum = [{href=>"/adm/announcements",text=>"Announcements and Calendar"}]; |
$r->print(&Apache::loncommon::start_page("Announcements and Calendar",$js,{'bread_crumbs' => $brcrum})); |
$r->print(&Apache::loncommon::start_page("Communication",$js,{'bread_crumbs' => $brcrum})); |
} |
} |
# does this user have privileges to post, etc? |
# does this user have privileges to post, etc? |
my $allowed=0; |
my $allowed=0; |
Line 590 ENDDOCUMENT
|
Line 590 ENDDOCUMENT
|
} |
} |
} |
} |
$r->print( |
$r->print( |
'<br /><input type="submit" name="serveraction" value="'.&mt('Post').'"></form><hr />'); |
'<br /><input type="submit" name="serveraction" value="'.&mt('Post').'" /></form><hr />'); |
} |
} |
if ($allowed) { |
if ($allowed) { |
my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'}; |