version 1.154, 2002/02/26 21:00:38
|
version 1.155, 2002/03/06 20:28:19
|
Line 316 sub fontsettings() {
|
Line 316 sub fontsettings() {
|
|
|
sub registerurl { |
sub registerurl { |
my $forcereg=shift; |
my $forcereg=shift; |
|
my $target = shift; |
|
my $result = ''; |
if ($ENV{'request.publicaccess'}) { |
if ($ENV{'request.publicaccess'}) { |
return |
return |
'<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>'; |
'<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>'; |
Line 347 ENDGRDS
|
Line 349 ENDGRDS
|
ENDPARM |
ENDPARM |
} |
} |
} |
} |
return (<<ENDREGTHIS); |
$result = (<<ENDREGTHIS); |
|
|
<script language="JavaScript"> |
<script language="JavaScript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
Line 399 ENDPARM
|
Line 401 ENDPARM
|
ENDREGTHIS |
ENDREGTHIS |
|
|
} else { |
} else { |
return (<<ENDDONOTREGTHIS); |
$result = (<<ENDDONOTREGTHIS); |
|
|
<script language="JavaScript"> |
<script language="JavaScript"> |
// BEGIN LON-CAPA Internal |
// BEGIN LON-CAPA Internal |
Line 426 ENDREGTHIS
|
Line 428 ENDREGTHIS
|
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
ENDDONOTREGTHIS |
ENDDONOTREGTHIS |
|
|
} |
} |
|
if ($target eq 'edit') { |
|
$result .=<<"ENDBROWSERSCRIPT"; |
|
<script> |
|
var editform; |
|
function openbrowser(formname,elementname) { |
|
var url = '/res/?'; |
|
if (editform == null) { |
|
url += 'launch=1&'; |
|
} |
|
url += 'catalogmode=interactive&'; |
|
url += 'mode=edit&'; |
|
url += 'form=' + formname + '&'; |
|
url += 'element=' + elementname + ''; |
|
var title = 'Browser'; |
|
var options = 'scrollbars=1,resizable=1,menubar=0'; |
|
options += ',width=700,height=600'; |
|
editform = open(url,title,options,'1'); |
|
editform.focus(); |
|
} |
|
</script> |
|
ENDBROWSERSCRIPT |
|
} |
|
return $result; |
} |
} |
|
|
sub loadevents() { |
sub loadevents() { |