version 1.153, 2003/11/11 22:11:09
|
version 1.157, 2003/12/01 14:36:22
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# YEAR=2001 |
|
# 2/13-12/7 Guy Albertelli |
|
# 12/21 Gerd Kortemeyer |
|
# 12/25,12/28 Gerd Kortemeyer |
|
# YEAR=2002 |
|
# 1/4 Gerd Kortemeyer |
|
# 6/24,7/2 H. K. Ng |
|
|
|
# Makes a table out of the previous attempts |
# Makes a table out of the previous attempts |
# Inputs result_from_symbread, user, domain, course_id |
# Inputs result_from_symbread, user, domain, course_id |
Line 73 use HTML::Entities;
|
Line 66 use HTML::Entities;
|
|
|
my $readit; |
my $readit; |
|
|
=pod |
## |
|
## Global Variables |
=head1 Global Variables |
## |
|
|
=cut |
|
|
|
# ----------------------------------------------- Filetypes/Languages/Copyright |
# ----------------------------------------------- Filetypes/Languages/Copyright |
my %language; |
my %language; |
Line 204 BEGIN {
|
Line 195 BEGIN {
|
|
|
=pod |
=pod |
|
|
=head1 General Subroutines |
|
|
|
=over 4 |
|
|
|
=head1 HTML and Javascript Functions |
=head1 HTML and Javascript Functions |
|
|
=over 4 |
=over 4 |
Line 219 containing javascript with two functions
|
Line 206 containing javascript with two functions
|
C<opensearcher>. Returned string does not contain E<lt>scriptE<gt> |
C<opensearcher>. Returned string does not contain E<lt>scriptE<gt> |
tags. |
tags. |
|
|
=over 4 |
|
|
|
=item * openbrowser(formname,elementname,only,omit) [javascript] |
=item * openbrowser(formname,elementname,only,omit) [javascript] |
|
|
inputs: formname, elementname, only, omit |
inputs: formname, elementname, only, omit |
Line 241 Inputs: formname, elementname
|
Line 226 Inputs: formname, elementname
|
formname and elementname specify the name of the html form and the name |
formname and elementname specify the name of the html form and the name |
of the element the selection from the search results will be placed in. |
of the element the selection from the search results will be placed in. |
|
|
=back |
|
|
|
=cut |
=cut |
|
|
sub browser_and_searcher_javascript { |
sub browser_and_searcher_javascript { |
Line 887 Outputs:
|
Line 870 Outputs:
|
|
|
=back |
=back |
|
|
|
=back |
|
|
=cut |
=cut |
|
|
############################################################### |
############################################################### |
Line 925 sub decode_user_agent {
|
Line 910 sub decode_user_agent {
|
$clientunicode,$clientos,); |
$clientunicode,$clientos,); |
} |
} |
|
|
=pod |
|
|
|
=back |
|
|
|
=cut |
|
|
|
############################################################### |
############################################################### |
## Authentication changing form generation subroutines ## |
## Authentication changing form generation subroutines ## |
############################################################### |
############################################################### |
Line 971 See loncreateuser.pm for invocation and
|
Line 950 See loncreateuser.pm for invocation and
|
|
|
=back |
=back |
|
|
|
=back |
|
|
=cut |
=cut |
|
|
#------------------------------------------- |
#------------------------------------------- |
Line 1155 sub authform_filesystem{
|
Line 1136 sub authform_filesystem{
|
return $result; |
return $result; |
} |
} |
|
|
=pod |
|
|
|
=back |
|
|
|
=cut |
|
|
|
############################################################### |
############################################################### |
## Get Authentication Defaults for Domain ## |
## Get Authentication Defaults for Domain ## |
############################################################### |
############################################################### |
Line 2140 sub bodytag {
|
Line 2115 sub bodytag {
|
my $bodytag = <<END; |
my $bodytag = <<END; |
<style> |
<style> |
h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif } |
h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif } |
a:hover { color: black; background: yellow } |
|
a:focus { color: red; background: yellow } |
a:focus { color: red; background: yellow } |
</style> |
</style> |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
Line 2730 sub check_if_partid_hidden {
|
Line 2704 sub check_if_partid_hidden {
|
|
|
=pod |
=pod |
|
|
|
=back |
|
|
=head1 cgi-bin script and graphing routines |
=head1 cgi-bin script and graphing routines |
|
|
|
=over 4 |
|
|
=item get_cgi_id |
=item get_cgi_id |
|
|
Inputs: none |
Inputs: none |
Line 2747 the routine &Apache::lonnet::transfer_pr
|
Line 2725 the routine &Apache::lonnet::transfer_pr
|
############################################################ |
############################################################ |
my $uniq=0; |
my $uniq=0; |
sub get_cgi_id { |
sub get_cgi_id { |
$uniq=($uniq++)%100000; |
$uniq=($uniq+1)%100000; |
return (time.'_'.$uniq); |
return (time.'_'.$uniq); |
} |
} |
|
|
Line 3064 sub DrawXYYGraph {
|
Line 3042 sub DrawXYYGraph {
|
|
|
=pod |
=pod |
|
|
|
=back |
|
|
=head1 Statistics helper routines? |
=head1 Statistics helper routines? |
|
|
Bad place for them but what the hell. |
Bad place for them but what the hell. |
|
|
|
=over 4 |
|
|
=item &chartlink |
=item &chartlink |
|
|
Returns a link to the chart for a specific student. |
Returns a link to the chart for a specific student. |
Line 3084 Inputs:
|
Line 3066 Inputs:
|
|
|
=back |
=back |
|
|
|
=back |
|
|
=cut |
=cut |
|
|
############################################################ |
############################################################ |
Line 3103 sub chartlink {
|
Line 3087 sub chartlink {
|
|
|
=head1 Course Environment Routines |
=head1 Course Environment Routines |
|
|
|
=over 4 |
|
|
=item &restore_course_settings |
=item &restore_course_settings |
|
|
=item &store_course_settings |
=item &store_course_settings |
Line 3201 sub restore_course_settings {
|
Line 3187 sub restore_course_settings {
|
############################################################ |
############################################################ |
############################################################ |
############################################################ |
|
|
|
sub propath { |
|
my ($udom,$uname)=@_; |
|
$udom=~s/\W//g; |
|
$uname=~s/\W//g; |
|
my $subdir=$uname.'__'; |
|
$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/; |
|
my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname"; |
|
return $proname; |
|
} |
|
|
|
sub icon { |
|
my ($file)=@_; |
|
my @file_ext = split(/\./,$file); |
|
my $curfext = $file_ext[-1]; |
|
my $iconname="unknown.gif"; |
|
my $embstyle = &Apache::loncommon::fileembstyle($curfext); |
|
# The unless conditional that follows is a bit of overkill |
|
$iconname = $curfext.".gif" unless |
|
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
|
return $Apache::lonnet::perlvar{'lonIconsURL'}."/$iconname"; |
|
} |
|
|
=pod |
=pod |
|
|
=back |
=back |