A hint of code for that taglib

sub start_courses {
        my ($e, $tag, %attr) = @_;
        $e->manage_text(0);
         
        s/\|//g for %attr;
        my $out = '
        my %query; 
        %query = map { $_ => scalar $cgi->param($_) } $cgi->param;
        delete $query{STDOUT}; delete $query{REQUEST};
        if (!%query) { %query =  ('.
            join(", ", map { "$_ => q|$attr{$_}|"} keys %attr). ');
        }
my @_xsp_coursebooking_course_group =
    OUCS::CourseBooking->courses(%query);

for my $_xsp_axkit_xsp_coursebooking_course (@_xsp_coursebooking_course_group) {
';
         return $out;
}