version 1.222, 2002/12/26 16:40:33
|
version 1.226, 2003/01/30 22:19:09
|
Line 271 sub tokeninputfield {
|
Line 271 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 395 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 404 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; |
my $nothing=''; |
my $reopen=&Apache::lonmenu::reopenmenu(); |
if ($ENV{'browser.type'} eq 'explorer') { $nothing='javascript:void(0);'; } |
|
my $newmail=''; |
my $newmail=''; |
if (&Apache::lonmsg::newmail()) { |
if (&Apache::lonmsg::newmail()) { |
$newmail='menu.setstatus("you have","messages");'; |
$newmail='menu.setstatus("you have","messages");'; |
Line 499 ENDPARM
|
Line 498 ENDPARM
|
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
|
|
function LONCAPAreg() { |
function LONCAPAreg() { |
menu=window.open("$nothing","LONCAPAmenu","",false); |
menu=$reopen; |
menu.clearTimeout(menu.menucltim); |
menu.clearTimeout(menu.menucltim); |
$timesync |
$timesync |
$newmail |
$newmail |
Line 510 ENDPARM
|
Line 509 ENDPARM
|
menu.currentStale=0; |
menu.currentStale=0; |
menu.clearbut(3,1); |
menu.clearbut(3,1); |
menu.switchbutton |
menu.switchbutton |
(6,3,'catalog.gif','catalog','info','catalog_info()'); |
(6,3,'catalog.gif','catalog','info','catalog_info()','Show catalog information'); |
menu.switchbutton |
menu.switchbutton |
(8,1,'eval.gif','evaluate','this','gopost("/adm/evaluate",currentURL)','Provide my evaluation of this resource'); |
(8,1,'eval.gif','evaluate','this','gopost("/adm/evaluate",currentURL)','Provide my evaluation of this resource'); |
menu.switchbutton |
menu.switchbutton |
Line 532 ENDPARM
|
Line 531 ENDPARM
|
} |
} |
|
|
function LONCAPAstale() { |
function LONCAPAstale() { |
menu=window.open("$nothing","LONCAPAmenu","",false); |
menu=$reopen |
menu.currentStale=1; |
menu.currentStale=1; |
if (menu.reloadURL!='' && menu.reloadURL!= null) { |
if (menu.reloadURL!='' && menu.reloadURL!= null) { |
menu.switchbutton |
menu.switchbutton |
Line 559 ENDREGTHIS
|
Line 558 ENDREGTHIS
|
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
|
|
function LONCAPAreg() { |
function LONCAPAreg() { |
menu=window.open("$nothing","LONCAPAmenu","",false); |
menu=$reopen |
$timesync |
$timesync |
menu.currentStale=1; |
menu.currentStale=1; |
menu.clearbut(2,1); |
menu.clearbut(2,1); |
Line 774 sub inner_xmlparse {
|
Line 773 sub inner_xmlparse {
|
if ($token->[0] eq 'E') { |
if ($token->[0] eq 'E') { |
&end_tag($stack,$parstack,$token); |
&end_tag($stack,$parstack,$token); |
} |
} |
} |
} |
if ($#$pars > -1) { |
if ($#$pars > -1) { |
pop @$pars; |
pop @$pars; |
pop @Apache::lonxml::pwd; |
pop @Apache::lonxml::pwd; |
Line 1116 sub store_counter {
|
Line 1115 sub store_counter {
|
sub get_all_text { |
sub get_all_text { |
my($tag,$pars)= @_; |
my($tag,$pars)= @_; |
&Apache::lonxml::debug("Got a ".ref($pars)); |
&Apache::lonxml::debug("Got a ".ref($pars)); |
|
my $gotfullstack=1; |
if (ref($pars) ne 'ARRAY') { |
if (ref($pars) ne 'ARRAY') { |
|
$gotfullstack=0; |
$pars=[$pars]; |
$pars=[$pars]; |
} |
} |
my $depth=0; |
my $depth=0; |
Line 1125 sub get_all_text {
|
Line 1126 sub get_all_text {
|
if ( $tag =~ m:^/: ) { |
if ( $tag =~ m:^/: ) { |
my $tag=substr($tag,1); |
my $tag=substr($tag,1); |
#&Apache::lonxml::debug("have:$tag:"); |
#&Apache::lonxml::debug("have:$tag:"); |
while (($depth >=0) && ($#$pars > -1)) { |
my $top_empty=0; |
|
while (($depth >=0) && ($#$pars > -1) && (!$top_empty)) { |
while (($depth >=0) && ($token = $$pars[-1]->get_token)) { |
while (($depth >=0) && ($token = $$pars[-1]->get_token)) { |
#&Apache::lonxml::debug("e token:$token->[0]:$depth:$token->[1]:".$#$pars.":".$#Apache::lonxml::pwd); |
#&Apache::lonxml::debug("e token:$token->[0]:$depth:$token->[1]:".$#$pars.":".$#Apache::lonxml::pwd); |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) { |
Line 1147 sub get_all_text {
|
Line 1149 sub get_all_text {
|
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) { |
|
#never found the end tag ran out of text, throw error send back blank |
|
&error('Never found end tag for <'.$tag.'>'); |
|
if ($gotfullstack) { |
|
my $newstring='</'.$tag.'>'.$result; |
|
&Apache::lonxml::newparser($pars,\$newstring); |
|
} |
|
$result=''; |
} |
} |
} else { |
} else { |
while ($#$pars > -1) { |
while ($#$pars > -1) { |
Line 1253 sub afterburn {
|
Line 1265 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 |