version 1.151, 2006/08/08 19:02:04
|
version 1.155, 2006/12/05 02:55:53
|
Line 60 use Time::Local;
|
Line 60 use Time::Local;
|
use Time::HiRes; |
use Time::HiRes; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
use LONCAPA; |
|
|
############################################## |
############################################## |
Line 78 use LONCAPA;
|
Line 77 use LONCAPA;
|
sub authorbombs { |
sub authorbombs { |
my $url=shift; |
my $url=shift; |
$url=&Apache::lonnet::declutter($url); |
$url=&Apache::lonnet::declutter($url); |
my ($udom,$uname)=($url=~/^(\w+)\/(\w+)\//); |
my ($udom,$uname)=($url=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)/}); |
my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); |
my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); |
foreach (keys %bombs) { |
foreach (keys %bombs) { |
if ($_=~/^$udom\/$uname\//) { |
if ($_=~/^$udom\/$uname\//) { |
Line 699 sub StatusOptions {
|
Line 698 sub StatusOptions {
|
} |
} |
$Str .= ' size="'.$size.'" '; |
$Str .= ' size="'.$size.'" '; |
$Str .= '>'."\n"; |
$Str .= '>'."\n"; |
foreach my $type (['Active', &mt('Currently Enrolled')], |
foreach my $type (['Active', &mt('Currently Has Access')], |
['Future', &mt('Future Enrolled')], |
['Future', &mt('Will Have Future Access')], |
['Expired', &mt('Previously Enrolled')], |
['Expired', &mt('Previously Had Access')], |
['Any', &mt('Any Enrollment Status')]) { |
['Any', &mt('Any Access Status')]) { |
my ($name,$label) = @$type; |
my ($name,$label) = @$type; |
$Str .= '<option value="'.$name.'" '; |
$Str .= '<option value="'.$name.'" '; |
if ($status eq $name) { |
if ($status eq $name) { |
Line 1046 var checkwin;
|
Line 1045 var checkwin;
|
function spellcheckerwindow(string) { |
function spellcheckerwindow(string) { |
var esc_string = string.replace(/\"/g,'"'); |
var esc_string = string.replace(/\"/g,'"'); |
checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); |
checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); |
checkwin.document.writeln('$start_page<form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="'+esc_string+'" /><\/form>$end_page'); |
checkwin.document.writeln('$start_page<form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="'+esc_string+'" /><\\/form>$end_page'); |
checkwin.document.close(); |
checkwin.document.close(); |
} |
} |
// END LON-CAPA Internal --> |
// END LON-CAPA Internal --> |