version 1.225, 2003/01/15 23:59:27
|
version 1.228, 2003/02/07 21:55:57
|
Line 41
|
Line 41
|
# 6/1/1 Gerd Kortemeyer |
# 6/1/1 Gerd Kortemeyer |
# 2/21,3/13 Guy |
# 2/21,3/13 Guy |
# 3/29,5/4 Gerd Kortemeyer |
# 3/29,5/4 Gerd Kortemeyer |
# 5/10 Scott Harrison |
|
# 5/26 Gerd Kortemeyer |
# 5/26 Gerd Kortemeyer |
# 5/27 H. K. Ng |
# 5/27 H. K. Ng |
# 6/2,6/3,6/8,6/9 Gerd Kortemeyer |
# 6/2,6/3,6/8,6/9 Gerd Kortemeyer |
Line 271 sub tokeninputfield {
|
Line 270 sub tokeninputfield {
|
my $defhost=$Apache::lonnet::perlvar{'lonHostID'}; |
my $defhost=$Apache::lonnet::perlvar{'lonHostID'}; |
$defhost=~tr/a-z/A-Z/; |
$defhost=~tr/a-z/A-Z/; |
return (<<ENDINPUTFIELD) |
return (<<ENDINPUTFIELD) |
<script> |
<script type="text/javascript"> |
function updatetoken() { |
function updatetoken() { |
var comp=new Array; |
var comp=new Array; |
var barcode=unescape(document.tokeninput.barcode.value); |
var barcode=unescape(document.tokeninput.barcode.value); |
Line 395 sub registerurl {
|
Line 394 sub registerurl {
|
my $result = ''; |
my $result = ''; |
|
|
if ($target eq 'edit') { |
if ($target eq 'edit') { |
$result .="<script>\n". |
$result .="<script type=\"text/javascrtipt\">\n". |
"if (typeof menu != 'undefined') {menu.currentURL=null;}\n". |
"if (typeof menu != 'undefined') {menu.currentURL=null;}\n". |
&Apache::loncommon::browser_and_searcher_javascript(). |
&Apache::loncommon::browser_and_searcher_javascript(). |
"\n</script>\n"; |
"\n</script>\n"; |
Line 404 sub registerurl {
|
Line 403 sub registerurl {
|
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
(!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) && |
(!$forcereg)) { |
(!$forcereg)) { |
return $result. |
return $result. |
'<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>'; |
'<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'; |
} |
} |
if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
$Apache::lonxml::registered=1; |
$Apache::lonxml::registered=1; |
Line 1145 sub get_all_text {
|
Line 1144 sub get_all_text {
|
} |
} |
} |
} |
} |
} |
|
if (($depth >=0) && ($#$pars == 0) ) { $top_empty=1; } |
if (($depth >=0) && ($#$pars > 0) ) { |
if (($depth >=0) && ($#$pars > 0) ) { |
pop(@$pars); |
pop(@$pars); |
pop(@Apache::lonxml::pwd); |
pop(@Apache::lonxml::pwd); |
} |
} |
if (($depth >=0) && ($#$pars == 0) ) { &debug("here4");$top_empty=1; } |
|
} |
} |
if ($top_empty && $depth >= 0) { |
if ($top_empty && $depth >= 0) { |
#never found the end tag ran out of text, throw error send back blank |
#never found the end tag ran out of text, throw error send back blank |
Line 1265 sub afterburn {
|
Line 1264 sub afterburn {
|
$matchthis=~s/\_+/\\s\+/g; |
$matchthis=~s/\_+/\\s\+/g; |
$result=~s/($matchthis)/\<a name=\"$anchorname\"\>$1\<\/a\>/s; |
$result=~s/($matchthis)/\<a name=\"$anchorname\"\>$1\<\/a\>/s; |
$result.=(<<"ENDSCRIPT"); |
$result.=(<<"ENDSCRIPT"); |
<script> |
<script type="text/javascript"> |
document.location.hash='$anchorname'; |
document.location.hash='$anchorname'; |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |