version 1.153, 2003/11/11 22:11:09
|
version 1.156, 2003/11/17 20:53:28
|
Line 2140 sub bodytag {
|
Line 2140 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 2747 the routine &Apache::lonnet::transfer_pr
|
Line 2746 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 3201 sub restore_course_settings {
|
Line 3200 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 |