version 1.17, 2007/04/27 22:16:22
|
version 1.18, 2007/04/27 22:20:30
|
Line 73 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 73 if (&Apache::lonnet::allowed('vgr',$scop
|
|
|
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $res = $navmap->getBySymb($symb); |
my $res = $navmap->getBySymb($symb); |
&Apache::lonnet::logthis("$navmap is navmap"); |
|
|
|
my ($zipout) = ($symb =~ /^.*\/(.+)\.problem$/); |
my ($zipout) = ($symb =~ /^.*\/(.+)\.problem$/); |
$zipout =~ s/\s/_/g; |
$zipout =~ s/\s/_/g; |
$zipout .= ".zip"; |
$zipout .= ".zip"; |