version 1.15, 2018/01/12 13:33:38
|
version 1.16, 2024/04/16 15:35:23
|
Line 218 sub create_picker {
|
Line 218 sub create_picker {
|
my ($navmap,$context,$formname,$crstype,$blockedmaps,$blockedresources,$block,$preamble, |
my ($navmap,$context,$formname,$crstype,$blockedmaps,$blockedresources,$block,$preamble, |
$numhome,$uploadedfiles,$tiny,$readonly) = @_; |
$numhome,$uploadedfiles,$tiny,$readonly) = @_; |
return unless (ref($navmap)); |
return unless (ref($navmap)); |
my ($it,$output,$numdisc,%maps,%resources,%discussiontime,%currmaps,%currresources,%files, |
my ($it,$output,$numdisc,%discussiontime,%currmaps,%currresources,%files, |
%shorturls,$chkname); |
%shorturls,$chkname); |
$chkname = 'archive'; |
$chkname = 'archive'; |
if ($context eq 'shorturls') { |
if ($context eq 'shorturls') { |