|
version 1.40, 2002/03/25 19:27:17
|
version 1.41, 2002/05/09 23:01:41
|
|
Line 200 END
|
Line 200 END
|
| # by default (ie. if $mode is undefined). This is the easy |
# by default (ie. if $mode is undefined). This is the easy |
| # way out. Hopefully in the future I'll find a way to get |
# way out. Hopefully in the future I'll find a way to get |
| # the calls dealt with in a more comprehensive manner. |
# the calls dealt with in a more comprehensive manner. |
| |
|
| |
# |
| |
# There is now also mode "simple", which is for the simple version of the rat |
| |
# |
| |
# |
| if (!defined($mode) || ($mode ne 'edit' && $mode ne 'parmset')) { |
if (!defined($mode) || ($mode ne 'edit' && $mode ne 'parmset')) { |
| my $location = "/adm/groupsort?catalogmode=groupimport&"; |
my $location = "/adm/groupsort?catalogmode=groupimport&"; |
| |
$location .= "mode=".$mode."&"; |
| $location .= "acts="; |
$location .= "acts="; |
| $catalogmodefunctions=<<"END"; |
$catalogmodefunctions=<<"END"; |
| function select_data(title,url) { |
function select_data(title,url) { |
|
Line 368 ENDHEADER
|
Line 374 ENDHEADER
|
| } |
} |
| |
|
| # ---------------------------------------------------------------- output title |
# ---------------------------------------------------------------- output title |
| $r->print('<h2><font color="#888888">The LearningOnline With CAPA '. |
$r->print( |
| |
'<h2><font color="#888888">The Learning<i>Online</i> Network with CAPA '. |
| 'Network Directory Browser</font></h2>'."\n"); |
'Network Directory Browser</font></h2>'."\n"); |
| # ---------------------------------- get state of file attributes to be showing |
# ---------------------------------- get state of file attributes to be showing |
| if ($ENV{'form.attrs'} ne "") { |
if ($ENV{'form.attrs'} ne "") { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonindexer.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface