|
version 1.27, 2004/05/10 08:34:50
|
version 1.30, 2005/02/17 08:29:42
|
|
Line 105 ENDADV
|
Line 105 ENDADV
|
| } |
} |
| |
|
| # output start of web page |
# output start of web page |
| |
my $html=&Apache::lonxml::xmlbegin(); |
| $r->print(<<END); |
$r->print(<<END); |
| <html> |
$html |
| <head> |
<head> |
| <title>The LearningOnline Network With CAPA Group Sorter</title> |
<title>The LearningOnline Network With CAPA Group Sorter</title> |
| <script language='javascript'> |
<script language='javascript'> |
|
Line 236 END
|
Line 236 END
|
| $key =~ s/^store_//; |
$key =~ s/^store_//; |
| $shash{$key} = $hash{'storectr_'.$key}; |
$shash{$key} = $hash{'storectr_'.$key}; |
| if (&Apache::lonnet::gettitle($key) eq '') { |
if (&Apache::lonnet::gettitle($key) eq '') { |
| $thash{$key} = $hash{'store_'.$key}; } |
$thash{$key} = $hash{'store_'.$key}; |
| else { |
} else { |
| $thash{$key} = &Apache::lonnet::gettitle($key); } |
$thash{$key} = &Apache::lonnet::gettitle($key); |
| |
} |
| } |
} |
| } |
} |
| if ($ENV{'form.oldval'}) { |
if ($ENV{'form.oldval'}) { |
|
Line 318 END
|
Line 319 END
|
| |
|
| # --- Expand here if "GO BACK" button desired |
# --- Expand here if "GO BACK" button desired |
| if ($ENV{'form.catalogmode'} eq 'groupimport') { |
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
| |
my $resurl = &Apache::loncommon::lastresurl(); |
| $r->print(<<END); |
$r->print(<<END); |
| <input type="button" name="alter" value="$lt{'gb'}" |
<input type="button" name="alter" value="$lt{'gb'}" |
| onClick="window.location='/res/?catalogmode=groupimport'" /> |
onClick="window.location='$resurl?catalogmode=groupimport'" /> |
| END |
END |
| } |
} |
| if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to groupsort.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface