version 1.144, 2005/12/19 21:17:25
|
version 1.145, 2005/12/19 21:33:54
|
Line 300 sub portfolio_display_uri {
|
Line 300 sub portfolio_display_uri {
|
} else { |
} else { |
$meta_uri .= '.meta'; |
$meta_uri .= '.meta'; |
} |
} |
return ($res_uri,$meta_uri); |
|
|
my ($path) = ($res_uri =~ m|(.*)/[^/]*$|); |
|
|
|
return ($res_uri,$meta_uri,$path); |
} |
} |
|
|
sub pre_select_course { |
sub pre_select_course { |
my ($r,$uri) = @_; |
my ($r,$uri) = @_; |
my $output; |
my $output; |
my $fn=&Apache::lonnet::filelocation('',$uri); |
my $fn=&Apache::lonnet::filelocation('',$uri); |
my ($res_uri,$meta_uri) = &portfolio_display_uri($uri); |
my ($res_uri,$meta_uri,$path) = &portfolio_display_uri($uri); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
my $result=&Apache::lonnet::getfile($fn); |
my $result=&Apache::lonnet::getfile($fn); |
Line 322 sub pre_select_course {
|
Line 325 sub pre_select_course {
|
$r->print($output.'<br /><input type="submit" name="store" value="'. |
$r->print($output.'<br /><input type="submit" name="store" value="'. |
&mt('Associate Resource With Selected Course').'">'); |
&mt('Associate Resource With Selected Course').'">'); |
$r->print('</form>'); |
$r->print('</form>'); |
|
|
|
$r->print('<br /><br /><form method="POST" action="/adm/portfolio">'. |
|
'<input type="hidden" name="currentpath" value="'.$path.'" />'. |
|
'<input type="submit" name="cancel" value="'.&mt('Cancel').'">'. |
|
'</form>'); |
|
|
return; |
return; |
} |
} |
sub select_course { |
sub select_course { |