version 1.9, 2006/03/15 21:43:37
|
version 1.12, 2006/03/21 21:25:33
|
Line 97 sub advertisefeeds {
|
Line 97 sub advertisefeeds {
|
} |
} |
} |
} |
|
|
|
sub rss_link { |
|
my ($url) = @_; |
|
return qq|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />|; |
|
|
|
} |
|
|
{ |
{ |
my $feedcounter; |
my $feedcounter; |
sub addentry { |
sub addentry { |
Line 139 sub changestatus {
|
Line 145 sub changestatus {
|
} |
} |
|
|
sub changed_js { |
sub changed_js { |
|
|
return <<ENDSCRIPT; |
return <<ENDSCRIPT; |
<script type="text/javascript"> |
<script type="text/javascript"> |
function changed(tform,id) { |
function changed(tform,id) { |
tform.elements[id+"_modified"].checked=true; |
tform.elements[id+"_modified"].checked=true; |
} |
} |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
|
|
sub handler { |
sub handler { |