Lines 18-28
Link Here
|
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
use CGI qw ( -utf8 ); |
21 |
use CGI qw ( -utf8 ); |
22 |
use C4::Auth qw( get_template_and_user ); |
22 |
|
|
|
23 |
use C4::Auth qw( get_template_and_user ); |
24 |
use C4::Biblio qw( GetMarcFromKohaField ); |
23 |
use C4::Context; |
25 |
use C4::Context; |
24 |
use C4::Output qw( output_html_with_http_headers ); |
26 |
use C4::Output qw( output_html_with_http_headers ); |
25 |
use C4::Context; |
|
|
26 |
|
27 |
|
27 |
use Koha::Caches; |
28 |
use Koha::Caches; |
28 |
use Koha::AuthorisedValues; |
29 |
use Koha::AuthorisedValues; |
Lines 230-235
if ( $op eq 'add_form' ) {
Link Here
|
230 |
} |
231 |
} |
231 |
} |
232 |
} |
232 |
|
233 |
|
|
|
234 |
my ( $items_tag, $items_subtag ) = GetMarcFromKohaField('items.itemnumber'); |
235 |
$template->param( items_tag => $items_tag ); |
236 |
|
233 |
# here, $op can be unset or set to "cud-framework_create_confirm". |
237 |
# here, $op can be unset or set to "cud-framework_create_confirm". |
234 |
if ( $searchfield ne '' ) { |
238 |
if ( $searchfield ne '' ) { |
235 |
$template->param( searchfield => $searchfield ); |
239 |
$template->param( searchfield => $searchfield ); |