version 1.14, 2002/08/16 17:03:23
|
version 1.15, 2002/08/27 12:18:13
|
Line 39 use strict;
|
Line 39 use strict;
|
|
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use GDBM_File; |
use GDBM_File; |
|
use Apache::loncommon; |
|
|
my %hash; # variable to tie to user specific database |
my %hash; # variable to tie to user specific database |
my $iconpath; # variable to be accessible to multiple subroutines |
my $iconpath; # variable to be accessible to multiple subroutines |
Line 130 function orderchange(val,newval) {
|
Line 131 function orderchange(val,newval) {
|
} |
} |
</script> |
</script> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
|
END |
END |
|
$r->print(&Apache::loncommon::bodytag('Sort Imported Resources')); |
# read pertinent machine configuration |
# read pertinent machine configuration |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
Line 284 END
|
Line 284 END
|
my $ctr = 0; |
my $ctr = 0; |
my $clen = scalar(keys %shash); |
my $clen = scalar(keys %shash); |
$r->print(<<END); |
$r->print(<<END); |
<h2><font color="#888888"> |
|
The LearningOnline Network With CAPA Group Sorter |
|
</font></h2> |
|
<b><font color="#888888">Finalize order of resources</font></b> |
<b><font color="#888888">Finalize order of resources</font></b> |
<form method='post' action='/adm/groupsort' name='groupsort' |
<form method='post' action='/adm/groupsort' name='groupsort' |
enctype='application/x-www-form-urlencoded'> |
enctype='application/x-www-form-urlencoded'> |